home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 6 / corel-draw-6-cd1.iso / scripts / ui.csc < prev   
Text File  |  1995-08-18  |  3KB  |  89 lines
  1. REM Uses all UI controls. If you did not install to C:\Corel
  2. REM you must edit this file in Script Editor.
  3. REM UI.csc 30 JUNE, 1995
  4.  
  5. REM This script uses bitmaps installed with Corel PhotoPaint. 
  6. REM The path c:\corel is hardcoded. If you didn't install to c:\corel, 
  7. REM Then you must change the InstallPath variable to your install directory.
  8.  
  9. InstallPath = "C:\Corel"
  10. DIM bmparray$(5)
  11. DIM color(8) as string
  12. bmpname = InstallPath + "\photopnt\plgbrush\footprnt.bmp"
  13. bmparray(1) = InstallPath + "\photopnt\plgbrush\fuzzy.bmp"
  14. bmparray(2) = InstallPath + "\photopnt\plgbrush\boxpanel.bmp"
  15. bmparray(3) = InstallPath + "\photopnt\plgbrush\textart.bmp"
  16. bmparray(4) = InstallPath + "\photopnt\plgbrush\treebare.bmp"
  17. bmparray(5) = InstallPath + "\photopnt\plgbrush\saturn.bmp"
  18. color(1) = "Red"
  19. color(2) = "Blue"
  20. color(3) = "Yellow"
  21. color(4) = "Green"
  22. color(5) = "Purple"
  23. color(6) = "Brown"
  24. color(7) = "White"
  25. color(8) = "Black"
  26. '***********************************Dialog declaration
  27. text1 = "This is text"
  28. help = "HELP!"
  29. push1 = "Push button"
  30. BEGIN DIALOG d1 300, 210, "ALL CONTROLS example"
  31.     OKBUTTON 250, 10, 45, 15
  32.     CANCELBUTTON 250, 31, 45, 15
  33.     HELPBUTTON 250, 53, 45, 15, help, HelpID%
  34.     PUSHBUTTON 250, 74, 45, 15, push1
  35.     TEXT 10, 10, 80, 15, text1    
  36.     TEXTBOX 10, 20, 75, 15, textbox1$
  37.     GROUPBOX 10, 40, 78, 49, "Group Box"
  38.         OPTIONGROUP group1%
  39.             OPTIONBUTTON 15, 50, 66, 15, "Option Button #1"
  40.             OPTIONBUTTON 15, 65, 66, 15, "Option Button #2"
  41.     GROUPBOX 95, 40, 75, 49, "Group Box"
  42.         CHECKBOX 100, 50, 65, 15, "Check Button #1", binary1%
  43.         CHECKBOX 100, 65, 65, 15, "Check Button #2", binary2%
  44.     TEXT 10, 92, 70, 15, "Listbox"
  45.     LISTBOX 10, 102, 78, 70, Color, listbox1%
  46.     TEXT 95, 92, 70, 15, "Combobox"
  47.     COMBOBOX 95, 102, 75, 70, Color, combobox1$
  48.     TEXT 10, 175, 70, 15, "Drop Down Listbox"
  49.     DDLISTBOX 10, 185, 70, 70, Color, ddlistbox1%
  50.     TEXT 95, 175, 75, 15, "Drop Down Combobox"
  51.     DDCOMBOBOX 95, 185, 70, 70, Color, ddcombobox1$
  52.     TEXT 95, 10, 80, 15, "Spin Control: "
  53.     SPINCONTROL 95, 20, 40, 15, spin1%
  54.     IMAGE 190, 102, 100, 95, Bmpname
  55.     GROUPBOX 175, 6, 70, 83, "Picture List"
  56.         IMAGELISTBOX 180, 16, 60, 100, bmparray, imglst%
  57. END DIALOG
  58. '***************************Set defaults
  59. textbox1 = "This is a textbox"
  60. group1 = 1
  61. binary1 = -1
  62. binary2 = 1
  63. binary3 = 0
  64. Listbox1 = 2
  65. Combobox1 = color(3)
  66. DDListBox1 = 1
  67. DDCombobox1 = color(5)
  68. spin1 = 9
  69. imglst = 2
  70. TRYAGAIN:
  71. ret = DIALOG(d1)
  72. IF ret = 2 THEN STOP
  73. IF ret = 3 THEN 
  74.     MESSAGE "You pressed a push button"
  75.     GOTO TRYAGAIN
  76. END IF
  77. mess$ = "You entered " + CHR(34) + textbox1 + CHR(34) + " in the textbox"
  78. mess = mess + CHR(13) + "You picked" + STR(spin1) + " in the spin box"
  79. mess$ = mess + CHR(13) + "You selected Option Button #" + CSTR(group1 + 1)
  80. mess = mess + CHR(13) + "You selected:"
  81. IF binary1<>0 THEN mess = mess + " Check Button #1"
  82. IF binary2<>0 THEN mess = mess + " Check Button #2"
  83. mess = mess + CHR(13) + "You picked the color " + color(Listbox1) + " in the ListBox"
  84. mess = mess + CHR(13) + "You entered " + Combobox1 + " in the ComboBox"
  85. mess = mess + CHR(13) + "You entered " + DDCombobox1 + " in the DDComboBox"
  86. mess = mess + CHR(13) + "You picked the color " + color(DDListbox1) + " in the DDListBox"
  87. mess = mess + CHR(13) + "You picked " + bmparray(imglst) + " as your image"
  88. MESSAGE mess
  89.