home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 3.0 / TESTDRIVE_3.ISO / realizer / manual / sampler / listboxs.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  2.1 KB  |  53 lines
  1. '***********************************************************************
  2. '    ListBoxs.rlz                      
  3. '
  4. '    Realizer User's Guide Tutorial
  5. '
  6. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  7. '    All rights reserved.
  8. '
  9. '***********************************************************************
  10.  
  11. PROC formprocListbox(params)
  12.     FormSelect(formListbox)
  13.     SELECT CASE params[_ItemNum]
  14.         CASE 20, 30    'List and Combo Box
  15.         CASE 60    'Main Menu...
  16.             FormControl(_Hide)
  17.             FormSelect(formMain)
  18.             FormControl(_Show)
  19.         CASE 65    'Windows Objects...
  20.             FormControl(_Hide)
  21.             FormSelect(formObjects)
  22.             FormControl(_Show)
  23.     END SELECT
  24. END PROC
  25.  
  26. c1 ={"Amazonian women", "Argentinian leather", "Brazilian jungle"}
  27. c2 = {"Columbian coffee", "Danish danish", "Egyptian pyramids"}
  28. c3 = {"English pubs", "French beaches", "French fries", "French dressing"}
  29. c4 = {"German cars", "Hawaii Five-O", "Indian Ocean", "Kentucky Derby"}
  30. c5 = {"Luxembourg cheese", "Mexican food", "Moroccan roll"}
  31. choices = {c1, c2, c3, c4, c5}
  32. CLEAR c1, c2, c3, c4, c5
  33.  
  34. formListbox = FormQUnique
  35. FormNew(formListbox; "", _Frame + _HotClick)
  36. FormControl(_Size; 10 pct, 5 pct, 80 pct, 90 pct)
  37. FormSetColor(_Red; _Text)
  38. FormSetObject(10, _CaptionCenter, "List Box Variations", fontTitle, 5 pct, 2 pct, 90 pct, _Default)
  39. FormSetColor(_Black; _Text)
  40. FormSetObject(21, _CaptionCenter, "List Box", 5 pct, 14 pct, 40 pct, _Default)
  41. FormSetObject(20, _ListBox, "lb", 5 pct, 20 pct, 40 pct, 30 pct; choices)
  42. FormSetObject(31, _CaptionCenter, "Combo Box", 55 pct, 14 pct, 40 pct, _Default)
  43. FormSetObject(30, _ComboBox, "cb", 55 pct, 20 pct, 40 pct, 30 pct; choices)
  44. FormSetObject(41, _CaptionCenter, "Drop Down List", 5 pct, 54 pct, 40 pct, _Default)
  45. FormSetObject(40, _DropDownList, "cl", 5 pct, 60 pct, 40 pct, 30 pct; choices)
  46. FormSetObject(51, _CaptionCenter, "Drop Down Combo", 55 pct, 54 pct, 40 pct, _Default)
  47. FormSetObject(50, _DropDownCombo, "cd", 55 pct, 60 pct, 40 pct, 30 pct; choices)
  48.  
  49. FormSetObject(60, _Button, "Main Menu...", 10 pct, 90 pct, 30 pct, 8 pct)
  50. FormSetObject(65, _Button, "Back to Objects...", 60 pct, 90 pct, 30 pct, 8 pct)
  51.  
  52. FormSetProc(formprocListbox)
  53.