home *** CD-ROM | disk | FTP | other *** search
/ PC PowerPlay 28 / #28-1.iso / Pcpp / DIALOGS.SXT < prev    next >
Encoding:
Text File  |  1998-05-07  |  2.7 KB  |  97 lines
  1. //////////////////////////////////
  2. // Formula Graphics
  3. // Multimedia samples - Dialog elements
  4.  
  5. edit_procedure: element_object, element_message
  6.     switch element_message
  7.         case NOTIFY_DISPLAY
  8.             element_object.set (element_object.name)
  9.             message element_object.name & " has been displayed"
  10.             break
  11.         case NOTIFY_UNDISPLAY
  12.             message element_object.name & " has been undisplayed"
  13.             break
  14.         case NOTIFY_FOCUS
  15.             message element_object.name & " has focus"
  16.             break
  17.         case NOTIFY_UNFOCUS
  18.             message element_object.name & " has lost focus"
  19.             break
  20.         case NOTIFY_SCROLL
  21.             message element_object.name & " has scrolled"
  22.             break
  23.         case NOTIFY_ENTER
  24.             message element_object.name & " has been entered"
  25.             break
  26.         case NOTIFY_CHANGE
  27.             message element_object.name & " has changed"
  28.             break
  29.  
  30.     if element_displayed element_object
  31.         message element_object.name & " contains \"" & element_object.get() & "\""
  32.         if element_object.modified() then message element_object.name & " has been modified"
  33.  
  34. rich_text_select_proc:
  35.     (get_element "rich edit").select(20,50)
  36.  
  37. rich_text_proc: element_object, element_message
  38.     switch element_message
  39.         case NOTIFY_DISPLAY
  40.             element_object.load ("sample.rtf")
  41.             break
  42.  
  43. listbox_procedure: listbox, element_message
  44.     switch element_message
  45.         case NOTIFY_DISPLAY
  46.             // fill the list box with the names of every element
  47.             // on this screen
  48.             for n = 0 to current_screen.items - 1
  49.                 listbox.add(current_screen[n].name)
  50.             break
  51.         case NOTIFY_SELECT
  52.             message listbox.get(listbox.selected_pos()) & " was selected"
  53.             break
  54.         case NOTIFY_DBLCLK
  55.             listbox.remove (listbox.selection())
  56.             break
  57.         case NOTIFY_FOCUS
  58.             message "List has " & listbox.items() & " items"
  59.             message "Topmost index is " & listbox.get_top()
  60.             break
  61.  
  62. combo_procedure: combobox, element_message
  63.     switch element_message
  64.         case NOTIFY_DISPLAY
  65.             // fill the list box with the names of the screens
  66.             for n = 0 to current_project.items - 1
  67.                 combobox.add(current_project[n].name)
  68.             break
  69.         case NOTIFY_SELECT
  70.             message combobox.get(combobox.selected_pos()) & " was selected"
  71.             break
  72.         case NOTIFY_DBLCLK
  73.             combobox.remove (combobox.selection())
  74.             break
  75.         case NOTIFY_FOCUS
  76.             message "Combo has " & combobox.items() & " items"
  77.             message "Topmost index is " & combobox.get_top()
  78.             break
  79.         case NOTIFY_UNFOCUS
  80.             message "Combo box is \"" & combobox.get() & "\""
  81.             break
  82.  
  83. menu_procedure: menu, element_message
  84.     switch element_message
  85.         case NOTIFY_DISPLAY
  86.             // fill the menu with element types
  87.             for n = 0 to current_screen.items - 1
  88.                 menu.add(current_screen[n].type)
  89.             break
  90.         case NOTIFY_SELECT
  91.             message "'" & menu.get(menu.selected_pos()) & "' was selected"
  92.             break
  93.  
  94.     
  95.  
  96.  
  97.