O7 - Detecting menu click from window control procedure

bub buppeke at gmail.com
Tue Jan 9 01:54:53 EST 2018


Thanks Kelly, i don't get the menu-click event yet but i am closer to 
finding possible work-around as your answer brought me the idea of 
checking #ER when using the internal Windows menu, that generates a 
#ER=19501 event, to be added to the extensive list documented here :-)

Bruno

On 1/9/2018 11:46 AM, Kelly Burgess wrote:
> 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)
> _____________________________________________________________
> Manage your list subscriptions at http://lists.omnis-dev.com


---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus




More information about the omnisdev-en mailing list