find a constant from within

Share your advanced PureBasic knowledge/code with the community.
User avatar
blueznl
PureBasic Expert
PureBasic Expert
Posts: 6161
Joined: Sat May 17, 2003 11:31 am
Contact:

find a constant from within

Post by blueznl »

Code updated for 5.20+

it's a bit ugly but hey, it works :-) and with a little fooling around it can be turned into a supersimple app that quickly shows you the constants... but i guess this has been done a thousand times, yet it was fun (sort of) to build another one...

first the easy small version, intended for expansion and beginner learning:

Code: Select all

Procedure.l x_constants_info(nr)
  Protected m.s
  Global x_constants_nr.l, x_constants_n.l, x_retval_text.s, x_retval.l
  ;
  ; *** converts an event number to plain text
  ;
  ; this procedure is mostly for educational and reference purposes, it returns the name of a constant
  ;
  ; in:     nr               - event or value
  ; retval: #True            - found
  ;         #False           - not found
  ; out:    x_retval         - #True found #False not found
  ;         x_retval_text    - line of text returned
  ;
  ; the returned string has the following format:
  ;
  ; - #whatever     - a known constant in pb
  ; - #pb_whatever  - a known pb constant
  ; - #wm_whatever  - a known windows constant
  ; - whatever      - in uppercase: the windows name of a known windows message that was not defined in pb
  ; - whatever      - in lowercase: something else, comments, whatever
  ;
  ; this procedure only returns what is encoded inside it, which allows for some more details on, for
  ; example, window messages, but is harder to maintain and update... the function x_constants_more()
  ; takes information from one or more external files but needs the x_lib to work
  ;
  ; we'll do it in a few steps...
  ;
  ;   1. match it against predefined and decoded pb constants
  ;   2. match it against predefined and decoded win constants
  ;   3. match it against known but not (yet) predefined win constants
  ;   4. match it against known numeric values (that yet have to be encoded, if ever)
  ;   5. report dec, hex and bin value for unknown ones
  ;   6. you can use x_constants_more() To go through external files
  ;
  ;
  ; 1. predefined pb constants
  ;
  Select nr
    Case #PB_Event_Menu
      m = "#PB_Event_Menu"
    Case #PB_Event_CloseWindow
      m = "#PB_Event_CloseWindow"
    Case #PB_Event_Gadget
      m = "#PB_Event_Gadget"
      ;
      ; a gadget has been pushed
      ;
    Case #PB_Event_Repaint
      m = "#PB_Event_Repaint"
    Case #PB_Event_MoveWindow
      m = "#PB_Event_MoveWindow"
      ;
      ; the window has been moved
      ;
  EndSelect
  ;
  ;
  ; 2. predefined constants for windows messages
  ;
  Select nr
    Case #WM_KEYDOWN
      m = m + " #WM_KEYDOWN"
    Case #WM_MOUSEMOVE
      m = m + " #WM_MOUSEMOVE"
    Case #WM_LBUTTONDOWN
      m = m + " #WM_LBBUTTONDOWN"
    Case #WM_LBUTTONUP
      m = m + " #WM_LBBUTTONUP"
    Case #WM_MOVE
      m = m + " #WM_MOVE"
  EndSelect
  ;
  ;
  ; 3. missing constants for windows messages
  ;
  #WM_MOUSELEAVE = $2A3
  ;
  Select nr
    Case #WM_MOUSELEAVE
      ;
      ; mouse left window (after a trackmouseevent was used)"
      ; only generated after calling TrackMouseEvent_()
      ;
      m = m + " WM_MOUSELEAVE"
  EndSelect
  ;
  ;
  ; 4. numeric ones (stuff we haven't found a proper var for yet)
  ;
  Select nr
    Case 0
      m = m + " none"
    Case 5
      m = m + " resize?"
    Case 160
      m = m + " mouse_over_dragbar?"
    Case 161
      m = m + " window_has_moved?"
    Case 275
      m = m + " focus_or_activation?"
    Case 516
      m = m + " rmb_down?"
    Case 517
      m = m + " rmb_up?"
    Case 519
      m = m + " mmb_down?"
    Case 520
      m = m + " mmb_up?"
    Case 522
      ;
      ; scrollwheel
      ; read event_parameter for the direction
      ;
      event_parameter = EventwParam()
      If event_parameter>0
        m = m + " scrollwheel_up"
      Else
        m = m + " scrollwheel_down"
      EndIf
    Case 674
      Debug " unknown"
  EndSelect
  ;
  ; 5. add some info if we don't know what it was
  ;
  m = m+" "
  If Left(m,1) <> "#"
    m = m+" "+Str(nr)+" $"+Hex(nr)+" %"+Bin(nr)
    x_retval = #False
  Else
    x_retval = #True
  EndIf
  x_retval_text = Trim(m)
  x_constants_nr = nr
  x_constants_more = 0
  ;
  ProcedureReturn x_retval
EndProcedure
you can use it like this (this one doesn't need x_lib):

Code: Select all

OpenWindow(0,100,100,300,200,"Message numbers to text",#PB_Window_SystemMenu|#PB_Window_SizeGadget)
lv_h = ListViewGadget(1,2,2,296,176)
;
Repeat
  event = WaitWindowEvent()
  x_constants_info(event)
  ;
  ; gadgets and the debugger can seriously screw up expected results :-)
  ; (that doesn't mean the results are wrong, they are just... different than one would expect)
  ; so comment out what you don't want
  ;
  Debug x_retval_text
  AddGadgetItem(1,-1,x_retval_text)
  SendMessage_(lv_h,#LB_SETCARETINDEX,999999,0)
  TextGadget(2,2,184,296,18,x_retval_text,#PB_Text_Center)
  ;
Until event = #PB_Event_CloseWindow
it's, obviously, totally incomplete when it comes to windows constants, so feel free to expand it if you feel bored :-) also, if you use it, use it only to decode messages you don't know yet and don't feed it other stuff, but that's obvious as well i guess...

second part is a little smarter, it reads in all files you specify, then dumps all constants in an array, sorts it, and shows you quickly the value of something and where it found it

first the procedures:

Code: Select all

Procedure x_constants_read(file.s)
  Protected file_nr.l, n.l, s.s
  Global x_constants_nr.l, x_constants_n.l, x_retval_text.s, x_constants_more.l, x_retval.l
  ;
  ; *** read constants from a file
  ;
  ; info is first stored in a single string for sorting, afterwards i retrieve the values and store
  ; them into longs for quicker processing
  ;
  If x_constants_n = 0
    Dim x_constants_nr.l(#x_constants_max)
    Dim x_constants_text.s(#x_constants_max)
  EndIf
  ;
  If x_not(x_exist(file)) And (x_parse(file,"*",0) Or x_parse(file,"?",0))
    x_dir(GetPathPart(file),GetFilePart(file),2,0,0,0)
    n=0
    While n < x_dir_n
      n = n+1
      x_constants_read(x_dir_list(n))
    Wend
  EndIf
  ;
  file_nr = OpenFile(#PB_Any,file)
  If file_nr > 0
    n = 0
    While Eof(file_nr) = 0 And x_constants_n < #x_constants_max
      s = Trim(ReadString())
      n = n+1
      If Left(s,1)="#"
        x_parse(s,"#",0)
        x_parse(s,"=",0)
        s = x_strex(x_val(x_parse),"###########")+" "+s
        If Len(s) > 100
          s = Left(s,95)+"..."
        EndIf
        s = Left(s+Space(100),100)
        s = s+file+" ("+Str(n)+")"
        x_constants_text(x_constants_n) = s
        x_constants_n = x_constants_n+1
      EndIf
    Wend
    CloseFile(file_nr)
  EndIf
  x_constants_more = 0
EndProcedure

Procedure x_constants_more()
  Protected n.l, p1.l, p2.l, p.l
  Global x_constants_nr.l, x_constants_n.l, x_retval_text.s
  ;
  ; *** return info on a constant retrieved form an external file
  ;
  ; in:        - none
  ; retval:    #True            - yeah, found more
  ;            #False           - nothing more
  ;            x_constants_text - the text found defining the constant
  ;
  x_retval = #False
  If x_constants_more = 0
    ;
    ; first attempt to find
    ;
    If x_constants_sort <> x_constants_n                      ; no or new data so we can sort
      SortArray(x_constants_text(),0,0,x_constants_n)
      n = 0
      While n < x_constants_n
        x_constants_nr(n) = Val(x_constants_text(n))
        n = n+1
      Wend
    EndIf
    ;
    ; binary search
    ;
    p1 = 1
    p2 = x_constants_n
    ;
    Repeat
      p = (p1+p2)/2
      If x_constants_nr(p) > x_constants_nr
        p2 = p
      ElseIf x_constants_nr(p) = x_constants_nr
        p1 = p
        p2 = p
      Else
        p1 = p
      EndIf
    Until p1 = p2
    If p > 0
      While x_constants_nr(p-1) = x_constants_nr
        p = p-1
      Wend
    EndIf
    ;
    If x_constants_nr(p) = x_constants_nr
      x_retval = #True
      x_retval_text = x_constants_text(p)
      x_constants_more = p
    EndIf
    ;
  Else
    ;
    x_constants_more = x_constants_more+1
    If x_constants_nr(x_constants_more) = x_constants_nr
      x_retval_text = x_constants_text(x_constants_more)
      x_retval = #True
    EndIf
  EndIf
  ;
  ProcedureReturn x_retval
EndProcedure
they are, as usual with all the crap i produce, part of the x_lib file...

calling it is easy, for example i want to know all constants defined as '4':

Code: Select all

IncludeFile "x_lib.pb" 
x_init() 
; 
; first read any pb code you wanna include (wildcards allowed) 
; the two files with all residents are good candidates :-) 
; 
x_constants_read("c:\software\purebasic\_docs_tools\*.pb") 
x_constants_read("c:\software\purebasic\_projects\x_lib.pb") 
; 
; look for info on '4' and display what's found 
; 
x_constants_info(#x_eol) 
Repeat 
  Debug ">"+x_retval_text 
Until x_constants_more() = #False 
( PB6.00 LTS Win11 x64 Asrock AB350 Pro4 Ryzen 5 3600 32GB GTX1060 6GB)
( The path to enlightenment and the PureBasic Survival Guide right here... )
soerenkj
User
User
Posts: 95
Joined: Mon Jun 14, 2004 10:19 pm

Post by soerenkj »

great! but I don't understand what the second procedure is for.. what kind of files would you use it on and when/why?

the first procedure seems useful to me, however. I would like to finish it, so I'm thinking, where can I find a complete list of windows event (not only the WM type but also BM,CB etc.) that I can easily copy and paste....?
and also: where can I find a list of the 'missing constants'? (refered to in the procedure code)

besides that, I have some comments on the code:
- I looked in a file I found on purearea and saw 3 extra pb-message-types:#PB_Event_SysTray, #PB_Event_SizeWindow and #PB_Event_ActivateWindow. I've added these, so now part 1. of the procedure is complete..?
- I was wondering why use the 'm = m +" instead of just 'm =' - isn't an event either a pb-event or a windows event? I figured it is because some pb-events like #PB_Event_Activate has the same number as #WM_Activite.. (am I right/ is that the only reason?)
- when running the code, the debug window was flooded with #WM_Mousemove events.. I thougt that was weird, since I did not move the mouse..
- the last part of the procedure writes some info about messages that are not caught in the select blocks. I was wondering why more events of this type are not written, I thought windows sent a whole lot of weird messages..

regards,
Søren
User avatar
blueznl
PureBasic Expert
PureBasic Expert
Posts: 6161
Joined: Sat May 17, 2003 11:31 am
Contact:

Post by blueznl »

> great! but I don't understand what the second procedure is for..
> what kind of files would you use it on and when/why?

on any file containing pb constants

> the first procedure seems useful to me, however. I would like to
> finish it, so I'm thinking, where can I find a complete list of windows
> event (not only the WM type but also BM,CB etc.) that I can easily
> copy and paste....?

go here...

http://www.xs4all.nl/~bluez/datatalk/pu ... _questions

> and also: where can I find a list of the 'missing constants'? (refered
> to in the procedure code)

see above

> besides that, I have some comments on the code:
> - I looked in a file I found on purearea and saw 3 extra pb-
> message-types:#PB_Event_SysTray, #PB_Event_SizeWindow
> and #PB_Event_ActivateWindow. I've added these, so now part 1.
> of the procedure is complete..?

dunno :-) where did you find those messages though? didn't see them in the help file listed?

> - I was wondering why use the 'm = m +" instead of just 'm =' - isn't
> an event either a pb-event or a windows event? I figured it is because
> some pb-events like #PB_Event_Activate has the same number as
> #WM_Activite.. (am I right/ is that the only reason?)

they sometimes ARE the same message

> - when running the code, the debug window was flooded with
> #WM_Mousemove events.. I thougt that was weird, since I did not
> move the mouse..

yeah i noticed that to, and it might be a bug, i posted a message on the forum on this

> - the last part of the procedure writes some info about messages
> that are not caught in the select blocks. I was wondering why more
> events of this type are not written, I thought windows sent a whole
> lot of weird messages..

thousands and thousands, it's just that i can't bother with entering them all, this was meant as a framework to expand upon, and might be helpful to someone, feel free to expand it, and to move / delete parts

if you have those resident files, you can use the second variation to go through them with any numeric value with the second set of routines

not very useful, just a little fun :-) though it can help you finding constants for windows messages you see on screen
( PB6.00 LTS Win11 x64 Asrock AB350 Pro4 Ryzen 5 3600 32GB GTX1060 6GB)
( The path to enlightenment and the PureBasic Survival Guide right here... )
soerenkj
User
User
Posts: 95
Joined: Mon Jun 14, 2004 10:19 pm

Post by soerenkj »

dunno where did you find those messages though? didn't see them in the help file listed?
in the purebasic cvs that you refer to (in Residents/Windows/PureBasic.pb) there is a section "Event constants"
thousands and thousands, it's just that i can't bother with entering them all, this was meant as a framework to expand upon, and might be helpful to someone, feel free to expand it, and to move / delete parts
a was talking about the part where all the things you did not list end: if there is no Case for the message the number is just written. I was wondering why there aren't written more messages of this type, i.e. if the WaitEventWindow leaves out some events..
if you have those resident files, you can use the second variation to go through them with any numeric value with the second set of routines
I've noticed these .res-files, but I could not make much sence of them.. do you have a good reference about the subject?
not very useful, just a little fun though it can help you finding constants for windows messages you see on screen
yeah, I thought if I could make a version of the first procedure with ALL event constants listed, I wouldn't need the second procedure..

(ps. how do I make the '>'-quotes.....?)
User avatar
blueznl
PureBasic Expert
PureBasic Expert
Posts: 6161
Joined: Sat May 17, 2003 11:31 am
Contact:

Post by blueznl »

not .res files, go into the cvs, get those files (winconstants.pb or something) they contain all the constants! :-)

the '>'? by hand :-)... well, not entirely, got a small tool that mangles the clipboard on a copy action :-) rarely use it though...

but i find '>' often easier than using the quote function
( PB6.00 LTS Win11 x64 Asrock AB350 Pro4 Ryzen 5 3600 32GB GTX1060 6GB)
( The path to enlightenment and the PureBasic Survival Guide right here... )
soerenkj
User
User
Posts: 95
Joined: Mon Jun 14, 2004 10:19 pm

Post by soerenkj »

so! I finally found time to finish it..
the procedure below should find the name(s) of any event from the number of that event - that is, if they are defined by purebasic (I don't know where I can find a complete list of the missing constants..)

you could add finding the purebasic names for these constants/ contants defined for purebasic only..

I used the windows.pb file in the residents/windows folder of cvs.purebasic.com
and

http://msdn.microsoft.com/library/defau ... Queues.asp

to determine which of the constants in windows.pb are event constants


Code: Select all

Procedure.s eventname(event)

  Protected m$

  If event = #DM_SPECVERSION
    m$ = m$ + "#DM_SPECVERSION "
  EndIf : If event = #DM_ORIENTATION
    m$ = m$ + "#DM_ORIENTATION "
  EndIf : If event = #DM_PAPERSIZE
    m$ = m$ + "#DM_PAPERSIZE "
  EndIf : If event = #DM_PAPERLENGTH
    m$ = m$ + "#DM_PAPERLENGTH "
  EndIf : If event = #DM_PAPERWIDTH
    m$ = m$ + "#DM_PAPERWIDTH "
  EndIf : If event = #DM_SCALE
    m$ = m$ + "#DM_SCALE "
  EndIf : If event = #DM_COPIES
    m$ = m$ + "#DM_COPIES "
  EndIf : If event = #DM_DEFAULTSOURCE
    m$ = m$ + "#DM_DEFAULTSOURCE "
  EndIf : If event = #DM_PRINTQUALITY
    m$ = m$ + "#DM_PRINTQUALITY "
  EndIf : If event = #DM_COLOR
    m$ = m$ + "#DM_COLOR "
  EndIf : If event = #DM_DUPLEX
    m$ = m$ + "#DM_DUPLEX "
  EndIf : If event = #DM_YRESOLUTION
    m$ = m$ + "#DM_YRESOLUTION "
  EndIf : If event = #DM_TTOPTION
    m$ = m$ + "#DM_TTOPTION "
  EndIf : If event = #DM_COLLATE
    m$ = m$ + "#DM_COLLATE "
  EndIf : If event = #DM_FORMNAME
    m$ = m$ + "#DM_FORMNAME "
  EndIf : If event = #DM_GRAYSCALE
    m$ = m$ + "#DM_GRAYSCALE "
  EndIf : If event = #DM_INTERLACED
    m$ = m$ + "#DM_INTERLACED "
  EndIf : If event = #DM_UPDATE
    m$ = m$ + "#DM_UPDATE "
  EndIf : If event = #DM_COPY
    m$ = m$ + "#DM_COPY "
  EndIf : If event = #DM_PROMPT
    m$ = m$ + "#DM_PROMPT "
  EndIf : If event = #DM_MODIFY
    m$ = m$ + "#DM_MODIFY "
  EndIf : If event = #DM_IN_BUFFER
    m$ = m$ + "#DM_IN_BUFFER "
  EndIf : If event = #DM_IN_PROMPT
    m$ = m$ + "#DM_IN_PROMPT "
  EndIf : If event = #DM_OUT_BUFFER
    m$ = m$ + "#DM_OUT_BUFFER "
  EndIf : If event = #DM_OUT_DEFAULT
    m$ = m$ + "#DM_OUT_DEFAULT "
  EndIf : If event = #DM_RESERVED1
    m$ = m$ + "#DM_RESERVED1 "
  EndIf : If event = #DM_RESERVED2
    m$ = m$ + "#DM_RESERVED2 "
  EndIf : If event = #DM_ICMMETHOD
    m$ = m$ + "#DM_ICMMETHOD "
  EndIf : If event = #DM_ICMINTENT
    m$ = m$ + "#DM_ICMINTENT "
  EndIf : If event = #DM_MEDIATYPE
    m$ = m$ + "#DM_MEDIATYPE "
  EndIf : If event = #DM_DITHERTYPE
    m$ = m$ + "#DM_DITHERTYPE "
  EndIf : If event = #SB_HORZ
    m$ = m$ + "#SB_HORZ "
  EndIf : If event = #SB_VERT
    m$ = m$ + "#SB_VERT "
  EndIf : If event = #SB_CTL
    m$ = m$ + "#SB_CTL "
  EndIf : If event = #SB_BOTH
    m$ = m$ + "#SB_BOTH "
  EndIf : If event = #SB_LINEUP
    m$ = m$ + "#SB_LINEUP "
  EndIf : If event = #SB_LINELEFT
    m$ = m$ + "#SB_LINELEFT "
  EndIf : If event = #SB_LINEDOWN
    m$ = m$ + "#SB_LINEDOWN "
  EndIf : If event = #SB_LINERIGHT
    m$ = m$ + "#SB_LINERIGHT "
  EndIf : If event = #SB_PAGEUP
    m$ = m$ + "#SB_PAGEUP "
  EndIf : If event = #SB_PAGELEFT
    m$ = m$ + "#SB_PAGELEFT "
  EndIf : If event = #SB_PAGEDOWN
    m$ = m$ + "#SB_PAGEDOWN "
  EndIf : If event = #SB_PAGERIGHT
    m$ = m$ + "#SB_PAGERIGHT "
  EndIf : If event = #SB_THUMBPOSITION
    m$ = m$ + "#SB_THUMBPOSITION "
  EndIf : If event = #SB_THUMBTRACK
    m$ = m$ + "#SB_THUMBTRACK "
  EndIf : If event = #SB_TOP
    m$ = m$ + "#SB_TOP "
  EndIf : If event = #SB_LEFT
    m$ = m$ + "#SB_LEFT "
  EndIf : If event = #SB_BOTTOM
    m$ = m$ + "#SB_BOTTOM "
  EndIf : If event = #SB_RIGHT
    m$ = m$ + "#SB_RIGHT "
  EndIf : If event = #SB_ENDSCROLL
    m$ = m$ + "#SB_ENDSCROLL "
  EndIf : If event = #SBM_SETSCROLLINFO
    m$ = m$ + "#SBM_SETSCROLLINFO "
  EndIf : If event = #SBM_GETSCROLLINFO
    m$ = m$ + "#SBM_GETSCROLLINFO "
  EndIf : If event = #WM_USER
    m$ = m$ + "#WM_USER "
  EndIf : If event = #WM_NULL
    m$ = m$ + "#WM_NULL "
  EndIf : If event = #WM_CREATE
    m$ = m$ + "#WM_CREATE "
  EndIf : If event = #WM_DESTROY
    m$ = m$ + "#WM_DESTROY "
  EndIf : If event = #WM_MOVE
    m$ = m$ + "#WM_MOVE "
  EndIf : If event = #WM_SIZE
    m$ = m$ + "#WM_SIZE "
  EndIf : If event = #WM_ACTIVATE
    m$ = m$ + "#WM_ACTIVATE "
  EndIf : If event = #WM_SETFOCUS
    m$ = m$ + "#WM_SETFOCUS "
  EndIf : If event = #WM_KILLFOCUS
    m$ = m$ + "#WM_KILLFOCUS "
  EndIf : If event = #WM_ENABLE
    m$ = m$ + "#WM_ENABLE "
  EndIf : If event = #WM_SETREDRAW
    m$ = m$ + "#WM_SETREDRAW "
  EndIf : If event = #WM_SETTEXT
    m$ = m$ + "#WM_SETTEXT "
  EndIf : If event = #WM_GETTEXT
    m$ = m$ + "#WM_GETTEXT "
  EndIf : If event = #WM_GETTEXTLENGTH
    m$ = m$ + "#WM_GETTEXTLENGTH "
  EndIf : If event = #WM_PAINT
    m$ = m$ + "#WM_PAINT "
  EndIf : If event = #WM_CLOSE
    m$ = m$ + "#WM_CLOSE "
  EndIf : If event = #WM_QUERYENDSESSION
    m$ = m$ + "#WM_QUERYENDSESSION "
  EndIf : If event = #WM_QUIT
    m$ = m$ + "#WM_QUIT "
  EndIf : If event = #WM_QUERYOPEN
    m$ = m$ + "#WM_QUERYOPEN "
  EndIf : If event = #WM_ERASEBKGND
    m$ = m$ + "#WM_ERASEBKGND "
  EndIf : If event = #WM_SYSCOLORCHANGE
    m$ = m$ + "#WM_SYSCOLORCHANGE "
  EndIf : If event = #WM_ENDSESSION
    m$ = m$ + "#WM_ENDSESSION "
  EndIf : If event = #WM_SHOWWINDOW
    m$ = m$ + "#WM_SHOWWINDOW "
  EndIf : If event = #WM_WININICHANGE
    m$ = m$ + "#WM_WININICHANGE "
  EndIf : If event = #WM_DEVMODECHANGE
    m$ = m$ + "#WM_DEVMODECHANGE "
  EndIf : If event = #WM_ACTIVATEAPP
    m$ = m$ + "#WM_ACTIVATEAPP "
  EndIf : If event = #WM_FONTCHANGE
    m$ = m$ + "#WM_FONTCHANGE "
  EndIf : If event = #WM_TIMECHANGE
    m$ = m$ + "#WM_TIMECHANGE "
  EndIf : If event = #WM_CANCELMODE
    m$ = m$ + "#WM_CANCELMODE "
  EndIf : If event = #WM_SETCURSOR
    m$ = m$ + "#WM_SETCURSOR "
  EndIf : If event = #WM_MOUSEACTIVATE
    m$ = m$ + "#WM_MOUSEACTIVATE "
  EndIf : If event = #WM_CHILDACTIVATE
    m$ = m$ + "#WM_CHILDACTIVATE "
  EndIf : If event = #WM_QUEUESYNC
    m$ = m$ + "#WM_QUEUESYNC "
  EndIf : If event = #WM_GETMINMAXINFO
    m$ = m$ + "#WM_GETMINMAXINFO "
  EndIf : If event = #WM_PAINTICON
    m$ = m$ + "#WM_PAINTICON "
  EndIf : If event = #WM_ICONERASEBKGND
    m$ = m$ + "#WM_ICONERASEBKGND "
  EndIf : If event = #WM_NEXTDLGCTL
    m$ = m$ + "#WM_NEXTDLGCTL "
  EndIf : If event = #WM_SPOOLERSTATUS
    m$ = m$ + "#WM_SPOOLERSTATUS "
  EndIf : If event = #WM_DRAWITEM
    m$ = m$ + "#WM_DRAWITEM "
  EndIf : If event = #WM_MEASUREITEM
    m$ = m$ + "#WM_MEASUREITEM "
  EndIf : If event = #WM_DELETEITEM
    m$ = m$ + "#WM_DELETEITEM "
  EndIf : If event = #WM_VKEYTOITEM
    m$ = m$ + "#WM_VKEYTOITEM "
  EndIf : If event = #WM_CHARTOITEM
    m$ = m$ + "#WM_CHARTOITEM "
  EndIf : If event = #WM_SETFONT
    m$ = m$ + "#WM_SETFONT "
  EndIf : If event = #WM_GETFONT
    m$ = m$ + "#WM_GETFONT "
  EndIf : If event = #WM_SETHOTKEY
    m$ = m$ + "#WM_SETHOTKEY "
  EndIf : If event = #WM_GETHOTKEY
    m$ = m$ + "#WM_GETHOTKEY "
  EndIf : If event = #WM_QUERYDRAGICON
    m$ = m$ + "#WM_QUERYDRAGICON "
  EndIf : If event = #WM_COMPAREITEM
    m$ = m$ + "#WM_COMPAREITEM "
  EndIf : If event = #WM_COMPACTING
    m$ = m$ + "#WM_COMPACTING "
  EndIf : If event = #WM_OTHERWINDOWCREATED
    m$ = m$ + "#WM_OTHERWINDOWCREATED "
  EndIf : If event = #WM_OTHERWINDOWDESTROYED
    m$ = m$ + "#WM_OTHERWINDOWDESTROYED "
  EndIf : If event = #WM_COMMNOTIFY
    m$ = m$ + "#WM_COMMNOTIFY "
  EndIf : If event = #WM_WINDOWPOSCHANGING
    m$ = m$ + "#WM_WINDOWPOSCHANGING "
  EndIf : If event = #WM_WINDOWPOSCHANGED
    m$ = m$ + "#WM_WINDOWPOSCHANGED "
  EndIf : If event = #WM_POWER
    m$ = m$ + "#WM_POWER "
  EndIf : If event = #WM_COPYDATA
    m$ = m$ + "#WM_COPYDATA "
  EndIf : If event = #WM_CANCELJOURNAL
    m$ = m$ + "#WM_CANCELJOURNAL "
  EndIf : If event = #WM_NOTIFY
    m$ = m$ + "#WM_NOTIFY "
  EndIf : If event = #WM_INPUTLANGUAGECHANGEREQUEST
    m$ = m$ + "#WM_INPUTLANGUAGECHANGEREQUEST "
  EndIf : If event = #WM_INPUTLANGUAGECHANGE
    m$ = m$ + "#WM_INPUTLANGUAGECHANGE "
  EndIf : If event = #WM_TCARD
    m$ = m$ + "#WM_TCARD "
  EndIf : If event = #WM_HELP
    m$ = m$ + "#WM_HELP "
  EndIf : If event = #WM_USERCHANGED
    m$ = m$ + "#WM_USERCHANGED "
  EndIf : If event = #WM_NOTIFYFORMAT
    m$ = m$ + "#WM_NOTIFYFORMAT "
  EndIf : If event = #WM_CONTEXTMENU
    m$ = m$ + "#WM_CONTEXTMENU "
  EndIf : If event = #WM_STYLECHANGING
    m$ = m$ + "#WM_STYLECHANGING "
  EndIf : If event = #WM_STYLECHANGED
    m$ = m$ + "#WM_STYLECHANGED "
  EndIf : If event = #WM_DISPLAYCHANGE
    m$ = m$ + "#WM_DISPLAYCHANGE "
  EndIf : If event = #WM_GETICON
    m$ = m$ + "#WM_GETICON "
  EndIf : If event = #WM_SETICON
    m$ = m$ + "#WM_SETICON "
  EndIf : If event = #WM_NCCREATE
    m$ = m$ + "#WM_NCCREATE "
  EndIf : If event = #WM_NCDESTROY
    m$ = m$ + "#WM_NCDESTROY "
  EndIf : If event = #WM_NCCALCSIZE
    m$ = m$ + "#WM_NCCALCSIZE "
  EndIf : If event = #WM_NCHITTEST
    m$ = m$ + "#WM_NCHITTEST "
  EndIf : If event = #WM_NCPAINT
    m$ = m$ + "#WM_NCPAINT "
  EndIf : If event = #WM_NCACTIVATE
    m$ = m$ + "#WM_NCACTIVATE "
  EndIf : If event = #WM_GETDLGCODE
    m$ = m$ + "#WM_GETDLGCODE "
  EndIf : If event = #WM_NCMOUSEMOVE
    m$ = m$ + "#WM_NCMOUSEMOVE "
  EndIf : If event = #WM_NCLBUTTONDOWN
    m$ = m$ + "#WM_NCLBUTTONDOWN "
  EndIf : If event = #WM_NCLBUTTONUP
    m$ = m$ + "#WM_NCLBUTTONUP "
  EndIf : If event = #WM_NCLBUTTONDBLCLK
    m$ = m$ + "#WM_NCLBUTTONDBLCLK "
  EndIf : If event = #WM_NCRBUTTONDOWN
    m$ = m$ + "#WM_NCRBUTTONDOWN "
  EndIf : If event = #WM_NCRBUTTONUP
    m$ = m$ + "#WM_NCRBUTTONUP "
  EndIf : If event = #WM_NCRBUTTONDBLCLK
    m$ = m$ + "#WM_NCRBUTTONDBLCLK "
  EndIf : If event = #WM_NCMBUTTONDOWN
    m$ = m$ + "#WM_NCMBUTTONDOWN "
  EndIf : If event = #WM_NCMBUTTONUP
    m$ = m$ + "#WM_NCMBUTTONUP "
  EndIf : If event = #WM_NCMBUTTONDBLCLK
    m$ = m$ + "#WM_NCMBUTTONDBLCLK "
  EndIf : If event = #WM_KEYFIRST
    m$ = m$ + "#WM_KEYFIRST "
  EndIf : If event = #WM_KEYDOWN
    m$ = m$ + "#WM_KEYDOWN "
  EndIf : If event = #WM_KEYUP
    m$ = m$ + "#WM_KEYUP "
  EndIf : If event = #WM_CHAR
    m$ = m$ + "#WM_CHAR "
  EndIf : If event = #WM_DEADCHAR
    m$ = m$ + "#WM_DEADCHAR "
  EndIf : If event = #WM_SYSKEYDOWN
    m$ = m$ + "#WM_SYSKEYDOWN "
  EndIf : If event = #WM_SYSKEYUP
    m$ = m$ + "#WM_SYSKEYUP "
  EndIf : If event = #WM_SYSCHAR
    m$ = m$ + "#WM_SYSCHAR "
  EndIf : If event = #WM_SYSDEADCHAR
    m$ = m$ + "#WM_SYSDEADCHAR "
  EndIf : If event = #WM_KEYLAST
    m$ = m$ + "#WM_KEYLAST "
  EndIf : If event = #WM_INITDIALOG
    m$ = m$ + "#WM_INITDIALOG "
  EndIf : If event = #WM_COMMAND
    m$ = m$ + "#WM_COMMAND "
  EndIf : If event = #WM_SYSCOMMAND
    m$ = m$ + "#WM_SYSCOMMAND "
  EndIf : If event = #WM_TIMER
    m$ = m$ + "#WM_TIMER "
  EndIf : If event = #WM_HSCROLL
    m$ = m$ + "#WM_HSCROLL "
  EndIf : If event = #WM_VSCROLL
    m$ = m$ + "#WM_VSCROLL "
  EndIf : If event = #WM_INITMENU
    m$ = m$ + "#WM_INITMENU "
  EndIf : If event = #WM_INITMENUPOPUP
    m$ = m$ + "#WM_INITMENUPOPUP "
  EndIf : If event = #WM_MENUSELECT
    m$ = m$ + "#WM_MENUSELECT "
  EndIf : If event = #WM_MENUCHAR
    m$ = m$ + "#WM_MENUCHAR "
  EndIf : If event = #WM_ENTERIDLE
    m$ = m$ + "#WM_ENTERIDLE "
  EndIf : If event = #WM_CTLCOLORMSGBOX
    m$ = m$ + "#WM_CTLCOLORMSGBOX "
  EndIf : If event = #WM_CTLCOLOREDIT
    m$ = m$ + "#WM_CTLCOLOREDIT "
  EndIf : If event = #WM_CTLCOLORLISTBOX
    m$ = m$ + "#WM_CTLCOLORLISTBOX "
  EndIf : If event = #WM_CTLCOLORBTN
    m$ = m$ + "#WM_CTLCOLORBTN "
  EndIf : If event = #WM_CTLCOLORDLG
    m$ = m$ + "#WM_CTLCOLORDLG "
  EndIf : If event = #WM_CTLCOLORSCROLLBAR
    m$ = m$ + "#WM_CTLCOLORSCROLLBAR "
  EndIf : If event = #WM_CTLCOLORSTATIC
    m$ = m$ + "#WM_CTLCOLORSTATIC "
  EndIf : If event = #WM_MOUSEFIRST
    m$ = m$ + "#WM_MOUSEFIRST "
  EndIf : If event = #WM_MOUSEMOVE
    m$ = m$ + "#WM_MOUSEMOVE "
  EndIf : If event = #WM_LBUTTONDOWN
    m$ = m$ + "#WM_LBUTTONDOWN "
  EndIf : If event = #WM_LBUTTONUP
    m$ = m$ + "#WM_LBUTTONUP "
  EndIf : If event = #WM_LBUTTONDBLCLK
    m$ = m$ + "#WM_LBUTTONDBLCLK "
  EndIf : If event = #WM_RBUTTONDOWN
    m$ = m$ + "#WM_RBUTTONDOWN "
  EndIf : If event = #WM_RBUTTONUP
    m$ = m$ + "#WM_RBUTTONUP "
  EndIf : If event = #WM_RBUTTONDBLCLK
    m$ = m$ + "#WM_RBUTTONDBLCLK "
  EndIf : If event = #WM_MBUTTONDOWN
    m$ = m$ + "#WM_MBUTTONDOWN "
  EndIf : If event = #WM_MBUTTONUP
    m$ = m$ + "#WM_MBUTTONUP "
  EndIf : If event = #WM_MBUTTONDBLCLK
    m$ = m$ + "#WM_MBUTTONDBLCLK "
  EndIf : If event = #WM_MOUSELAST
    m$ = m$ + "#WM_MOUSELAST "
  EndIf : If event = #WM_PARENTNOTIFY
    m$ = m$ + "#WM_PARENTNOTIFY "
  EndIf : If event = #WM_ENTERMENULOOP
    m$ = m$ + "#WM_ENTERMENULOOP "
  EndIf : If event = #WM_EXITMENULOOP
    m$ = m$ + "#WM_EXITMENULOOP "
  EndIf : If event = #WM_MDICREATE
    m$ = m$ + "#WM_MDICREATE "
  EndIf : If event = #WM_MDIDESTROY
    m$ = m$ + "#WM_MDIDESTROY "
  EndIf : If event = #WM_MDIACTIVATE
    m$ = m$ + "#WM_MDIACTIVATE "
  EndIf : If event = #WM_MDIRESTORE
    m$ = m$ + "#WM_MDIRESTORE "
  EndIf : If event = #WM_MDINEXT
    m$ = m$ + "#WM_MDINEXT "
  EndIf : If event = #WM_MDIMAXIMIZE
    m$ = m$ + "#WM_MDIMAXIMIZE "
  EndIf : If event = #WM_MDITILE
    m$ = m$ + "#WM_MDITILE "
  EndIf : If event = #WM_MDICASCADE
    m$ = m$ + "#WM_MDICASCADE "
  EndIf : If event = #WM_MDIICONARRANGE
    m$ = m$ + "#WM_MDIICONARRANGE "
  EndIf : If event = #WM_MDIGETACTIVE
    m$ = m$ + "#WM_MDIGETACTIVE "
  EndIf : If event = #WM_MDISETMENU
    m$ = m$ + "#WM_MDISETMENU "
  EndIf : If event = #WM_DROPFILES
    m$ = m$ + "#WM_DROPFILES "
  EndIf : If event = #WM_MDIREFRESHMENU
    m$ = m$ + "#WM_MDIREFRESHMENU "
  EndIf : If event = #WM_CUT
    m$ = m$ + "#WM_CUT "
  EndIf : If event = #WM_COPY
    m$ = m$ + "#WM_COPY "
  EndIf : If event = #WM_PASTE
    m$ = m$ + "#WM_PASTE "
  EndIf : If event = #WM_CLEAR
    m$ = m$ + "#WM_CLEAR "
  EndIf : If event = #WM_UNDO
    m$ = m$ + "#WM_UNDO "
  EndIf : If event = #WM_RENDERFORMAT
    m$ = m$ + "#WM_RENDERFORMAT "
  EndIf : If event = #WM_RENDERALLFORMATS
    m$ = m$ + "#WM_RENDERALLFORMATS "
  EndIf : If event = #WM_DESTROYCLIPBOARD
    m$ = m$ + "#WM_DESTROYCLIPBOARD "
  EndIf : If event = #WM_DRAWCLIPBOARD
    m$ = m$ + "#WM_DRAWCLIPBOARD "
  EndIf : If event = #WM_PAINTCLIPBOARD
    m$ = m$ + "#WM_PAINTCLIPBOARD "
  EndIf : If event = #WM_VSCROLLCLIPBOARD
    m$ = m$ + "#WM_VSCROLLCLIPBOARD "
  EndIf : If event = #WM_SIZECLIPBOARD
    m$ = m$ + "#WM_SIZECLIPBOARD "
  EndIf : If event = #WM_ASKCBFORMATNAME
    m$ = m$ + "#WM_ASKCBFORMATNAME "
  EndIf : If event = #WM_CHANGECBCHAIN
    m$ = m$ + "#WM_CHANGECBCHAIN "
  EndIf : If event = #WM_HSCROLLCLIPBOARD
    m$ = m$ + "#WM_HSCROLLCLIPBOARD "
  EndIf : If event = #WM_QUERYNEWPALETTE
    m$ = m$ + "#WM_QUERYNEWPALETTE "
  EndIf : If event = #WM_PALETTEISCHANGING
    m$ = m$ + "#WM_PALETTEISCHANGING "
  EndIf : If event = #WM_PALETTECHANGED
    m$ = m$ + "#WM_PALETTECHANGED "
  EndIf : If event = #WM_HOTKEY
    m$ = m$ + "#WM_HOTKEY "
  EndIf : If event = #WM_PRINTCLIENT
    m$ = m$ + "#WM_PRINTCLIENT "
  EndIf : If event = #WM_PENWINFIRST
    m$ = m$ + "#WM_PENWINFIRST "
  EndIf : If event = #WM_PENWINLAST
    m$ = m$ + "#WM_PENWINLAST "
  EndIf : If event = #EM_GETSEL
    m$ = m$ + "#EM_GETSEL "
  EndIf : If event = #EM_SETSEL
    m$ = m$ + "#EM_SETSEL "
  EndIf : If event = #EM_GETRECT
    m$ = m$ + "#EM_GETRECT "
  EndIf : If event = #EM_SETRECT
    m$ = m$ + "#EM_SETRECT "
  EndIf : If event = #EM_SETRECTNP
    m$ = m$ + "#EM_SETRECTNP "
  EndIf : If event = #EM_SCROLL
    m$ = m$ + "#EM_SCROLL "
  EndIf : If event = #EM_LINESCROLL
    m$ = m$ + "#EM_LINESCROLL "
  EndIf : If event = #EM_SCROLLCARET
    m$ = m$ + "#EM_SCROLLCARET "
  EndIf : If event = #EM_GETMODIFY
    m$ = m$ + "#EM_GETMODIFY "
  EndIf : If event = #EM_SETMODIFY
    m$ = m$ + "#EM_SETMODIFY "
  EndIf : If event = #EM_GETLINECOUNT
    m$ = m$ + "#EM_GETLINECOUNT "
  EndIf : If event = #EM_LINEINDEX
    m$ = m$ + "#EM_LINEINDEX "
  EndIf : If event = #EM_SETHANDLE
    m$ = m$ + "#EM_SETHANDLE "
  EndIf : If event = #EM_GETHANDLE
    m$ = m$ + "#EM_GETHANDLE "
  EndIf : If event = #EM_GETTHUMB
    m$ = m$ + "#EM_GETTHUMB "
  EndIf : If event = #EM_LINELENGTH
    m$ = m$ + "#EM_LINELENGTH "
  EndIf : If event = #EM_REPLACESEL
    m$ = m$ + "#EM_REPLACESEL "
  EndIf : If event = #EM_GETLINE
    m$ = m$ + "#EM_GETLINE "
  EndIf : If event = #EM_LIMITTEXT
    m$ = m$ + "#EM_LIMITTEXT "
  EndIf : If event = #EM_CANUNDO
    m$ = m$ + "#EM_CANUNDO "
  EndIf : If event = #EM_UNDO
    m$ = m$ + "#EM_UNDO "
  EndIf : If event = #EM_FMTLINES
    m$ = m$ + "#EM_FMTLINES "
  EndIf : If event = #EM_LINEFROMCHAR
    m$ = m$ + "#EM_LINEFROMCHAR "
  EndIf : If event = #EM_SETTABSTOPS
    m$ = m$ + "#EM_SETTABSTOPS "
  EndIf : If event = #EM_SETPASSWORDCHAR
    m$ = m$ + "#EM_SETPASSWORDCHAR "
  EndIf : If event = #EM_EMPTYUNDOBUFFER
    m$ = m$ + "#EM_EMPTYUNDOBUFFER "
  EndIf : If event = #EM_GETFIRSTVISIBLELINE
    m$ = m$ + "#EM_GETFIRSTVISIBLELINE "
  EndIf : If event = #EM_SETREADONLY
    m$ = m$ + "#EM_SETREADONLY "
  EndIf : If event = #EM_SETWORDBREAKPROC
    m$ = m$ + "#EM_SETWORDBREAKPROC "
  EndIf : If event = #EM_GETWORDBREAKPROC
    m$ = m$ + "#EM_GETWORDBREAKPROC "
  EndIf : If event = #EM_GETPASSWORDCHAR
    m$ = m$ + "#EM_GETPASSWORDCHAR "
  EndIf : If event = #EM_SETMARGINS
    m$ = m$ + "#EM_SETMARGINS "
  EndIf : If event = #EM_GETMARGINS
    m$ = m$ + "#EM_GETMARGINS "
  EndIf : If event = #EM_SETLIMITTEXT
    m$ = m$ + "#EM_SETLIMITTEXT "
  EndIf : If event = #EM_GETLIMITTEXT
    m$ = m$ + "#EM_GETLIMITTEXT "
  EndIf : If event = #EM_POSFROMCHAR
    m$ = m$ + "#EM_POSFROMCHAR "
  EndIf : If event = #EM_CHARFROMPOS
    m$ = m$ + "#EM_CHARFROMPOS "
  EndIf : If event = #BM_GETCHECK
    m$ = m$ + "#BM_GETCHECK "
  EndIf : If event = #BM_SETCHECK
    m$ = m$ + "#BM_SETCHECK "
  EndIf : If event = #BM_GETSTATE
    m$ = m$ + "#BM_GETSTATE "
  EndIf : If event = #BM_SETSTATE
    m$ = m$ + "#BM_SETSTATE "
  EndIf : If event = #BM_SETSTYLE
    m$ = m$ + "#BM_SETSTYLE "
  EndIf : If event = #BM_CLICK
    m$ = m$ + "#BM_CLICK "
  EndIf : If event = #BM_GETIMAGE
    m$ = m$ + "#BM_GETIMAGE "
  EndIf : If event = #BM_SETIMAGE
    m$ = m$ + "#BM_SETIMAGE "
  EndIf : If event = #STM_SETICON
    m$ = m$ + "#STM_SETICON "
  EndIf : If event = #STM_GETICON
    m$ = m$ + "#STM_GETICON "
  EndIf : If event = #STM_MSGMAX
    m$ = m$ + "#STM_MSGMAX "
  EndIf : If event = #DM_GETDEFID
    m$ = m$ + "#DM_GETDEFID "
  EndIf : If event = #DM_SETDEFID
    m$ = m$ + "#DM_SETDEFID "
  EndIf : If event = #LB_CTLCODE
    m$ = m$ + "#LB_CTLCODE "
  EndIf : If event = #LB_OKAY
    m$ = m$ + "#LB_OKAY "
  EndIf : If event = #LB_ERR
    m$ = m$ + "#LB_ERR "
  EndIf : If event = #LB_ERRSPACE
    m$ = m$ + "#LB_ERRSPACE "
  EndIf : If event = #LB_ADDSTRING
    m$ = m$ + "#LB_ADDSTRING "
  EndIf : If event = #LB_INSERTSTRING
    m$ = m$ + "#LB_INSERTSTRING "
  EndIf : If event = #LB_DELETESTRING
    m$ = m$ + "#LB_DELETESTRING "
  EndIf : If event = #LB_SELITEMRANGEEX
    m$ = m$ + "#LB_SELITEMRANGEEX "
  EndIf : If event = #LB_RESETCONTENT
    m$ = m$ + "#LB_RESETCONTENT "
  EndIf : If event = #LB_SETSEL
    m$ = m$ + "#LB_SETSEL "
  EndIf : If event = #LB_SETCURSEL
    m$ = m$ + "#LB_SETCURSEL "
  EndIf : If event = #LB_GETSEL
    m$ = m$ + "#LB_GETSEL "
  EndIf : If event = #LB_GETCURSEL
    m$ = m$ + "#LB_GETCURSEL "
  EndIf : If event = #LB_GETTEXT
    m$ = m$ + "#LB_GETTEXT "
  EndIf : If event = #LB_GETTEXTLEN
    m$ = m$ + "#LB_GETTEXTLEN "
  EndIf : If event = #LB_GETCOUNT
    m$ = m$ + "#LB_GETCOUNT "
  EndIf : If event = #LB_SELECTSTRING
    m$ = m$ + "#LB_SELECTSTRING "
  EndIf : If event = #LB_DIR
    m$ = m$ + "#LB_DIR "
  EndIf : If event = #LB_GETTOPINDEX
    m$ = m$ + "#LB_GETTOPINDEX "
  EndIf : If event = #LB_FINDSTRING
    m$ = m$ + "#LB_FINDSTRING "
  EndIf : If event = #LB_GETSELCOUNT
    m$ = m$ + "#LB_GETSELCOUNT "
  EndIf : If event = #LB_GETSELITEMS
    m$ = m$ + "#LB_GETSELITEMS "
  EndIf : If event = #LB_SETTABSTOPS
    m$ = m$ + "#LB_SETTABSTOPS "
  EndIf : If event = #LB_GETHORIZONTALEXTENT
    m$ = m$ + "#LB_GETHORIZONTALEXTENT "
  EndIf : If event = #LB_SETHORIZONTALEXTENT
    m$ = m$ + "#LB_SETHORIZONTALEXTENT "
  EndIf : If event = #LB_SETCOLUMNWIDTH
    m$ = m$ + "#LB_SETCOLUMNWIDTH "
  EndIf : If event = #LB_ADDFILE
    m$ = m$ + "#LB_ADDFILE "
  EndIf : If event = #LB_SETTOPINDEX
    m$ = m$ + "#LB_SETTOPINDEX "
  EndIf : If event = #LB_GETITEMRECT
    m$ = m$ + "#LB_GETITEMRECT "
  EndIf : If event = #LB_GETITEMDATA
    m$ = m$ + "#LB_GETITEMDATA "
  EndIf : If event = #LB_SETITEMDATA
    m$ = m$ + "#LB_SETITEMDATA "
  EndIf : If event = #LB_SELITEMRANGE
    m$ = m$ + "#LB_SELITEMRANGE "
  EndIf : If event = #LB_SETANCHORINDEX
    m$ = m$ + "#LB_SETANCHORINDEX "
  EndIf : If event = #LB_GETANCHORINDEX
    m$ = m$ + "#LB_GETANCHORINDEX "
  EndIf : If event = #LB_SETCARETINDEX
    m$ = m$ + "#LB_SETCARETINDEX "
  EndIf : If event = #LB_GETCARETINDEX
    m$ = m$ + "#LB_GETCARETINDEX "
  EndIf : If event = #LB_SETITEMHEIGHT
    m$ = m$ + "#LB_SETITEMHEIGHT "
  EndIf : If event = #LB_GETITEMHEIGHT
    m$ = m$ + "#LB_GETITEMHEIGHT "
  EndIf : If event = #LB_FINDSTRINGEXACT
    m$ = m$ + "#LB_FINDSTRINGEXACT "
  EndIf : If event = #LB_SETLOCALE
    m$ = m$ + "#LB_SETLOCALE "
  EndIf : If event = #LB_GETLOCALE
    m$ = m$ + "#LB_GETLOCALE "
  EndIf : If event = #LB_SETCOUNT
    m$ = m$ + "#LB_SETCOUNT "
  EndIf : If event = #LB_MSGMAX
    m$ = m$ + "#LB_MSGMAX "
  EndIf : If event = #CB_OKAY
    m$ = m$ + "#CB_OKAY "
  EndIf : If event = #CB_ERR
    m$ = m$ + "#CB_ERR "
  EndIf : If event = #CB_ERRSPACE
    m$ = m$ + "#CB_ERRSPACE "
  EndIf : If event = #CB_GETEDITSEL
    m$ = m$ + "#CB_GETEDITSEL "
  EndIf : If event = #CB_LIMITTEXT
    m$ = m$ + "#CB_LIMITTEXT "
  EndIf : If event = #CB_SETEDITSEL
    m$ = m$ + "#CB_SETEDITSEL "
  EndIf : If event = #CB_ADDSTRING
    m$ = m$ + "#CB_ADDSTRING "
  EndIf : If event = #CB_DELETESTRING
    m$ = m$ + "#CB_DELETESTRING "
  EndIf : If event = #CB_DIR
    m$ = m$ + "#CB_DIR "
  EndIf : If event = #CB_GETCOUNT
    m$ = m$ + "#CB_GETCOUNT "
  EndIf : If event = #CB_GETCURSEL
    m$ = m$ + "#CB_GETCURSEL "
  EndIf : If event = #CB_GETLBTEXT
    m$ = m$ + "#CB_GETLBTEXT "
  EndIf : If event = #CB_GETLBTEXTLEN
    m$ = m$ + "#CB_GETLBTEXTLEN "
  EndIf : If event = #CB_INSERTSTRING
    m$ = m$ + "#CB_INSERTSTRING "
  EndIf : If event = #CB_RESETCONTENT
    m$ = m$ + "#CB_RESETCONTENT "
  EndIf : If event = #CB_FINDSTRING
    m$ = m$ + "#CB_FINDSTRING "
  EndIf : If event = #CB_SELECTSTRING
    m$ = m$ + "#CB_SELECTSTRING "
  EndIf : If event = #CB_SETCURSEL
    m$ = m$ + "#CB_SETCURSEL "
  EndIf : If event = #CB_SHOWDROPDOWN
    m$ = m$ + "#CB_SHOWDROPDOWN "
  EndIf : If event = #CB_GETITEMDATA
    m$ = m$ + "#CB_GETITEMDATA "
  EndIf : If event = #CB_SETITEMDATA
    m$ = m$ + "#CB_SETITEMDATA "
  EndIf : If event = #CB_GETDROPPEDCONTROLRECT
    m$ = m$ + "#CB_GETDROPPEDCONTROLRECT "
  EndIf : If event = #CB_SETITEMHEIGHT
    m$ = m$ + "#CB_SETITEMHEIGHT "
  EndIf : If event = #CB_GETITEMHEIGHT
    m$ = m$ + "#CB_GETITEMHEIGHT "
  EndIf : If event = #CB_SETEXTENDEDUI
    m$ = m$ + "#CB_SETEXTENDEDUI "
  EndIf : If event = #CB_GETEXTENDEDUI
    m$ = m$ + "#CB_GETEXTENDEDUI "
  EndIf : If event = #CB_GETDROPPEDSTATE
    m$ = m$ + "#CB_GETDROPPEDSTATE "
  EndIf : If event = #CB_FINDSTRINGEXACT
    m$ = m$ + "#CB_FINDSTRINGEXACT "
  EndIf : If event = #CB_SETLOCALE
    m$ = m$ + "#CB_SETLOCALE "
  EndIf : If event = #CB_GETLOCALE
    m$ = m$ + "#CB_GETLOCALE "
  EndIf : If event = #CB_GETTOPINDEX
    m$ = m$ + "#CB_GETTOPINDEX "
  EndIf : If event = #CB_SETTOPINDEX
    m$ = m$ + "#CB_SETTOPINDEX "
  EndIf : If event = #CB_GETHORIZONTALEXTENT
    m$ = m$ + "#CB_GETHORIZONTALEXTENT "
  EndIf : If event = #CB_SETHORIZONTALEXTENT
    m$ = m$ + "#CB_SETHORIZONTALEXTENT "
  EndIf : If event = #CB_GETDROPPEDWIDTH
    m$ = m$ + "#CB_GETDROPPEDWIDTH "
  EndIf : If event = #CB_SETDROPPEDWIDTH
    m$ = m$ + "#CB_SETDROPPEDWIDTH "
  EndIf : If event = #CB_INITSTORAGE
    m$ = m$ + "#CB_INITSTORAGE "
  EndIf : If event = #CB_MSGMAX
    m$ = m$ + "#CB_MSGMAX "
  EndIf : If event = #SBM_SETPOS
    m$ = m$ + "#SBM_SETPOS "
  EndIf : If event = #SBM_GETPOS
    m$ = m$ + "#SBM_GETPOS "
  EndIf : If event = #SBM_SETRANGE
    m$ = m$ + "#SBM_SETRANGE "
  EndIf : If event = #SBM_SETRANGEREDRAW
    m$ = m$ + "#SBM_SETRANGEREDRAW "
  EndIf : If event = #SBM_GETRANGE
    m$ = m$ + "#SBM_GETRANGE "
  EndIf : If event = #SBM_ENABLE_ARROWS
    m$ = m$ + "#SBM_ENABLE_ARROWS "
  EndIf : If event = #WM_DDE_FIRST
    m$ = m$ + "#WM_DDE_FIRST "
  EndIf : If event = #WM_DDE_INITIATE
    m$ = m$ + "#WM_DDE_INITIATE "
  EndIf : If event = #WM_DDE_TERMINATE
    m$ = m$ + "#WM_DDE_TERMINATE "
  EndIf : If event = #WM_DDE_ADVISE
    m$ = m$ + "#WM_DDE_ADVISE "
  EndIf : If event = #WM_DDE_UNADVISE
    m$ = m$ + "#WM_DDE_UNADVISE "
  EndIf : If event = #WM_DDE_ACK
    m$ = m$ + "#WM_DDE_ACK "
  EndIf : If event = #WM_DDE_DATA
    m$ = m$ + "#WM_DDE_DATA "
  EndIf : If event = #WM_DDE_REQUEST
    m$ = m$ + "#WM_DDE_REQUEST "
  EndIf : If event = #WM_DDE_POKE
    m$ = m$ + "#WM_DDE_POKE "
  EndIf : If event = #WM_DDE_EXECUTE
    m$ = m$ + "#WM_DDE_EXECUTE "
  EndIf : If event = #WM_DDE_LAST
    m$ = m$ + "#WM_DDE_LAST "
  EndIf : If event = #WM_CONVERTREQUESTEX
    m$ = m$ + "#WM_CONVERTREQUESTEX "
  EndIf : If event = #WM_IME_STARTCOMPOSITION
    m$ = m$ + "#WM_IME_STARTCOMPOSITION "
  EndIf : If event = #WM_IME_ENDCOMPOSITION
    m$ = m$ + "#WM_IME_ENDCOMPOSITION "
  EndIf : If event = #WM_IME_COMPOSITION
    m$ = m$ + "#WM_IME_COMPOSITION "
  EndIf : If event = #WM_IME_KEYLAST
    m$ = m$ + "#WM_IME_KEYLAST "
  EndIf : If event = #WM_IME_SETCONTEXT
    m$ = m$ + "#WM_IME_SETCONTEXT "
  EndIf : If event = #WM_IME_NOTIFY
    m$ = m$ + "#WM_IME_NOTIFY "
  EndIf : If event = #WM_IME_CONTROL
    m$ = m$ + "#WM_IME_CONTROL "
  EndIf : If event = #WM_IME_COMPOSITIONFULL
    m$ = m$ + "#WM_IME_COMPOSITIONFULL "
  EndIf : If event = #WM_IME_SELECT
    m$ = m$ + "#WM_IME_SELECT "
  EndIf : If event = #WM_IME_CHAR
    m$ = m$ + "#WM_IME_CHAR "
  EndIf : If event = #WM_IME_KEYDOWN
    m$ = m$ + "#WM_IME_KEYDOWN "
  EndIf : If event = #WM_IME_KEYUP
    m$ = m$ + "#WM_IME_KEYUP "
  EndIf : If event = #ABM_NEW
    m$ = m$ + "#ABM_NEW "
  EndIf : If event = #ABM_REMOVE
    m$ = m$ + "#ABM_REMOVE "
  EndIf : If event = #ABM_QUERYPOS
    m$ = m$ + "#ABM_QUERYPOS "
  EndIf : If event = #ABM_SETPOS
    m$ = m$ + "#ABM_SETPOS "
  EndIf : If event = #ABM_GETSTATE
    m$ = m$ + "#ABM_GETSTATE "
  EndIf : If event = #ABM_GETTASKBARPOS
    m$ = m$ + "#ABM_GETTASKBARPOS "
  EndIf : If event = #ABM_ACTIVATE
    m$ = m$ + "#ABM_ACTIVATE "
  EndIf : If event = #ABM_GETAUTOHIDEBAR
    m$ = m$ + "#ABM_GETAUTOHIDEBAR "
  EndIf : If event = #ABM_SETAUTOHIDEBAR
    m$ = m$ + "#ABM_SETAUTOHIDEBAR "
  EndIf : If event = #ABM_WINDOWPOSCHANGED
    m$ = m$ + "#ABM_WINDOWPOSCHANGED "
  EndIf : If event = #CDM_FIRST
    m$ = m$ + "#CDM_FIRST "
  EndIf : If event = #CDM_LAST
    m$ = m$ + "#CDM_LAST "
  EndIf : If event = #CDM_GETSPEC
    m$ = m$ + "#CDM_GETSPEC "
  EndIf : If event = #CDM_GETFILEPATH
    m$ = m$ + "#CDM_GETFILEPATH "
  EndIf : If event = #CDM_GETFOLDERPATH
    m$ = m$ + "#CDM_GETFOLDERPATH "
  EndIf : If event = #CDM_GETFOLDERIDLIST
    m$ = m$ + "#CDM_GETFOLDERIDLIST "
  EndIf : If event = #CDM_SETCONTROLTEXT
    m$ = m$ + "#CDM_SETCONTROLTEXT "
  EndIf : If event = #CDM_HIDECONTROL
    m$ = m$ + "#CDM_HIDECONTROL "
  EndIf : If event = #CDM_SETDEFEXT
    m$ = m$ + "#CDM_SETDEFEXT "
  EndIf : If event = #WM_PSD_PAGESETUPDLG
    m$ = m$ + "#WM_PSD_PAGESETUPDLG "
  EndIf : If event = #WM_PSD_FULLPAGERECT
    m$ = m$ + "#WM_PSD_FULLPAGERECT "
  EndIf : If event = #WM_PSD_MINMARGINRECT
    m$ = m$ + "#WM_PSD_MINMARGINRECT "
  EndIf : If event = #WM_PSD_MARGINRECT
    m$ = m$ + "#WM_PSD_MARGINRECT "
  EndIf : If event = #WM_PSD_GREEKTEXTRECT
    m$ = m$ + "#WM_PSD_GREEKTEXTRECT "
  EndIf : If event = #WM_PSD_ENVSTAMPRECT
    m$ = m$ + "#WM_PSD_ENVSTAMPRECT "
  EndIf : If event = #WM_PSD_YAFULLPAGERECT
    m$ = m$ + "#WM_PSD_YAFULLPAGERECT "
  EndIf : If event = #LVM_FIRST
    m$ = m$ + "#LVM_FIRST "
  EndIf : If event = #HDM_FIRST
    m$ = m$ + "#HDM_FIRST "
  EndIf : If event = #RB_INSERTBAND
    m$ = m$ + "#RB_INSERTBAND "
  EndIf : If event = #RB_DELETEBAND
    m$ = m$ + "#RB_DELETEBAND "
  EndIf : If event = #RB_GETBARINFO
    m$ = m$ + "#RB_GETBARINFO "
  EndIf : If event = #RB_SETBARINFO
    m$ = m$ + "#RB_SETBARINFO "
  EndIf : If event = #RB_GETBANDINFO
    m$ = m$ + "#RB_GETBANDINFO "
  EndIf : If event = #RB_SETBANDINFO
    m$ = m$ + "#RB_SETBANDINFO "
  EndIf : If event = #RB_SETPARENT
    m$ = m$ + "#RB_SETPARENT "
  EndIf : If event = #RB_HITTEST
    m$ = m$ + "#RB_HITTEST "
  EndIf : If event = #RB_GETRECT
    m$ = m$ + "#RB_GETRECT "
  EndIf : If event = #RB_GETBANDCOUNT
    m$ = m$ + "#RB_GETBANDCOUNT "
  EndIf : If event = #RB_GETROWCOUNT
    m$ = m$ + "#RB_GETROWCOUNT "
  EndIf : If event = #RB_GETROWHEIGHT
    m$ = m$ + "#RB_GETROWHEIGHT "
  EndIf : If event = #RB_IDTOINDEX
    m$ = m$ + "#RB_IDTOINDEX "
  EndIf : If event = #RB_GETTOOLTIPS
    m$ = m$ + "#RB_GETTOOLTIPS "
  EndIf : If event = #RB_SETTOOLTIPS
    m$ = m$ + "#RB_SETTOOLTIPS "
  EndIf : If event = #RB_SETBKCOLOR
    m$ = m$ + "#RB_SETBKCOLOR "
  EndIf : If event = #RB_GETBKCOLOR
    m$ = m$ + "#RB_GETBKCOLOR "
  EndIf : If event = #RB_SETTEXTCOLOR
    m$ = m$ + "#RB_SETTEXTCOLOR "
  EndIf : If event = #RB_GETTEXTCOLOR
    m$ = m$ + "#RB_GETTEXTCOLOR "
  EndIf : If event = #RB_SIZETORECT
    m$ = m$ + "#RB_SIZETORECT "
  EndIf : If event = #RB_SETCOLORSCHEME
    m$ = m$ + "#RB_SETCOLORSCHEME "
  EndIf : If event = #RB_GETCOLORSCHEME
    m$ = m$ + "#RB_GETCOLORSCHEME "
  EndIf : If event = #RB_BEGINDRAG
    m$ = m$ + "#RB_BEGINDRAG "
  EndIf : If event = #RB_ENDDRAG
    m$ = m$ + "#RB_ENDDRAG "
  EndIf : If event = #RB_DRAGMOVE
    m$ = m$ + "#RB_DRAGMOVE "
  EndIf : If event = #RB_GETBARHEIGHT
    m$ = m$ + "#RB_GETBARHEIGHT "
  EndIf : If event = #RB_MINIMIZEBAND
    m$ = m$ + "#RB_MINIMIZEBAND "
  EndIf : If event = #RB_MAXIMIZEBAND
    m$ = m$ + "#RB_MAXIMIZEBAND "
  EndIf : If event = #RB_GETDROPTARGET
    m$ = m$ + "#RB_GETDROPTARGET "
  EndIf : If event = #RB_GETBANDBORDERS
    m$ = m$ + "#RB_GETBANDBORDERS "
  EndIf : If event = #RB_SHOWBAND
    m$ = m$ + "#RB_SHOWBAND "
  EndIf : If event = #RB_SETPALETTE
    m$ = m$ + "#RB_SETPALETTE "
  EndIf : If event = #RB_GETPALETTE
    m$ = m$ + "#RB_GETPALETTE "
  EndIf : If event = #RB_MOVEBAND
    m$ = m$ + "#RB_MOVEBAND "
  EndIf : If event = #RB_SETUNICODEFORMAT
    m$ = m$ + "#RB_SETUNICODEFORMAT "
  EndIf : If event = #RB_GETUNICODEFORMAT
    m$ = m$ + "#RB_GETUNICODEFORMAT "
  EndIf : If event = #HDM_GETITEMCOUNT
    m$ = m$ + "#HDM_GETITEMCOUNT "
  EndIf : If event = #HDM_INSERTITEM
    m$ = m$ + "#HDM_INSERTITEM "
  EndIf : If event = #HDM_INSERTITEMW
    m$ = m$ + "#HDM_INSERTITEMW "
  EndIf : If event = #HDM_DELETEITEM
    m$ = m$ + "#HDM_DELETEITEM "
  EndIf : If event = #HDM_GETITEM
    m$ = m$ + "#HDM_GETITEM "
  EndIf : If event = #HDM_GETITEMW
    m$ = m$ + "#HDM_GETITEMW "
  EndIf : If event = #HDM_SETITEM
    m$ = m$ + "#HDM_SETITEM "
  EndIf : If event = #HDM_SETITEMW
    m$ = m$ + "#HDM_SETITEMW "
  EndIf : If event = #HDM_LAYOUT
    m$ = m$ + "#HDM_LAYOUT "
  EndIf : If event = #HDM_HITTEST
    m$ = m$ + "#HDM_HITTEST "
  EndIf : If event = #TB_ENABLEBUTTON
    m$ = m$ + "#TB_ENABLEBUTTON "
  EndIf : If event = #TB_CHECKBUTTON
    m$ = m$ + "#TB_CHECKBUTTON "
  EndIf : If event = #TB_PRESSBUTTON
    m$ = m$ + "#TB_PRESSBUTTON "
  EndIf : If event = #TB_HIDEBUTTON
    m$ = m$ + "#TB_HIDEBUTTON "
  EndIf : If event = #TB_INDETERMINATE
    m$ = m$ + "#TB_INDETERMINATE "
  EndIf : If event = #TB_ISBUTTONENABLED
    m$ = m$ + "#TB_ISBUTTONENABLED "
  EndIf : If event = #TB_ISBUTTONCHECKED
    m$ = m$ + "#TB_ISBUTTONCHECKED "
  EndIf : If event = #TB_ISBUTTONPRESSED
    m$ = m$ + "#TB_ISBUTTONPRESSED "
  EndIf : If event = #TB_ISBUTTONHIDDEN
    m$ = m$ + "#TB_ISBUTTONHIDDEN "
  EndIf : If event = #TB_ISBUTTONINDETERMINATE
    m$ = m$ + "#TB_ISBUTTONINDETERMINATE "
  EndIf : If event = #TB_SETSTATE
    m$ = m$ + "#TB_SETSTATE "
  EndIf : If event = #TB_GETSTATE
    m$ = m$ + "#TB_GETSTATE "
  EndIf : If event = #TB_ADDBITMAP
    m$ = m$ + "#TB_ADDBITMAP "
  EndIf : If event = #TB_SETSTYLE
    m$ = m$ + "#TB_SETSTYLE "
  EndIf : If event = #TB_GETSTYLE
    m$ = m$ + "#TB_GETSTYLE "
  EndIf : If event = #TB_ADDBUTTONS
    m$ = m$ + "#TB_ADDBUTTONS "
  EndIf : If event = #TB_INSERTBUTTON
    m$ = m$ + "#TB_INSERTBUTTON "
  EndIf : If event = #TB_DELETEBUTTON
    m$ = m$ + "#TB_DELETEBUTTON "
  EndIf : If event = #TB_GETBUTTON
    m$ = m$ + "#TB_GETBUTTON "
  EndIf : If event = #TB_BUTTONCOUNT
    m$ = m$ + "#TB_BUTTONCOUNT "
  EndIf : If event = #TB_COMMANDTOINDEX
    m$ = m$ + "#TB_COMMANDTOINDEX "
  EndIf : If event = #TB_SAVERESTORE
    m$ = m$ + "#TB_SAVERESTORE "
  EndIf : If event = #TB_SAVERESTOREW
    m$ = m$ + "#TB_SAVERESTOREW "
  EndIf : If event = #TB_CUSTOMIZE
    m$ = m$ + "#TB_CUSTOMIZE "
  EndIf : If event = #TB_ADDSTRING
    m$ = m$ + "#TB_ADDSTRING "
  EndIf : If event = #TB_ADDSTRINGW
    m$ = m$ + "#TB_ADDSTRINGW "
  EndIf : If event = #TB_GETITEMRECT
    m$ = m$ + "#TB_GETITEMRECT "
  EndIf : If event = #TB_BUTTONSTRUCTSIZE
    m$ = m$ + "#TB_BUTTONSTRUCTSIZE "
  EndIf : If event = #TB_SETBUTTONSIZE
    m$ = m$ + "#TB_SETBUTTONSIZE "
  EndIf : If event = #TB_SETBITMAPSIZE
    m$ = m$ + "#TB_SETBITMAPSIZE "
  EndIf : If event = #TB_AUTOSIZE
    m$ = m$ + "#TB_AUTOSIZE "
  EndIf : If event = #TB_GETTOOLTIPS
    m$ = m$ + "#TB_GETTOOLTIPS "
  EndIf : If event = #TB_SETTOOLTIPS
    m$ = m$ + "#TB_SETTOOLTIPS "
  EndIf : If event = #TB_SETPARENT
    m$ = m$ + "#TB_SETPARENT "
  EndIf : If event = #TB_SETROWS
    m$ = m$ + "#TB_SETROWS "
  EndIf : If event = #TB_GETROWS
    m$ = m$ + "#TB_GETROWS "
  EndIf : If event = #TB_SETCMDID
    m$ = m$ + "#TB_SETCMDID "
  EndIf : If event = #TB_CHANGEBITMAP
    m$ = m$ + "#TB_CHANGEBITMAP "
  EndIf : If event = #TB_GETBITMAP
    m$ = m$ + "#TB_GETBITMAP "
  EndIf : If event = #TB_GETBUTTONTEXT
    m$ = m$ + "#TB_GETBUTTONTEXT "
  EndIf : If event = #TB_GETBUTTONTEXTW
    m$ = m$ + "#TB_GETBUTTONTEXTW "
  EndIf : If event = #TB_REPLACEBITMAP
    m$ = m$ + "#TB_REPLACEBITMAP "
  EndIf : If event = #TB_GETBITMAPFLAGS
    m$ = m$ + "#TB_GETBITMAPFLAGS "
  EndIf : If event = #SB_SETTEXT
    m$ = m$ + "#SB_SETTEXT "
  EndIf : If event = #SB_SETTEXTW
    m$ = m$ + "#SB_SETTEXTW "
  EndIf : If event = #SB_GETTEXT
    m$ = m$ + "#SB_GETTEXT "
  EndIf : If event = #SB_GETTEXTW
    m$ = m$ + "#SB_GETTEXTW "
  EndIf : If event = #SB_GETTEXTLENGTH
    m$ = m$ + "#SB_GETTEXTLENGTH "
  EndIf : If event = #SB_GETTEXTLENGTHW
    m$ = m$ + "#SB_GETTEXTLENGTHW "
  EndIf : If event = #SB_SETPARTS
    m$ = m$ + "#SB_SETPARTS "
  EndIf : If event = #SB_GETPARTS
    m$ = m$ + "#SB_GETPARTS "
  EndIf : If event = #SB_GETBORDERS
    m$ = m$ + "#SB_GETBORDERS "
  EndIf : If event = #SB_SETMINHEIGHT
    m$ = m$ + "#SB_SETMINHEIGHT "
  EndIf : If event = #SB_SIMPLE
    m$ = m$ + "#SB_SIMPLE "
  EndIf : If event = #SB_GETRECT
    m$ = m$ + "#SB_GETRECT "
  EndIf : If event = #TBM_GETPOS
    m$ = m$ + "#TBM_GETPOS "
  EndIf : If event = #TBM_GETRANGEMIN
    m$ = m$ + "#TBM_GETRANGEMIN "
  EndIf : If event = #TBM_GETRANGEMAX
    m$ = m$ + "#TBM_GETRANGEMAX "
  EndIf : If event = #TBM_GETTIC
    m$ = m$ + "#TBM_GETTIC "
  EndIf : If event = #TBM_SETTIC
    m$ = m$ + "#TBM_SETTIC "
  EndIf : If event = #TBM_SETPOS
    m$ = m$ + "#TBM_SETPOS "
  EndIf : If event = #TBM_SETRANGE
    m$ = m$ + "#TBM_SETRANGE "
  EndIf : If event = #TBM_SETRANGEMIN
    m$ = m$ + "#TBM_SETRANGEMIN "
  EndIf : If event = #TBM_SETRANGEMAX
    m$ = m$ + "#TBM_SETRANGEMAX "
  EndIf : If event = #TBM_CLEARTICS
    m$ = m$ + "#TBM_CLEARTICS "
  EndIf : If event = #TBM_SETSEL
    m$ = m$ + "#TBM_SETSEL "
  EndIf : If event = #TBM_SETSELSTART
    m$ = m$ + "#TBM_SETSELSTART "
  EndIf : If event = #TBM_SETSELEND
    m$ = m$ + "#TBM_SETSELEND "
  EndIf : If event = #TBM_GETPTICS
    m$ = m$ + "#TBM_GETPTICS "
  EndIf : If event = #TBM_GETTICPOS
    m$ = m$ + "#TBM_GETTICPOS "
  EndIf : If event = #TBM_GETNUMTICS
    m$ = m$ + "#TBM_GETNUMTICS "
  EndIf : If event = #TBM_GETSELSTART
    m$ = m$ + "#TBM_GETSELSTART "
  EndIf : If event = #TBM_GETSELEND
    m$ = m$ + "#TBM_GETSELEND "
  EndIf : If event = #TBM_CLEARSEL
    m$ = m$ + "#TBM_CLEARSEL "
  EndIf : If event = #TBM_SETTICFREQ
    m$ = m$ + "#TBM_SETTICFREQ "
  EndIf : If event = #TBM_SETPAGESIZE
    m$ = m$ + "#TBM_SETPAGESIZE "
  EndIf : If event = #TBM_GETPAGESIZE
    m$ = m$ + "#TBM_GETPAGESIZE "
  EndIf : If event = #TBM_SETLINESIZE
    m$ = m$ + "#TBM_SETLINESIZE "
  EndIf : If event = #TBM_GETLINESIZE
    m$ = m$ + "#TBM_GETLINESIZE "
  EndIf : If event = #TBM_GETTHUMBRECT
    m$ = m$ + "#TBM_GETTHUMBRECT "
  EndIf : If event = #TBM_GETCHANNELRECT
    m$ = m$ + "#TBM_GETCHANNELRECT "
  EndIf : If event = #TBM_SETTHUMBLENGTH
    m$ = m$ + "#TBM_SETTHUMBLENGTH "
  EndIf : If event = #TBM_GETTHUMBLENGTH
    m$ = m$ + "#TBM_GETTHUMBLENGTH "
  EndIf : If event = #TB_LINEUP
    m$ = m$ + "#TB_LINEUP "
  EndIf : If event = #TB_LINEDOWN
    m$ = m$ + "#TB_LINEDOWN "
  EndIf : If event = #TB_PAGEUP
    m$ = m$ + "#TB_PAGEUP "
  EndIf : If event = #TB_PAGEDOWN
    m$ = m$ + "#TB_PAGEDOWN "
  EndIf : If event = #TB_THUMBPOSITION
    m$ = m$ + "#TB_THUMBPOSITION "
  EndIf : If event = #TB_THUMBTRACK
    m$ = m$ + "#TB_THUMBTRACK "
  EndIf : If event = #TB_TOP
    m$ = m$ + "#TB_TOP "
  EndIf : If event = #TB_BOTTOM
    m$ = m$ + "#TB_BOTTOM "
  EndIf : If event = #TB_ENDTRACK
    m$ = m$ + "#TB_ENDTRACK "
  EndIf : If event = #DL_BEGINDRAG
    m$ = m$ + "#DL_BEGINDRAG "
  EndIf : If event = #DL_DRAGGING
    m$ = m$ + "#DL_DRAGGING "
  EndIf : If event = #DL_DROPPED
    m$ = m$ + "#DL_DROPPED "
  EndIf : If event = #DL_CANCELDRAG
    m$ = m$ + "#DL_CANCELDRAG "
  EndIf : If event = #DL_CURSORSET
    m$ = m$ + "#DL_CURSORSET "
  EndIf : If event = #DL_STOPCURSOR
    m$ = m$ + "#DL_STOPCURSOR "
  EndIf : If event = #DL_COPYCURSOR
    m$ = m$ + "#DL_COPYCURSOR "
  EndIf : If event = #DL_MOVECURSOR
    m$ = m$ + "#DL_MOVECURSOR "
  EndIf : If event = #UDM_SETRANGE
    m$ = m$ + "#UDM_SETRANGE "
  EndIf : If event = #UDM_GETRANGE
    m$ = m$ + "#UDM_GETRANGE "
  EndIf : If event = #UDM_SETPOS
    m$ = m$ + "#UDM_SETPOS "
  EndIf : If event = #UDM_GETPOS
    m$ = m$ + "#UDM_GETPOS "
  EndIf : If event = #UDM_SETBUDDY
    m$ = m$ + "#UDM_SETBUDDY "
  EndIf : If event = #UDM_GETBUDDY
    m$ = m$ + "#UDM_GETBUDDY "
  EndIf : If event = #UDM_SETACCEL
    m$ = m$ + "#UDM_SETACCEL "
  EndIf : If event = #UDM_GETACCEL
    m$ = m$ + "#UDM_GETACCEL "
  EndIf : If event = #UDM_SETBASE
    m$ = m$ + "#UDM_SETBASE "
  EndIf : If event = #UDM_GETBASE
    m$ = m$ + "#UDM_GETBASE "
  EndIf : If event = #PBM_SETRANGE
    m$ = m$ + "#PBM_SETRANGE "
  EndIf : If event = #PBM_SETPOS
    m$ = m$ + "#PBM_SETPOS "
  EndIf : If event = #PBM_DELTAPOS
    m$ = m$ + "#PBM_DELTAPOS "
  EndIf : If event = #PBM_SETSTEP
    m$ = m$ + "#PBM_SETSTEP "
  EndIf : If event = #PBM_STEPIT
    m$ = m$ + "#PBM_STEPIT "
  EndIf : If event = #HKM_SETHOTKEY
    m$ = m$ + "#HKM_SETHOTKEY "
  EndIf : If event = #HKM_GETHOTKEY
    m$ = m$ + "#HKM_GETHOTKEY "
  EndIf : If event = #HKM_SETRULES
    m$ = m$ + "#HKM_SETRULES "
  EndIf : If event = #LVM_GETBKCOLOR
    m$ = m$ + "#LVM_GETBKCOLOR "
  EndIf : If event = #LVM_SETBKCOLOR
    m$ = m$ + "#LVM_SETBKCOLOR "
  EndIf : If event = #LVM_GETIMAGELIST
    m$ = m$ + "#LVM_GETIMAGELIST "
  EndIf : If event = #LVM_SETIMAGELIST
    m$ = m$ + "#LVM_SETIMAGELIST "
  EndIf : If event = #LVM_GETITEMCOUNT
    m$ = m$ + "#LVM_GETITEMCOUNT "
  EndIf : If event = #LVM_GETITEM
    m$ = m$ + "#LVM_GETITEM "
  EndIf : If event = #LVM_GETITEMW
    m$ = m$ + "#LVM_GETITEMW "
  EndIf : If event = #LVM_SETITEM
    m$ = m$ + "#LVM_SETITEM "
  EndIf : If event = #LVM_SETITEMW
    m$ = m$ + "#LVM_SETITEMW "
  EndIf : If event = #LVM_INSERTITEM
    m$ = m$ + "#LVM_INSERTITEM "
  EndIf : If event = #LVM_INSERTITEMW
    m$ = m$ + "#LVM_INSERTITEMW "
  EndIf : If event = #LVM_DELETEITEM
    m$ = m$ + "#LVM_DELETEITEM "
  EndIf : If event = #LVM_DELETEALLITEMS
    m$ = m$ + "#LVM_DELETEALLITEMS "
  EndIf : If event = #LVM_GETCALLBACKMASK
    m$ = m$ + "#LVM_GETCALLBACKMASK "
  EndIf : If event = #LVM_SETCALLBACKMASK
    m$ = m$ + "#LVM_SETCALLBACKMASK "
  EndIf : If event = #LVM_GETNEXTITEM
    m$ = m$ + "#LVM_GETNEXTITEM "
  EndIf : If event = #LVM_FINDITEM
    m$ = m$ + "#LVM_FINDITEM "
  EndIf : If event = #LVM_FINDITEMW
    m$ = m$ + "#LVM_FINDITEMW "
  EndIf : If event = #LVM_GETITEMRECT
    m$ = m$ + "#LVM_GETITEMRECT "
  EndIf : If event = #LVM_SETITEMPOSITION
    m$ = m$ + "#LVM_SETITEMPOSITION "
  EndIf : If event = #LVM_GETITEMPOSITION
    m$ = m$ + "#LVM_GETITEMPOSITION "
  EndIf : If event = #LVM_GETSTRINGWIDTH
    m$ = m$ + "#LVM_GETSTRINGWIDTH "
  EndIf : If event = #LVM_GETSTRINGWIDTHW
    m$ = m$ + "#LVM_GETSTRINGWIDTHW "
  EndIf : If event = #LVM_HITTEST
    m$ = m$ + "#LVM_HITTEST "
  EndIf : If event = #LVM_ENSUREVISIBLE
    m$ = m$ + "#LVM_ENSUREVISIBLE "
  EndIf : If event = #LVM_SCROLL
    m$ = m$ + "#LVM_SCROLL "
  EndIf : If event = #LVM_REDRAWITEMS
    m$ = m$ + "#LVM_REDRAWITEMS "
  EndIf : If event = #LVM_ARRANGE
    m$ = m$ + "#LVM_ARRANGE "
  EndIf : If event = #LVM_EDITLABEL
    m$ = m$ + "#LVM_EDITLABEL "
  EndIf : If event = #LVM_EDITLABELW
    m$ = m$ + "#LVM_EDITLABELW "
  EndIf : If event = #LVM_GETEDITCONTROL
    m$ = m$ + "#LVM_GETEDITCONTROL "
  EndIf : If event = #LVM_GETCOLUMN
    m$ = m$ + "#LVM_GETCOLUMN "
  EndIf : If event = #LVM_GETCOLUMNW
    m$ = m$ + "#LVM_GETCOLUMNW "
  EndIf : If event = #LVM_SETCOLUMN
    m$ = m$ + "#LVM_SETCOLUMN "
  EndIf : If event = #LVM_SETCOLUMNW
    m$ = m$ + "#LVM_SETCOLUMNW "
  EndIf : If event = #LVM_INSERTCOLUMN
    m$ = m$ + "#LVM_INSERTCOLUMN "
  EndIf : If event = #LVM_INSERTCOLUMNW
    m$ = m$ + "#LVM_INSERTCOLUMNW "
  EndIf : If event = #LVM_DELETECOLUMN
    m$ = m$ + "#LVM_DELETECOLUMN "
  EndIf : If event = #LVM_GETCOLUMNWIDTH
    m$ = m$ + "#LVM_GETCOLUMNWIDTH "
  EndIf : If event = #LVM_SETCOLUMNWIDTH
    m$ = m$ + "#LVM_SETCOLUMNWIDTH "
  EndIf : If event = #LVM_CREATEDRAGIMAGE
    m$ = m$ + "#LVM_CREATEDRAGIMAGE "
  EndIf : If event = #LVM_GETVIEWRECT
    m$ = m$ + "#LVM_GETVIEWRECT "
  EndIf : If event = #LVM_GETTEXTCOLOR
    m$ = m$ + "#LVM_GETTEXTCOLOR "
  EndIf : If event = #LVM_SETTEXTCOLOR
    m$ = m$ + "#LVM_SETTEXTCOLOR "
  EndIf : If event = #LVM_GETTEXTBKCOLOR
    m$ = m$ + "#LVM_GETTEXTBKCOLOR "
  EndIf : If event = #LVM_SETTEXTBKCOLOR
    m$ = m$ + "#LVM_SETTEXTBKCOLOR "
  EndIf : If event = #LVM_GETTOPINDEX
    m$ = m$ + "#LVM_GETTOPINDEX "
  EndIf : If event = #LVM_GETCOUNTPERPAGE
    m$ = m$ + "#LVM_GETCOUNTPERPAGE "
  EndIf : If event = #LVM_GETORIGIN
    m$ = m$ + "#LVM_GETORIGIN "
  EndIf : If event = #LVM_UPDATE
    m$ = m$ + "#LVM_UPDATE "
  EndIf : If event = #LVM_SETITEMSTATE
    m$ = m$ + "#LVM_SETITEMSTATE "
  EndIf : If event = #LVM_GETITEMSTATE
    m$ = m$ + "#LVM_GETITEMSTATE "
  EndIf : If event = #LVM_GETITEMTEXT
    m$ = m$ + "#LVM_GETITEMTEXT "
  EndIf : If event = #LVM_GETITEMTEXTW
    m$ = m$ + "#LVM_GETITEMTEXTW "
  EndIf : If event = #LVM_SETITEMTEXT
    m$ = m$ + "#LVM_SETITEMTEXT "
  EndIf : If event = #LVM_SETITEMTEXTW
    m$ = m$ + "#LVM_SETITEMTEXTW "
  EndIf : If event = #LVM_SETITEMCOUNT
    m$ = m$ + "#LVM_SETITEMCOUNT "
  EndIf : If event = #LVM_SORTITEMS
    m$ = m$ + "#LVM_SORTITEMS "
  EndIf : If event = #LVM_SETITEMPOSITION32
    m$ = m$ + "#LVM_SETITEMPOSITION32 "
  EndIf : If event = #LVM_GETSELECTEDCOUNT
    m$ = m$ + "#LVM_GETSELECTEDCOUNT "
  EndIf : If event = #LVM_GETITEMSPACING
    m$ = m$ + "#LVM_GETITEMSPACING "
  EndIf : If event = #LVM_GETISEARCHSTRING
    m$ = m$ + "#LVM_GETISEARCHSTRING "
  EndIf : If event = #LVM_GETISEARCHSTRINGW
    m$ = m$ + "#LVM_GETISEARCHSTRINGW "
  EndIf : If event = #TVM_INSERTITEM
    m$ = m$ + "#TVM_INSERTITEM "
  EndIf : If event = #TVM_INSERTITEMW
    m$ = m$ + "#TVM_INSERTITEMW "
  EndIf : If event = #TVM_DELETEITEM
    m$ = m$ + "#TVM_DELETEITEM "
  EndIf : If event = #TVM_EXPAND
    m$ = m$ + "#TVM_EXPAND "
  EndIf : If event = #TVM_GETITEMRECT
    m$ = m$ + "#TVM_GETITEMRECT "
  EndIf : If event = #TVM_GETCOUNT
    m$ = m$ + "#TVM_GETCOUNT "
  EndIf : If event = #TVM_GETINDENT
    m$ = m$ + "#TVM_GETINDENT "
  EndIf : If event = #TVM_SETINDENT
    m$ = m$ + "#TVM_SETINDENT "
  EndIf : If event = #TVM_GETIMAGELIST
    m$ = m$ + "#TVM_GETIMAGELIST "
  EndIf : If event = #TVM_SETIMAGELIST
    m$ = m$ + "#TVM_SETIMAGELIST "
  EndIf : If event = #TVM_GETNEXTITEM
    m$ = m$ + "#TVM_GETNEXTITEM "
  EndIf : If event = #TVM_SELECTITEM
    m$ = m$ + "#TVM_SELECTITEM "
  EndIf : If event = #TVM_GETITEM
    m$ = m$ + "#TVM_GETITEM "
  EndIf : If event = #TVM_GETITEMW
    m$ = m$ + "#TVM_GETITEMW "
  EndIf : If event = #TVM_SETITEM
    m$ = m$ + "#TVM_SETITEM "
  EndIf : If event = #TVM_SETITEMW
    m$ = m$ + "#TVM_SETITEMW "
  EndIf : If event = #TVM_EDITLABEL
    m$ = m$ + "#TVM_EDITLABEL "
  EndIf : If event = #TVM_EDITLABELW
    m$ = m$ + "#TVM_EDITLABELW "
  EndIf : If event = #TVM_GETEDITCONTROL
    m$ = m$ + "#TVM_GETEDITCONTROL "
  EndIf : If event = #TVM_GETVISIBLECOUNT
    m$ = m$ + "#TVM_GETVISIBLECOUNT "
  EndIf : If event = #TVM_HITTEST
    m$ = m$ + "#TVM_HITTEST "
  EndIf : If event = #TVM_CREATEDRAGIMAGE
    m$ = m$ + "#TVM_CREATEDRAGIMAGE "
  EndIf : If event = #TVM_SORTCHILDREN
    m$ = m$ + "#TVM_SORTCHILDREN "
  EndIf : If event = #TVM_ENSUREVISIBLE
    m$ = m$ + "#TVM_ENSUREVISIBLE "
  EndIf : If event = #TVM_SORTCHILDRENCB
    m$ = m$ + "#TVM_SORTCHILDRENCB "
  EndIf : If event = #TVM_ENDEDITLABELNOW
    m$ = m$ + "#TVM_ENDEDITLABELNOW "
  EndIf : If event = #TVM_GETISEARCHSTRING
    m$ = m$ + "#TVM_GETISEARCHSTRING "
  EndIf : If event = #TVM_GETISEARCHSTRINGW
    m$ = m$ + "#TVM_GETISEARCHSTRINGW "
  EndIf : If event = #TCM_FIRST
    m$ = m$ + "#TCM_FIRST "
  EndIf : If event = #TCM_GETIMAGELIST
    m$ = m$ + "#TCM_GETIMAGELIST "
  EndIf : If event = #TCM_SETIMAGELIST
    m$ = m$ + "#TCM_SETIMAGELIST "
  EndIf : If event = #TCM_GETITEMCOUNT
    m$ = m$ + "#TCM_GETITEMCOUNT "
  EndIf : If event = #TCM_GETITEM
    m$ = m$ + "#TCM_GETITEM "
  EndIf : If event = #TCM_SETITEM
    m$ = m$ + "#TCM_SETITEM "
  EndIf : If event = #TCM_SETITEMW
    m$ = m$ + "#TCM_SETITEMW "
  EndIf : If event = #TCM_INSERTITEM
    m$ = m$ + "#TCM_INSERTITEM "
  EndIf : If event = #TCM_INSERTITEMW
    m$ = m$ + "#TCM_INSERTITEMW "
  EndIf : If event = #TCM_DELETEITEM
    m$ = m$ + "#TCM_DELETEITEM "
  EndIf : If event = #TCM_DELETEALLITEMS
    m$ = m$ + "#TCM_DELETEALLITEMS "
  EndIf : If event = #TCM_GETITEMRECT
    m$ = m$ + "#TCM_GETITEMRECT "
  EndIf : If event = #TCM_GETCURSEL
    m$ = m$ + "#TCM_GETCURSEL "
  EndIf : If event = #TCM_SETCURSEL
    m$ = m$ + "#TCM_SETCURSEL "
  EndIf : If event = #TCM_HITTEST
    m$ = m$ + "#TCM_HITTEST "
  EndIf : If event = #TCM_SETITEMEXTRA
    m$ = m$ + "#TCM_SETITEMEXTRA "
  EndIf : If event = #TCM_ADJUSTRECT
    m$ = m$ + "#TCM_ADJUSTRECT "
  EndIf : If event = #TCM_SETITEMSIZE
    m$ = m$ + "#TCM_SETITEMSIZE "
  EndIf : If event = #TCM_REMOVEIMAGE
    m$ = m$ + "#TCM_REMOVEIMAGE "
  EndIf : If event = #TCM_SETPADDING
    m$ = m$ + "#TCM_SETPADDING "
  EndIf : If event = #TCM_GETROWCOUNT
    m$ = m$ + "#TCM_GETROWCOUNT "
  EndIf : If event = #TCM_GETTOOLTIPS
    m$ = m$ + "#TCM_GETTOOLTIPS "
  EndIf : If event = #TCM_SETTOOLTIPS
    m$ = m$ + "#TCM_SETTOOLTIPS "
  EndIf : If event = #TCM_GETCURFOCUS
    m$ = m$ + "#TCM_GETCURFOCUS "
  EndIf : If event = #TCM_SETCURFOCUS
    m$ = m$ + "#TCM_SETCURFOCUS "
  EndIf : If event = #WM_CHOOSEFONT_GETLOGFONT
    m$ = m$ + "#WM_CHOOSEFONT_GETLOGFONT "
  EndIf : If event = #EM_CANPASTE
    m$ = m$ + "#EM_CANPASTE "
  EndIf : If event = #EM_DISPLAYBAND
    m$ = m$ + "#EM_DISPLAYBAND "
  EndIf : If event = #EM_EXGETSEL
    m$ = m$ + "#EM_EXGETSEL "
  EndIf : If event = #EM_EXLIMITTEXT
    m$ = m$ + "#EM_EXLIMITTEXT "
  EndIf : If event = #EM_EXLINEFROMCHAR
    m$ = m$ + "#EM_EXLINEFROMCHAR "
  EndIf : If event = #EM_EXSETSEL
    m$ = m$ + "#EM_EXSETSEL "
  EndIf : If event = #EM_FINDTEXT
    m$ = m$ + "#EM_FINDTEXT "
  EndIf : If event = #EM_FORMATRANGE
    m$ = m$ + "#EM_FORMATRANGE "
  EndIf : If event = #EM_GETCHARFORMAT
    m$ = m$ + "#EM_GETCHARFORMAT "
  EndIf : If event = #EM_GETEVENTMASK
    m$ = m$ + "#EM_GETEVENTMASK "
  EndIf : If event = #EM_GETOLEINTERFACE
    m$ = m$ + "#EM_GETOLEINTERFACE "
  EndIf : If event = #EM_GETPARAFORMAT
    m$ = m$ + "#EM_GETPARAFORMAT "
  EndIf : If event = #EM_GETSELTEXT
    m$ = m$ + "#EM_GETSELTEXT "
  EndIf : If event = #EM_HIDESELECTION
    m$ = m$ + "#EM_HIDESELECTION "
  EndIf : If event = #EM_PASTESPECIAL
    m$ = m$ + "#EM_PASTESPECIAL "
  EndIf : If event = #EM_REQUESTRESIZE
    m$ = m$ + "#EM_REQUESTRESIZE "
  EndIf : If event = #EM_SELECTIONTYPE
    m$ = m$ + "#EM_SELECTIONTYPE "
  EndIf : If event = #EM_SETBKGNDCOLOR
    m$ = m$ + "#EM_SETBKGNDCOLOR "
  EndIf : If event = #EM_SETCHARFORMAT
    m$ = m$ + "#EM_SETCHARFORMAT "
  EndIf : If event = #EM_SETEVENTMASK
    m$ = m$ + "#EM_SETEVENTMASK "
  EndIf : If event = #EM_SETOLECALLBACK
    m$ = m$ + "#EM_SETOLECALLBACK "
  EndIf : If event = #EM_SETPARAFORMAT
    m$ = m$ + "#EM_SETPARAFORMAT "
  EndIf : If event = #EM_SETTARGETDEVICE
    m$ = m$ + "#EM_SETTARGETDEVICE "
  EndIf : If event = #EM_STREAMIN
    m$ = m$ + "#EM_STREAMIN "
  EndIf : If event = #EM_STREAMOUT
    m$ = m$ + "#EM_STREAMOUT "
  EndIf : If event = #EM_GETTEXTRANGE
    m$ = m$ + "#EM_GETTEXTRANGE "
  EndIf : If event = #EM_FINDWORDBREAK
    m$ = m$ + "#EM_FINDWORDBREAK "
  EndIf : If event = #EM_SETOPTIONS
    m$ = m$ + "#EM_SETOPTIONS "
  EndIf : If event = #EM_GETOPTIONS
    m$ = m$ + "#EM_GETOPTIONS "
  EndIf : If event = #EM_FINDTEXTEX
    m$ = m$ + "#EM_FINDTEXTEX "
  EndIf : If event = #EM_GETWORDBREAKPROCEX
    m$ = m$ + "#EM_GETWORDBREAKPROCEX "
  EndIf : If event = #EM_SETWORDBREAKPROCEX
    m$ = m$ + "#EM_SETWORDBREAKPROCEX "
  EndIf : If event = #EM_SETPUNCTUATION
    m$ = m$ + "#EM_SETPUNCTUATION "
  EndIf : If event = #EM_GETPUNCTUATION
    m$ = m$ + "#EM_GETPUNCTUATION "
  EndIf : If event = #EM_SETWORDWRAPMODE
    m$ = m$ + "#EM_SETWORDWRAPMODE "
  EndIf : If event = #EM_GETWORDWRAPMODE
    m$ = m$ + "#EM_GETWORDWRAPMODE "
  EndIf : If event = #EM_SETIMECOLOR
    m$ = m$ + "#EM_SETIMECOLOR "
  EndIf : If event = #EM_GETIMECOLOR
    m$ = m$ + "#EM_GETIMECOLOR "
  EndIf : If event = #EM_SETIMEOPTIONS
    m$ = m$ + "#EM_SETIMEOPTIONS "
  EndIf : If event = #EM_GETIMEOPTIONS
    m$ = m$ + "#EM_GETIMEOPTIONS "
  EndIf : If event = #EM_REDO
    m$ = m$ + "#EM_REDO "
  EndIf : If event = #EM_SETTEXTMODE
    m$ = m$ + "#EM_SETTEXTMODE "
  EndIf : If event = #EM_AUTOURLDETECT
    m$ = m$ + "#EM_AUTOURLDETECT "
  EndIf : If event = #EM_GETAUTOURLDETECT
    m$ = m$ + "#EM_GETAUTOURLDETECT "
  EndIf : If event = #EM_SETPALETTE
    m$ = m$ + "#EM_SETPALETTE "
  EndIf : If event = #EM_GETTEXTEX
    m$ = m$ + "#EM_GETTEXTEX "
  EndIf : If event = #EM_GETTEXTLENGTHEX
    m$ = m$ + "#EM_GETTEXTLENGTHEX "
  EndIf : If event = #EM_SHOWSCROLLBAR
    m$ = m$ + "#EM_SHOWSCROLLBAR "
  EndIf : If event = #EM_SETTEXTEX
    m$ = m$ + "#EM_SETTEXTEX "
  EndIf : If event = #EM_CONVPOSITION
    m$ = m$ + "#EM_CONVPOSITION "
  EndIf : If event = #EM_SETLANGOPTIONS
    m$ = m$ + "#EM_SETLANGOPTIONS "
  EndIf : If event = #EM_GETLANGOPTIONS
    m$ = m$ + "#EM_GETLANGOPTIONS "
  EndIf : If event = #EM_GETIMECOMPMODE
    m$ = m$ + "#EM_GETIMECOMPMODE "
  EndIf : If event = #EM_FINDTEXTW
    m$ = m$ + "#EM_FINDTEXTW "
  EndIf : If event = #EM_FINDTEXTEXW
    m$ = m$ + "#EM_FINDTEXTEXW "
  EndIf : If event = #EM_SETFONTSIZE
    m$ = m$ + "#EM_SETFONTSIZE "
  EndIf : If event = #EM_GETZOOM
    m$ = m$ + "#EM_GETZOOM "
  EndIf : If event = #EM_SETZOOM
    m$ = m$ + "#EM_SETZOOM "
  EndIf : If event = #EM_CANREDO
    m$ = m$ + "#EM_CANREDO "
  EndIf : If event = #EM_GETUNDONAME
    m$ = m$ + "#EM_GETUNDONAME "
  EndIf : If event = #EM_GETREDONAME
    m$ = m$ + "#EM_GETREDONAME "
  EndIf : If event = #EM_STOPGROUPTYPING
    m$ = m$ + "#EM_STOPGROUPTYPING "
  EndIf : If event = #EM_OUTLINE
    m$ = m$ + "#EM_OUTLINE "
  EndIf : If event = #EM_SETFONTSIZE
    m$ = m$ + "#EM_SETFONTSIZE "
  EndIf : If event = #EM_GETZOOM
    m$ = m$ + "#EM_GETZOOM "
  EndIf : If event = #EM_SETZOOM
    m$ = m$ + "#EM_SETZOOM "
  EndIf : If event = #EM_GETSCROLLPOS
    m$ = m$ + "#EM_GETSCROLLPOS "
  EndIf : If event = #EM_SETSCROLLPOS
    m$ = m$ + "#EM_SETSCROLLPOS "
  EndIf : If event = #EM_RECONVERSION
    m$ = m$ + "#EM_RECONVERSION "
  EndIf : If event = #EM_SETIMEMODEBIAS
    m$ = m$ + "#EM_SETIMEMODEBIAS "
  EndIf : If event = #EM_GETIMEMODEBIAS
    m$ = m$ + "#EM_GETIMEMODEBIAS "
  EndIf : If event = #EM_SETBIDIO
soerenkj
User
User
Posts: 95
Joined: Mon Jun 14, 2004 10:19 pm

Post by soerenkj »

here ist the last part of it...

Code: Select all

  EndIf : If event = #EM_GETIMEMODEBIAS  ; remove this
    m$ = m$ + "#EM_GETIMEMODEBIAS "     ;
  EndIf : If event = #EM_SETBIDIOPTIONS
    m$ = m$ + "#EM_SETBIDIOPTIONS "
  EndIf : If event = #EM_GETBIDIOPTIONS
    m$ = m$ + "#EM_GETBIDIOPTIONS "
  EndIf : If event = #EM_SETTYPOGRAPHYOPTIONS
    m$ = m$ + "#EM_SETTYPOGRAPHYOPTIONS "
  EndIf : If event = #EM_GETTYPOGRAPHYOPTIONS
    m$ = m$ + "#EM_GETTYPOGRAPHYOPTIONS "
  EndIf : If event = #EM_SETEDITSTYLE
    m$ = m$ + "#EM_SETEDITSTYLE "
  EndIf : If event = #EM_GETEDITSTYLE
    m$ = m$ + "#EM_GETEDITSTYLE "
  EndIf : If event = #STM_GETIMAGE
    m$ = m$ + "#STM_GETIMAGE "
  EndIf : If event = #STM_SETIMAGE
    m$ = m$ + "#STM_SETIMAGE "
  EndIf : If event = #WM_SIZING
    m$ = m$ + "#WM_SIZING "
  EndIf : If event = #TTM_ACTIVATE
    m$ = m$ + "#TTM_ACTIVATE "
  EndIf : If event = #TTM_ADDTOOL
    m$ = m$ + "#TTM_ADDTOOL "
  EndIf : If event = #TTM_ADJUSTRECT
    m$ = m$ + "#TTM_ADJUSTRECT "
  EndIf : If event = #TTM_DELTOOL
    m$ = m$ + "#TTM_DELTOOL "
  EndIf : If event = #TTM_ENUMTOOLS
    m$ = m$ + "#TTM_ENUMTOOLS "
  EndIf : If event = #TTM_GETBUBBLESIZE
    m$ = m$ + "#TTM_GETBUBBLESIZE "
  EndIf : If event = #TTM_GETCURRENTTOOL
    m$ = m$ + "#TTM_GETCURRENTTOOL "
  EndIf : If event = #TTM_GETDELAYTIME
    m$ = m$ + "#TTM_GETDELAYTIME "
  EndIf : If event = #TTM_GETMARGIN
    m$ = m$ + "#TTM_GETMARGIN "
  EndIf : If event = #TTM_GETMAXTIPWIDTH
    m$ = m$ + "#TTM_GETMAXTIPWIDTH "
  EndIf : If event = #TTM_GETTEXT
    m$ = m$ + "#TTM_GETTEXT "
  EndIf : If event = #TTM_GETTIPBKCOLOR
    m$ = m$ + "#TTM_GETTIPBKCOLOR "
  EndIf : If event = #TTM_GETTIPTEXTCOLOR
    m$ = m$ + "#TTM_GETTIPTEXTCOLOR "
  EndIf : If event = #TTM_GETTITLE
    m$ = m$ + "#TTM_GETTITLE "
  EndIf : If event = #TTM_GETTOOLCOUNT
    m$ = m$ + "#TTM_GETTOOLCOUNT "
  EndIf : If event = #TTM_GETTOOLINFO
    m$ = m$ + "#TTM_GETTOOLINFO "
  EndIf : If event = #TTM_HITTEST
    m$ = m$ + "#TTM_HITTEST "
  EndIf : If event = #TTM_NEWTOOLRECT
    m$ = m$ + "#TTM_NEWTOOLRECT "
  EndIf : If event = #TTM_POP
    m$ = m$ + "#TTM_POP "
  EndIf : If event = #TTM_POPUP
    m$ = m$ + "#TTM_POPUP "
  EndIf : If event = #TTM_RELAYEVENT
    m$ = m$ + "#TTM_RELAYEVENT "
  EndIf : If event = #TTM_SETDELAYTIME
    m$ = m$ + "#TTM_SETDELAYTIME "
  EndIf : If event = #TTM_SETMARGIN
    m$ = m$ + "#TTM_SETMARGIN "
  EndIf : If event = #TTM_SETMAXTIPWIDTH
    m$ = m$ + "#TTM_SETMAXTIPWIDTH "
  EndIf : If event = #TTM_SETTIPBKCOLOR
    m$ = m$ + "#TTM_SETTIPBKCOLOR "
  EndIf : If event = #TTM_SETTIPTEXTCOLOR
    m$ = m$ + "#TTM_SETTIPTEXTCOLOR "
  EndIf : If event = #TTM_SETTITLE
    m$ = m$ + "#TTM_SETTITLE "
  EndIf : If event = #TTM_SETTOOLINFO
    m$ = m$ + "#TTM_SETTOOLINFO "
  EndIf : If event = #TTM_TRACKACTIVATE
    m$ = m$ + "#TTM_TRACKACTIVATE "
  EndIf : If event = #TTM_TRACKPOSITION
    m$ = m$ + "#TTM_TRACKPOSITION "
  EndIf : If event = #TTM_UPDATE
    m$ = m$ + "#TTM_UPDATE "
  EndIf : If event = #TTM_UPDATETIPTEXT
    m$ = m$ + "#TTM_UPDATETIPTEXT "
  EndIf : If event = #TTM_WINDOWFROMPOINT
    m$ = m$ + "#TTM_WINDOWFROMPOINT "
  EndIf : If event = #WM_MOVING
    m$ = m$ + "#WM_MOVING "
  EndIf : If event = #WM_SETTINGCHANGE
    m$ = m$ + "#WM_SETTINGCHANGE "
  EndIf

  ProcedureReturn m$
EndProcedure
User avatar
blueznl
PureBasic Expert
PureBasic Expert
Posts: 6161
Joined: Sat May 17, 2003 11:31 am
Contact:

Post by blueznl »

i *really* hope you didn't type all that by hand... 8O
( PB6.00 LTS Win11 x64 Asrock AB350 Pro4 Ryzen 5 3600 32GB GTX1060 6GB)
( The path to enlightenment and the PureBasic Survival Guide right here... )
soerenkj
User
User
Posts: 95
Joined: Mon Jun 14, 2004 10:19 pm

Post by soerenkj »

nono! i made a script for doing it, so it should be without typos.
I hope people will find it useful, I at least think it is very fun to see 'live' all the stuff that Windows sends around..!
Post Reply