O7 - Detecting menu click from window control procedure

Tue Jan 9 01:16:18 EST 2018

Hi Bruno,

>I need to trap the event of a user clicking on a menu from within my window control procedure, it doesn't generate a #CLICK or #WCLICK event

Here's a collection of #ER values from almost 20 years ago.  Hopefully something here will help.  Credit to Philippe Vanden Broeck.

Kelly

------------

From : 
       P. Vanden Broeck
 Subject : 
       Re: O7: WHAT MAKES #ER = 13
 Date : 
       23-NOV-98

 On 23/11/98 15:04 Les Davidner wrote :

 >What event, keystroke, or keystroke combination would make #ER = 13?

 13 erWclickon //sent with #after so that next loop is #wclick

 Here are the codes given by Dan Lindstedt :

 #EM Codes -
 0 emInit No #EM value
 1 emBefore1 #BEFORE1
 2 emBefore2 #BEFORE2
 3 emAfter #AFTER
 4 emClick #CLICK Mouse Single Click
 5 emDclick #DCLICK Mouse Double Click
 6 emDisclick #CLICK Click on Display Field
 7 emDisdclick #DCLICK Double Click on Display field
 8 emDde DDE event ???
 10 emWclick #WCLICK Click on a window
 11 emTotop1 #TOTOP1
 12 emTotop2 #TOTOP2
 13 emOther Used to pass a #ER but no particular #EM is
 appropriate

 #ER CODES -
 0 erInit
 1 erStay Remain on current field
 2 erBell Sound Bell
 3 erClick #CLICK mouse click
 4 erTab #TAB
 5 erStab #STAB
 6 erOk #OK
 7 erCancel #CANCEL
 8 erDde DDE event??
 9 erWclick #WClick
 10 erClose #Close
 11 erTabfst //tab to first field, sent in additional loop after #tab from
 last field
 12 erTablst //tab to last field, sent in additional loop after #tab from
 first field
 13 erWclickon //sent with #after so that next loop is #wclick
 14 erUsermenu //click on line of user defined menu
 15 erFcKey #KeyPress
 16 erMouseEnter #MouseEnter
 17 erMouseLeave #MouseLeave
 18 erMouseDown #MouseDown
 19 erMouseUp #MouseUp
 20 erHscroll #HScroll
 21 erVscroll #VScroll
 22 erEnabled #Enabled
 23 erDisabled #Disabled
 24 erShown #Shown
 25 erHidden #Hidden
 26 erHold #Hold
 27 erDrop #Drop
 28 erMove #Move
 29 erResize #Resize
 30 erRMouseDown #RMouseDown
 31 erRMouseUp #RMouseUp
 32 erRHold #RHold
 33 erWinClick Click on a window??
 34 erWinDClick Double Click on a window??

 5003 erNEXT #Next
 5004 erPREVIOUS #Previous
 5005 erFIND #Find
 5006 erEDIT #Edit
 5007 erINSERT #Insert
 5008 erINSERTCV #InsertCV
 5009 erDELETE #Delete

 99 erOther ????

 1000 erGoto Goto another field
 2000 erClickon Clicked on another field
 3000 erDisclickon Clicked on a display field
 4000 erDisdclickon Double Clicked on a display field
 5000 erOmnispush Special omnis push buttons like next, prev use range
 5001 to 5100.

 11000 erGnum ???? don't know (Menu Events)

 #ER MENU COMMANDS
 11010 About OMNIS has been choosen
 11023 File -> New Library
 11020 File -> Open Library
 11022 File -> Close Library
 11061 File -> Save Library
 11071 File -> Save AS Library
 11030 File -> Password...
 11050 File -> Change Data File
 39001 File -> Report Destination -> Printer
 39002 File -> Report Destination -> Screen
 39003 File -> Report Destination -> Page Preview
 39004 File -> Report Destination -> File...
 39005 File -> Report Destination -> Port
 39006 File -> Report Destination -> Clipboard
 39007 File -> Report Destination -> Publish
 39009 File -> Report Destination -> Page Size...
 11064 File -> Page Setup
 15000 File -> Preferences -> Options
 11053 File -> Preferences -> Help Options
 11630 File -> Preferences -> Change Font Tables
 11660 File -> Preferences -> Change Date Formats
 11070 File -> Preferences -> Change Colors
 11670 File -> Preferences -> Default Window Positions
 11040 File -> Menus -> Install/remove Design Menu
 11041 File -> Menus -> Install/Remove Commands Menu
 11045 File -> Menus -> Install/Remove Utilities Menu
 11068 File -> Menus -> Install/Remove Reports Menu
 11009 File -> QUIT
 11065 Edit -> Paste From File
 11130 Edit -> Create Publisher
 11131 Edit -> Subscribe to...
 11132 Edit -> Publisher Options

 12500 Design -> Format Browser
 11062 Design -> Cycle Formats
 14600 Design -> Make -> Window Format
 14700 Design -> Make -> Report Format
 14950 Design -> Make -> Menu Format
 12941 Design -> Find & Replace -> Find & Replace
 12942 Design -> Find & Replace -> Find Again
 12943 Design -> Find & Replace -> Replace Again
 12944 Design -> Find & Replace -> Open Find & Replace Log
 11042 Design -> Close Top Window
 11047 Design -> Close Other Windows
 11048 Design -> Close All Windows
 12700 Utilities -> Export Data...
 12820 Utilities -> Import Data...
 12400 Utilities -> Data File Tools -> Examine Data File
 12200 Utilities -> Data File Tools -> Reorganize Data
 12250 Utilities -> Data File Tools -> Check Data File
 12300 Utilities -> Library File Tools
 34901 Utilities -> Language Tools -> Export...
 34902 Utilities -> Language Tools -> Export Merge...
 34903 Utilities -> Language Tools -> Import...
 34904 Utilities -> Language Tools -> Strip Comments
 16004 Commands -> Find
 16002 Commands -> Next
 16003 Commands -> Previous
 16006 Commands -> Insert Record
 16007 Commands -> Insert Record With Current Values
 16005 Commands -> Edit
 16008 Commands -> Delete
 16009 Commands -> Clear Window
 16010 Commands -> Set Main File
 18001 Reports -> New...
 18002 Reports -> Open...
 18003 Reports -> Print
 18004 Reports -> Export
 18108 Reports -> Save

 Don't know if these are a part of #ER??
 qftNull=0, //gnum windows set qft to their gnum (none in range
 1000..1099)
 qftEdit=1025,
 qftButt=1026,
 qftList=1027,
 qftScroll=1028,
 qftPicture=1029,
 qftDroplist=1030, //grcG09 renamed old Poplist
 qftPopmenu=1031,
 qftMenubar=1032,
 qftPoplist2=1033, /* PPP poplist */
 qftComboBox=1034, //grcG09
 qftTable=1035, //JWAG25
 qftSplitter=1036, // PKA41-2
 qftDzTable=1037; //JWAG25B

 Maybe used in MouseOver(xxxx)????
 0 nptScursor set cursor, use this code only for setcursor purposes
 1 nptDown test if click required
 2 nptDbl test if double click required
 3 nptOptdown test if option click required
 4 nptDisdown if disabled, test if click required
 5 nptDisdbl if disabled, test if double click required
 6 nptBringtotop test if bring window to top click required
 7 nptHelp wants context-sensitive help
 8 nptDragObject
 9 nptSelected
 10 nptDragData
 11 nptDropData
 12 nptDragDrop
 13 nptCursor kMItemRef?? will return the field the cursor is over
 this includes pseudo fields as in table fields

 Enter Data Modes
 0 edmNone
 1 edmEdata
 2 edmPfind
 3 edmIdata
 -1 edmUnset
 -2 edmFind

 Philippe Vanden Broeck
 -----------------------------------
 Philippe.VandenBroeck at ping.be
 tel:+32-(0)4-3417130
 fax:+32-(0)4-3442617
 -----------------------------------
 "Outside of a dog, a book is a man's best friend. Inside of a dog, it's
 too dark to read." (Groucho Marx)