thinBasic: Basic Programming Language

Code:

' 

' Simple test of Event Shaper 

' Created by Petr Schreiber, 2012

'



#MINVERSION 1.9.0.0



Uses "UI", "EventShaper"

Uses "Console"       



#INCLUDE "Wrapper_Definitions.tBasicI"



' -- Create dialog here

Function TBMain()

  Local hDlg As DWord



  Dialog New Pixels, 0, "Click on this window",-1,-1, 320, 240, _

                %WS_POPUP Or %WS_VISIBLE Or %WS_CAPTION Or %WS_SYSMENU Or %WS_MINIMIZEBOX To hDlg

                                                

  EventShaper_SubscribeWindowEvent(hDlg, %WM_LBUTTONDOWN, "Main_OnLButtonDown")

  EventShaper_SubscribeWindowEvent(hDlg, %WM_LBUTTONUP  , "Main_OnLButtonUp")

  EventShaper_SubscribeWindowEvent(hDlg, %WM_CLOSE      , "Main_OnClose")

   

  Dialog Show Modal hDlg, Call cbDialog



End Function    



' -- Event handler of OnLButtonDown receives data in nice form

Function Main_OnLButtonDown()                      

          

  ' -- Single line to retrieve all the parameters

  Dim eArgs As tEvent_OnLButtonDown At EventShaper_GetEventArguments() 

  

  ' -- We can look them up and print out to console

  PrintL "OnLButtonDown"

  PrintL "hWnd", eArgs.hWnd

  PrintL "X", eArgs.x

  PrintL "Y", eArgs.y                              

  PrintL 

  

End Function    



' -- Event handler of OnLButtonUp receives data in nice form

Function Main_OnLButtonUp()                      

          

  ' -- Single line to retrieve all the parameters

  Dim eArgs As tEvent_OnLButtonUp At EventShaper_GetEventArguments() 

  

  ' -- We can look them up and print out to console

  PrintL "OnLButtonUp"

  PrintL "hWnd", eArgs.hWnd

  PrintL "X", eArgs.x

  PrintL "Y", eArgs.y                              

  PrintL 

  

End Function 



Function Main_OnClose()  



  MsgBox 0, "Yeah, yeah, I will quit now..." 

 

End Function  



' -- Callback for dialog - still needed, not sure why

CallBack Function cbDialog()



End Function

Code:

'[!] WM_LButtonDown



' -- Completely custom type

Type tEvent_OnLButtonDown

  hWnd As DWord

  x    As Long

  y    As Long

End Type  



' -- Wrapper routine

Function Wrapper_WM_LBUTTONDOWN()  



  ' -- Retrieve the needed Win32 params (EventShaper engine picks them for you)

  DWord hWnd, wParam, lParam

  EventShaper_GetWrapperParams(hWnd, wParam, lParam)

  

  ' -- Process them to human readable form

  Dim event As tEvent_OnLButtonDown

  event.hWnd = hWnd

  event.x    = LO(Word, lParam)

  event.y    = HI(Word, lParam) 

        

  ' -- Pack them for the event handler in nice form        

  EventShaper_SetEventArguments(event)

  

  ' -- EventShaper module will call the appropriate high level routine when ready

End Function       

' -- Link the routine  

EventShaper_SetWrapper(%WM_LBUTTONDOWN, "Wrapper_WM_LBUTTONDOWN")