Event chain for windows and gadgets

Just starting out? Need help? Post your questions and find answers here.
mestnyi
Addict
Addict
Posts: 995
Joined: Mon Nov 25, 2013 6:41 am

Event chain for windows and gadgets

Post by mestnyi »

Help me understand which OS is the correct result.
In addition, besides Mac OS, when the window is activated, brings it to the forefront, is this behavior correct?

Code: Select all

; this result.
; ; Mac os               ; Linux                ; Window
; DeActive 20            DeActive 20            DeActive 20
; Active 100             Active 100             Active 100
;  
; DeActive 100           DeActive 100           DeActive 100
; Active 10              Active 10              Active 10
; Focus 11               Focus 11               Focus 11
; DeActive 10            DeActive 10            DeActive 10
; Active 100             LostFocus 11           LostFocus 11
;                        Active 100             Active 100
; DeActive 100
; Active 10              DeActive 100           DeActive 100
; LostFocus 11           Active 10              Focus 11
; Focus 12               Focus 12               Active 10
;                                               LostFocus 11
;                                               Focus 12

Code: Select all

Procedure Handler()
  Select Event()
    Case #PB_Event_ActivateWindow    : Debug "Activate - " + EventWindow()
    Case #PB_Event_DeactivateWindow  : Debug "Deactivate - " + EventWindow()
    Case #PB_Event_Gadget
      Select EventType()
        Case #PB_EventType_Focus     : Debug "Focus - " + EventGadget()
        Case #PB_EventType_LostFocus : Debug "LostFocus - " + EventGadget()
      EndSelect
  EndSelect
EndProcedure

BindEvent(#PB_Event_ActivateWindow, @Handler())
BindEvent(#PB_Event_DeactivateWindow, @Handler())
BindEvent(#PB_Event_Gadget, @Handler())


OpenWindow(100, 220, 140, 200, 260, "Window_100", #PB_Window_ScreenCentered)
ButtonGadget(101, 10, 10, 180, 25, "(101) SetActive window_0")
ButtonGadget(102, 10, 35, 180, 25, "(102) SetFocus gadget_1")
ButtonGadget(103, 10, 60, 180, 25, "(103) SetFocus gadget_2")

ButtonGadget(104, 10, 85+10, 180, 25, "(104) SetActive window_10")
ButtonGadget(105, 10, 85+35, 180, 25, "(105) SetFocus gadget_11")
ButtonGadget(106, 10, 85+60, 180, 25, "(106) SetFocus gadget_12")

ButtonGadget(107, 10, 85+85+10, 180, 25, "(107) SetActive window_20")
ButtonGadget(108, 10, 85+85+35, 180, 25, "(108) SetFocus gadget_21")
ButtonGadget(109, 10, 85+85+60, 180, 25, "(109) SetFocus gadget_22")


OpenWindow(0, 100, 100, 200, 200, "Window_0", #PB_Window_SystemMenu, WindowID(100))
StringGadget(1, 10, 10, 180, 85, "String_1")
StringGadget(2, 10, 105, 180, 85, "String_2")

OpenWindow(10, 160, 120, 200, 200, "Window_10", #PB_Window_SystemMenu, WindowID(100))
StringGadget(11, 10, 10, 180, 85, "String_11")
StringGadget(12, 10, 105, 180, 85, "String_12")

OpenWindow(20, 220, 140, 200, 200, "Window_20", #PB_Window_SystemMenu, WindowID(100))
StringGadget(21, 10, 10, 180, 85, "String_21")
StringGadget(22, 10, 105, 180, 85, "String_22")

Repeat
  Event = WaitWindowEvent()
  
  Select Event
    Case #PB_Event_Gadget
      Select EventType()
        Case #PB_EventType_LeftClick : Debug " "
          Select EventGadget()
            Case 101 : SetActiveWindow(0)
            Case 102 : SetActiveGadget(1)
            Case 103 : SetActiveGadget(2)
              
            Case 104 : SetActiveWindow(10)
            Case 105 : SetActiveGadget(11)
            Case 106 : SetActiveGadget(12)
              
            Case 107 : SetActiveWindow(20)
            Case 108 : SetActiveGadget(21)
            Case 109 : SetActiveGadget(22)
          EndSelect
      EndSelect
  EndSelect
  
Until Event = #PB_Event_CloseWindow
Last edited by mestnyi on Mon Feb 18, 2019 5:16 pm, edited 1 time in total.
mestnyi
Addict
Addict
Posts: 995
Joined: Mon Nov 25, 2013 6:41 am

Re: Set active (window&gadget)

Post by mestnyi »

Indeed, no one can tell me which result is more correct?
Dude
Addict
Addict
Posts: 1907
Joined: Mon Feb 16, 2015 2:49 pm

Re: Set active (window&gadget)

Post by Dude »

It's only been a day since your post. Patience. :) I would help if I could but I only have Windows.
mestnyi
Addict
Addict
Posts: 995
Joined: Mon Nov 25, 2013 6:41 am

Re: Set active (window&gadget)

Post by mestnyi »

Dude wrote:It's only been a day since your post. Patience. :) I would help if I could but I only have Windows.
:)
This is because the point is not to launch and check it, but in logic. I did indicate the results. I need logic, that is, according to logic, the correct behavior in which system.
That is, when I first click
on the button

Code: Select all

ButtonGadget(105, 10, 85+35, 180, 25, "(105) SetFocus gadget_11")
then on button

Code: Select all

ButtonGadget(106, 10, 85+60, 180, 25, "(106) SetFocus gadget_12")
what sequence of events should happen?
User avatar
mk-soft
Always Here
Always Here
Posts: 5333
Joined: Fri May 12, 2006 6:51 pm
Location: Germany

Re: Set active (window&gadget)

Post by mk-soft »

Only one object can have the focus.
If you press the button, it has the focus. With the function SetActiveGadget you change the focus on another object.
When a window gets the focus, the system automatically sets the focus on the last Children (gadget).
If no gadget has ever received a focus from a window, the system will not set a focus.
If you want to set a focus when activating the window, you have to trigger it yourself.

Code: Select all

  If EventWindow() = 20 And GetActiveGadget() < 0
        If IsGadget(21) ; Event come before gadget exists
          SetActiveGadget(21)
        EndIf
      EndIf
My Projects ThreadToGUI / OOP-BaseClass / EventDesigner V3
PB v3.30 / v5.75 - OS Mac Mini OSX 10.xx - VM Window Pro / Linux Ubuntu
Downloads on my Webspace / OneDrive
mestnyi
Addict
Addict
Posts: 995
Joined: Mon Nov 25, 2013 6:41 am

Re: Set active (window&gadget)

Post by mestnyi »

mk-soft wrote:Only one object can have the focus.
If you press the button, it has the focus. With the function SetActiveGadget you change the focus on another object.
When a window gets the focus, the system automatically sets the focus on the last Children (gadget).
If no gadget has ever received a focus from a window, the system will not set a focus.
If you want to set a focus when activating the window, you have to trigger it yourself.

Code: Select all

  If EventWindow() = 20 And GetActiveGadget() < 0
        If IsGadget(21) ; Event come before gadget exists
          SetActiveGadget(21)
        EndIf
      EndIf
I'm not going to set the focus
I just need to know which of the three wasps behaves correctly.
Because I get different behavior.
How hard is it with you. :)
mestnyi
Addict
Addict
Posts: 995
Joined: Mon Nov 25, 2013 6:41 am

Re: Event chain for windows and gadgets

Post by mestnyi »

Nobody knows or nobody understands.
Maybe these questions I get an answer.
Canvas depending on the OS shoots different events, why is that?
I would like to know which one is “more correct”?

Code: Select all

; move
; mac
; top in
; 1 65537
; 10 65537
; 100 65537
; 100 65538
; 10 65538
; 1 65538

;right in
; 100 65537
; 10 65537
; 1 65537
; 100 65538
; 10 65538
; 1 65538

; win
; top
; 1 65537
; 1 65538
; 10 65537
; 10 65538
; 100 65537
; 100 65538
; 10 65537
; 10 65538
; 1 65537
; 1 65538

; right
; 100 65537
; 100 65538

; lin
; top
; 1 65537
; 1 65538
; 10 65537
; 10 65538
; 100 65537
; 100 65538
; 10 65537
; 10 65538
; 1 65537
; 1 65538

; right
; 1 65537
; 10 65537
; 100 65537
; 100 65538
; 10 65538
; 1 65538

; click move
; mac
; 20 256
; 1 65537
; 1 65540
; 20 512
; 1 256
; 1 2048
; 1 65541
; 100 65537
; 10 65537

;win
; 20 14000
; 1 65537
; 20 14001
; 1 14000
; 1 65540
; 1 65541
; 1 0
; 100 65537
; 1 65538

; lin
; 20 256
; 1 65537
; 1 65540
; 20 512
; 1 256
; 1 65538
; 1 65541
; 1 0
; 1 65538
; 10 65537
; 100 65537

Procedure Handler()
  Select Event()
    Case #PB_Event_Gadget
      If EventType() <> #PB_EventType_MouseMove ;Not (EventType() = #PB_EventType_MouseMove And Not GetGadgetAttribute(EventGadget(), #PB_Canvas_Buttons))
        Debug ""+EventGadget()+" "+EventType()
      EndIf
      
  EndSelect
EndProcedure

Procedure Button(Gadget, X.i,Y.i,Width.i,Height.i, Text.s, Flag=0)
  CanvasGadget(Gadget, X.i,Y.i,Width.i,Height.i, #PB_Canvas_Keyboard|#PB_Canvas_Border|Flag)
  
  If StartDrawing(CanvasOutput(Gadget))
    DrawText(2,0, Text, 0, $FFFFFF)
    StopDrawing()
  EndIf
EndProcedure

BindEvent(#PB_Event_Gadget, @Handler())

OpenWindow(0, 100, 100, 220, 220, "Window_0", #PB_Window_SystemMenu);, WindowID(100))
Button(1, 20, 20, 180, 180, "1", #PB_Canvas_Container)
Button(10, 20, 20, 180, 180, "10", #PB_Canvas_Container)
Button(100, 20, 20, 180, 50, "100")

Button(20, 20, 70, 180, 180, "20", #PB_Canvas_Container)
Button(200, 20, 20, 180, 50, "200")

SetActiveGadget(20)

Repeat
  Event = WaitWindowEvent()
  
  Select Event
    Case #PB_Event_Gadget
      Select EventType()
        Case #PB_EventType_LeftClick 
          Select EventGadget()
          EndSelect
      EndSelect
  EndSelect
  
Until Event = #PB_Event_CloseWindow
User avatar
mk-soft
Always Here
Always Here
Posts: 5333
Joined: Fri May 12, 2006 6:51 pm
Location: Germany

Re: Event chain for windows and gadgets

Post by mk-soft »

It does not interest the events or EventTypes from any number that can change at any time depending on the version of PureBasic or the operating system.
Only those events are relevant and valid which are also described in the help of the gadgets.

With Window you should evaluate the events with SetWindowCallBack and the correct MSDN messages and constants.

Code: Select all

;-TOP
Enumeration windows
  #Main
EndEnumeration

Enumeration gadgets
  #Canvas
  #Button
EndEnumeration

Define r1.s

Procedure WinCallback(hWnd, uMsg, WParam, LParam) 
  ; Windows fills the parameter automatically, which we will use in the callback...
  
  If uMsg = #WM_SIZE 
    Select WParam 
      Case #SIZE_MINIMIZED 
        Debug "Window was minimized" 
      Case #SIZE_RESTORED 
        Debug "Window was restored" 
      Case #SIZE_MAXIMIZED 
        Debug "Window was maximized" 
    EndSelect 
  EndIf 
  
  ProcedureReturn #PB_ProcessPureBasicEvents 
EndProcedure 


If OpenWindow(#Main, 0, 0, 220, 220, "Canvas container example", 
              #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget)
  
  CanvasGadget(#Canvas, 10, 10, 200, 200, #PB_Canvas_Container)
  ButtonGadget(#Button, 10, 10, 80, 30, "Clean up")
  CloseGadgetList()
  
  SetWindowCallback(@WinCallback())
  
  Repeat
    Event = WaitWindowEvent()
    
    If Event = #PB_Event_Gadget
      Select EventGadget() 
        Case #Canvas
          Select EventType()
            Case #PB_EventType_MouseEnter      : r1 = " The mouse cursor entered the gadget"
            Case #PB_EventType_MouseLeave      : r1 = " The mouse cursor left the gadget"
            Case #PB_EventType_MouseMove       : r1 = " The mouse cursor moved"
            Case #PB_EventType_MouseWheel      : r1 = " The mouse wheel was moved"
            Case #PB_EventType_LeftButtonDown  : r1 = " The left mouse button was pressed"
            Case #PB_EventType_LeftButtonUp    : r1 = " The left mouse button was released"
            Case #PB_EventType_LeftClick       : r1 = " A click With the left mouse button"
            Case #PB_EventType_LeftDoubleClick : r1 = " A double-click With the left mouse button"
            Case #PB_EventType_RightButtonDown : r1 = " The right mouse button was pressed"
            Case #PB_EventType_RightButtonUp   : r1 = " The right mouse button was released"
            Case #PB_EventType_RightClick      : r1 = " A click With the right mouse button"
            Case #PB_EventType_RightDoubleClick: r1 = " A double-click With the right mouse button"
            Case #PB_EventType_MiddleButtonDown: r1 = " The middle mouse button was pressed"
            Case #PB_EventType_MiddleButtonUp  : r1 = " The middle mouse button was released"
            Case #PB_EventType_Focus           : r1 = " The gadget gained keyboard focus"
            Case #PB_EventType_LostFocus       : r1 = " The gadget lost keyboard focus"
            Case #PB_EventType_KeyDown         : r1 = " A key was pressed"
            Case #PB_EventType_KeyUp           : r1 = " A key was released"
            Case #PB_EventType_Input           : r1 = " Text input was generated"
            Case #PB_EventType_Resize          : r1 = " The gadget has been resized"
          EndSelect
          Debug "Canvas event type = " + r1
        Case #Button
          Debug "Button"
          
      EndSelect
    EndIf
    
  Until Event = #PB_Event_CloseWindow
EndIf
My Projects ThreadToGUI / OOP-BaseClass / EventDesigner V3
PB v3.30 / v5.75 - OS Mac Mini OSX 10.xx - VM Window Pro / Linux Ubuntu
Downloads on my Webspace / OneDrive
User avatar
mk-soft
Always Here
Always Here
Posts: 5333
Joined: Fri May 12, 2006 6:51 pm
Location: Germany

Re: Event chain for windows and gadgets

Post by mk-soft »

Small Update...

Perhaps help

Code: Select all

;-TOP
Enumeration windows
  #Main
EndEnumeration

Enumeration gadgets
  #Canvas
  #Button
EndEnumeration

Define r1.s

Global hWndWindow, hWndCanvas, hWndButton



Procedure.s uMsgText(uMsg)
  Protected r1.s  
  Select uMsg
    Case 0: r1 = "WM_NULL"
    Case 1: r1 = "WM_CREATE"
    Case 2: r1 = "WM_DESTROY"
    Case 3: r1 = "WM_MOVE"
    Case 5: r1 = "WM_SIZE"
    Case 6: r1 = "WM_ACTIVATE"
    Case 7: r1 = "WM_SETFOCUS"
    Case 8: r1 = "WM_KILLFOCUS"
    Case 10: r1 = "WM_ENABLE"
    Case 11: r1 = "WM_SETREDRAW"
    Case 12: r1 = "WM_SETTEXT"
    Case 13: r1 = "WM_GETTEXT"
    Case 14: r1 = "WM_GETTEXTLENGTH"
    Case 15: r1 = "WM_PAINT"
    Case 16: r1 = "WM_CLOSE"
    Case 17: r1 = "WM_QUERYENDSESSION"
    Case 18: r1 = "WM_QUIT"
    Case 19: r1 = "WM_QUERYOPEN"
    Case 20: r1 = "WM_ERASEBKGND"
    Case 21: r1 = "WM_SYSCOLORCHANGE"
    Case 22: r1 = "WM_ENDSESSION"
    Case 24: r1 = "WM_SHOWWINDOW"
    Case 25: r1 = "WM_CTLCOLOR"
    Case 26: r1 = "WM_WININICHANGE"
    Case 27: r1 = "WM_DEVMODECHANGE"
    Case 28: r1 = "WM_ACTIVATEAPP"
    Case 29: r1 = "WM_FONTCHANGE"
    Case 30: r1 = "WM_TIMECHANGE"
    Case 31: r1 = "WM_CANCELMODE"
    Case 32: r1 = "WM_SETCURSOR"
    Case 33: r1 = "WM_MOUSEACTIVATE"
    Case 34: r1 = "WM_CHILDACTIVATE"
    Case 35: r1 = "WM_QUEUESYNC"
    Case 36: r1 = "WM_GETMINMAXINFO"
    Case 38: r1 = "WM_PAINTICON"
    Case 39: r1 = "WM_ICONERASEBKGND"
    Case 40: r1 = "WM_NEXTDLGCTL"
    Case 42: r1 = "WM_SPOOLERSTATUS"
    Case 43: r1 = "WM_DRAWITEM"
    Case 44: r1 = "WM_MEASUREITEM"
    Case 45: r1 = "WM_DELETEITEM"
    Case 46: r1 = "WM_VKEYTOITEM"
    Case 47: r1 = "WM_CHARTOITEM"
    Case 48: r1 = "WM_SETFONT"
    Case 49: r1 = "WM_GETFONT"
    Case 50: r1 = "WM_SETHOTKEY"
    Case 51: r1 = "WM_GETHOTKEY"
    Case 55: r1 = "WM_QUERYDRAGICON"
    Case 57: r1 = "WM_COMPAREITEM"
    Case 61: r1 = "WM_GETOBJECT"
    Case 65: r1 = "WM_COMPACTING"
    Case 68: r1 = "WM_COMMNOTIFY"
    Case 70: r1 = "WM_WINDOWPOSCHANGING"
    Case 71: r1 = "WM_WINDOWPOSCHANGED"
    Case 72: r1 = "WM_POWER"
    Case 73: r1 = "WM_COPYGLOBALDATA"
    Case 74: r1 = "WM_COPYDATA"
    Case 75: r1 = "WM_CANCELJOURNAL"
    Case 78: r1 = "WM_NOTIFY"
    Case 80: r1 = "WM_INPUTLANGCHANGEREQUEST"
    Case 81: r1 = "WM_INPUTLANGCHANGE"
    Case 82: r1 = "WM_TCARD"
    Case 83: r1 = "WM_HELP"
    Case 84: r1 = "WM_USERCHANGED"
    Case 85: r1 = "WM_NOTIFYFORMAT"
    Case 123: r1 = "WM_CONTEXTMENU"
    Case 124: r1 = "WM_STYLECHANGING"
    Case 125: r1 = "WM_STYLECHANGED"
    Case 126: r1 = "WM_DISPLAYCHANGE"
    Case 127: r1 = "WM_GETICON"
    Case 128: r1 = "WM_SETICON"
    Case 129: r1 = "WM_NCCREATE"
    Case 130: r1 = "WM_NCDESTROY"
    Case 131: r1 = "WM_NCCALCSIZE"
    Case 132: r1 = "WM_NCHITTEST"
    Case 133: r1 = "WM_NCPAINT"
    Case 134: r1 = "WM_NCACTIVATE"
    Case 135: r1 = "WM_GETDLGCODE"
    Case 136: r1 = "WM_SYNCPAINT"
    Case 160: r1 = "WM_NCMOUSEMOVE"
    Case 161: r1 = "WM_NCLBUTTONDOWN"
    Case 162: r1 = "WM_NCLBUTTONUP"
    Case 163: r1 = "WM_NCLBUTTONDBLCLK"
    Case 164: r1 = "WM_NCRBUTTONDOWN"
    Case 165: r1 = "WM_NCRBUTTONUP"
    Case 166: r1 = "WM_NCRBUTTONDBLCLK"
    Case 167: r1 = "WM_NCMBUTTONDOWN"
    Case 168: r1 = "WM_NCMBUTTONUP"
    Case 169: r1 = "WM_NCMBUTTONDBLCLK"
    Case 171: r1 = "WM_NCXBUTTONDOWN"
    Case 172: r1 = "WM_NCXBUTTONUP"
    Case 173: r1 = "WM_NCXBUTTONDBLCLK"
    Case 176: r1 = "EM_GETSEL"
    Case 177: r1 = "EM_SETSEL"
    Case 178: r1 = "EM_GETRECT"
    Case 179: r1 = "EM_SETRECT"
    Case 180: r1 = "EM_SETRECTNP"
    Case 181: r1 = "EM_SCROLL"
    Case 182: r1 = "EM_LINESCROLL"
    Case 183: r1 = "EM_SCROLLCARET"
    Case 185: r1 = "EM_GETMODIFY"
    Case 187: r1 = "EM_SETMODIFY"
    Case 188: r1 = "EM_GETLINECOUNT"
    Case 189: r1 = "EM_LINEINDEX"
    Case 190: r1 = "EM_SETHANDLE"
    Case 191: r1 = "EM_GETHANDLE"
    Case 192: r1 = "EM_GETTHUMB"
    Case 193: r1 = "EM_LINELENGTH"
    Case 194: r1 = "EM_REPLACESEL"
    Case 195: r1 = "EM_SETFONT"
    Case 196: r1 = "EM_GETLINE"
    Case 197: r1 = "EM_LIMITTEXT"
    Case 197: r1 = "EM_SETLIMITTEXT"
    Case 198: r1 = "EM_CANUNDO"
    Case 199: r1 = "EM_UNDO"
    Case 200: r1 = "EM_FMTLINES"
    Case 201: r1 = "EM_LINEFROMCHAR"
    Case 202: r1 = "EM_SETWORDBREAK"
    Case 203: r1 = "EM_SETTABSTOPS"
    Case 204: r1 = "EM_SETPASSWORDCHAR"
    Case 205: r1 = "EM_EMPTYUNDOBUFFER"
    Case 206: r1 = "EM_GETFIRSTVISIBLELINE"
    Case 207: r1 = "EM_SETREADONLY"
    Case 209: r1 = "EM_SETWORDBREAKPROC"
    Case 209: r1 = "EM_GETWORDBREAKPROC"
    Case 210: r1 = "EM_GETPASSWORDCHAR"
    Case 211: r1 = "EM_SETMARGINS"
    Case 212: r1 = "EM_GETMARGINS"
    Case 213: r1 = "EM_GETLIMITTEXT"
    Case 214: r1 = "EM_POSFROMCHAR"
    Case 215: r1 = "EM_CHARFROMPOS"
    Case 216: r1 = "EM_SETIMESTATUS"
    Case 217: r1 = "EM_GETIMESTATUS"
    Case 224: r1 = "SBM_SETPOS"
    Case 225: r1 = "SBM_GETPOS"
    Case 226: r1 = "SBM_SETRANGE"
    Case 227: r1 = "SBM_GETRANGE"
    Case 228: r1 = "SBM_ENABLE_ARROWS"
    Case 230: r1 = "SBM_SETRANGEREDRAW"
    Case 233: r1 = "SBM_SETSCROLLINFO"
    Case 234: r1 = "SBM_GETSCROLLINFO"
    Case 235: r1 = "SBM_GETSCROLLBARINFO"
    Case 240: r1 = "BM_GETCHECK"
    Case 241: r1 = "BM_SETCHECK"
    Case 242: r1 = "BM_GETSTATE"
    Case 243: r1 = "BM_SETSTATE"
    Case 244: r1 = "BM_SETSTYLE"
    Case 245: r1 = "BM_CLICK"
    Case 246: r1 = "BM_GETIMAGE"
    Case 247: r1 = "BM_SETIMAGE"
    Case 248: r1 = "BM_SETDONTCLICK"
    Case 255: r1 = "WM_INPUT"
    Case 256: r1 = "WM_KEYDOWN"
    Case 256: r1 = "WM_KEYFIRST"
    Case 257: r1 = "WM_KEYUP"
    Case 258: r1 = "WM_CHAR"
    Case 259: r1 = "WM_DEADCHAR"
    Case 260: r1 = "WM_SYSKEYDOWN"
    Case 261: r1 = "WM_SYSKEYUP"
    Case 262: r1 = "WM_SYSCHAR"
    Case 263: r1 = "WM_SYSDEADCHAR"
    Case 264: r1 = "WM_KEYLAST"
    Case 265: r1 = "WM_UNICHAR"
    Case 265: r1 = "WM_WNT_CONVERTREQUESTEX"
    Case 266: r1 = "WM_CONVERTREQUEST"
    Case 267: r1 = "WM_CONVERTRESULT"
    Case 268: r1 = "WM_INTERIM"
    Case 269: r1 = "WM_IME_STARTCOMPOSITION"
    Case 270: r1 = "WM_IME_ENDCOMPOSITION"
    Case 271: r1 = "WM_IME_COMPOSITION"
    Case 271: r1 = "WM_IME_KEYLAST"
    Case 272: r1 = "WM_INITDIALOG"
    Case 273: r1 = "WM_COMMAND"
    Case 274: r1 = "WM_SYSCOMMAND"
    Case 275: r1 = "WM_TIMER"
    Case 276: r1 = "WM_HSCROLL"
    Case 277: r1 = "WM_VSCROLL"
    Case 278: r1 = "WM_INITMENU"
    Case 279: r1 = "WM_INITMENUPOPUP"
    Case 280: r1 = "WM_SYSTIMER"
    Case 287: r1 = "WM_MENUSELECT"
    Case 288: r1 = "WM_MENUCHAR"
    Case 289: r1 = "WM_ENTERIDLE"
    Case 290: r1 = "WM_MENURBUTTONUP"
    Case 291: r1 = "WM_MENUDRAG"
    Case 292: r1 = "WM_MENUGETOBJECT"
    Case 293: r1 = "WM_UNINITMENUPOPUP"
    Case 294: r1 = "WM_MENUCOMMAND"
    Case 295: r1 = "WM_CHANGEUISTATE"
    Case 296: r1 = "WM_UPDATEUISTATE"
    Case 297: r1 = "WM_QUERYUISTATE"
    Case 306: r1 = "WM_CTLCOLORMSGBOX"
    Case 307: r1 = "WM_CTLCOLOREDIT"
    Case 308: r1 = "WM_CTLCOLORLISTBOX"
    Case 309: r1 = "WM_CTLCOLORBTN"
    Case 310: r1 = "WM_CTLCOLORDLG"
    Case 311: r1 = "WM_CTLCOLORSCROLLBAR"
    Case 312: r1 = "WM_CTLCOLORSTATIC"
    Case 512: r1 = "WM_MOUSEFIRST"
    Case 512: r1 = "WM_MOUSEMOVE"
    Case 513: r1 = "WM_LBUTTONDOWN"
    Case 514: r1 = "WM_LBUTTONUP"
    Case 515: r1 = "WM_LBUTTONDBLCLK"
    Case 516: r1 = "WM_RBUTTONDOWN"
    Case 517: r1 = "WM_RBUTTONUP"
    Case 518: r1 = "WM_RBUTTONDBLCLK"
    Case 519: r1 = "WM_MBUTTONDOWN"
    Case 520: r1 = "WM_MBUTTONUP"
    Case 521: r1 = "WM_MBUTTONDBLCLK"
    Case 521: r1 = "WM_MOUSELAST"
    Case 522: r1 = "WM_MOUSEWHEEL"
    Case 523: r1 = "WM_XBUTTONDOWN"
    Case 524: r1 = "WM_XBUTTONUP"
    Case 525: r1 = "WM_XBUTTONDBLCLK"
    Case 528: r1 = "WM_PARENTNOTIFY"
    Case 529: r1 = "WM_ENTERMENULOOP"
    Case 530: r1 = "WM_EXITMENULOOP"
    Case 531: r1 = "WM_NEXTMENU"
    Case 532: r1 = "WM_SIZING"
    Case 533: r1 = "WM_CAPTURECHANGED"
    Case 534: r1 = "WM_MOVING"
    Case 536: r1 = "WM_POWERBROADCAST"
    Case 537: r1 = "WM_DEVICECHANGE"
    Case 544: r1 = "WM_MDICREATE"
    Case 545: r1 = "WM_MDIDESTROY"
    Case 546: r1 = "WM_MDIACTIVATE"
    Case 547: r1 = "WM_MDIRESTORE"
    Case 548: r1 = "WM_MDINEXT"
    Case 549: r1 = "WM_MDIMAXIMIZE"
    Case 550: r1 = "WM_MDITILE"
    Case 551: r1 = "WM_MDICASCADE"
    Case 552: r1 = "WM_MDIICONARRANGE"
    Case 553: r1 = "WM_MDIGETACTIVE"
    Case 560: r1 = "WM_MDISETMENU"
    Case 561: r1 = "WM_ENTERSIZEMOVE"
    Case 562: r1 = "WM_EXITSIZEMOVE"
    Case 563: r1 = "WM_DROPFILES"
    Case 564: r1 = "WM_MDIREFRESHMENU"
    Case 640: r1 = "WM_IME_REPORT"
    Case 641: r1 = "WM_IME_SETCONTEXT"
    Case 642: r1 = "WM_IME_NOTIFY"
    Case 643: r1 = "WM_IME_CONTROL"
    Case 644: r1 = "WM_IME_COMPOSITIONFULL"
    Case 645: r1 = "WM_IME_SELECT"
    Case 646: r1 = "WM_IME_CHAR"
    Case 648: r1 = "WM_IME_REQUEST"
    Case 656: r1 = "WM_IMEKEYDOWN"
    Case 656: r1 = "WM_IME_KEYDOWN"
    Case 657: r1 = "WM_IMEKEYUP"
    Case 657: r1 = "WM_IME_KEYUP"
    Case 672: r1 = "WM_NCMOUSEHOVER"
    Case 673: r1 = "WM_MOUSEHOVER"
    Case 674: r1 = "WM_NCMOUSELEAVE"
    Case 675: r1 = "WM_MOUSELEAVE"
    Case 768: r1 = "WM_CUT"
    Case 769: r1 = "WM_COPY"
    Case 770: r1 = "WM_PASTE"
    Case 771: r1 = "WM_CLEAR"
    Case 772: r1 = "WM_UNDO"
    Case 773: r1 = "WM_RENDERFORMAT"
    Case 774: r1 = "WM_RENDERALLFORMATS"
    Case 775: r1 = "WM_DESTROYCLIPBOARD"
    Case 776: r1 = "WM_DRAWCLIPBOARD"
    Case 777: r1 = "WM_PAINTCLIPBOARD"
    Case 778: r1 = "WM_VSCROLLCLIPBOARD"
    Case 779: r1 = "WM_SIZECLIPBOARD"
    Case 780: r1 = "WM_ASKCBFORMATNAME"
    Case 781: r1 = "WM_CHANGECBCHAIN"
    Case 782: r1 = "WM_HSCROLLCLIPBOARD"
    Case 783: r1 = "WM_QUERYNEWPALETTE"
    Case 784: r1 = "WM_PALETTEISCHANGING"
    Case 785: r1 = "WM_PALETTECHANGED"
    Case 786: r1 = "WM_HOTKEY"
    Case 791: r1 = "WM_PRINT"
    Case 792: r1 = "WM_PRINTCLIENT"
    Case 793: r1 = "WM_APPCOMMAND"
    Case 856: r1 = "WM_HANDHELDFIRST"
    Case 863: r1 = "WM_HANDHELDLAST"
    Case 864: r1 = "WM_AFXFIRST"
    Case 895: r1 = "WM_AFXLAST"
    Case 896: r1 = "WM_PENWINFIRST"
    Case 897: r1 = "WM_RCRESULT"
    Case 898: r1 = "WM_HOOKRCRESULT"
    Case 899: r1 = "WM_GLOBALRCCHANGE"
    Case 899: r1 = "WM_PENMISCINFO"
    Case 900: r1 = "WM_SKB"
    Case 901: r1 = "WM_HEDITCTL"
    Case 901: r1 = "WM_PENCTL"
    Case 902: r1 = "WM_PENMISC"
    Case 903: r1 = "WM_CTLINIT"
    Case 904: r1 = "WM_PENEVENT"
    Case 911: r1 = "WM_PENWINLAST"
    Case 1024: r1 = "WM_USER"
    Default
      r1 = "Unknown " + uMsg
  EndSelect
  ProcedureReturn r1
EndProcedure

Procedure WinCallback(hWnd, uMsg, WParam, LParam) 
  ; Windows fills the parameter automatically, which we will use in the callback...
  Protected r1.s
  
  Select hWnd
    Case hWndWindow
      r1 = "Window message " + uMsgText(uMsg)
    Case hWndCanvas
      r1 = "Canvas  message " + uMsgText(uMsg)
    Case hWndButton
      r1 = "Canvas  message " + uMsgText(uMsg)
  EndSelect
  Debug r1
  ProcedureReturn #PB_ProcessPureBasicEvents 
EndProcedure 


hWndWindow = OpenWindow(#Main, 0, 0, 220, 220, "Canvas container example", 
              #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget)
If hWndWindow
  hWndCanvas = CanvasGadget(#Canvas, 10, 10, 200, 200, #PB_Canvas_Container)
  hWndButton = ButtonGadget(#Button, 10, 10, 80, 30, "Clean up")
  CloseGadgetList()
  
  SetWindowCallback(@WinCallback())
  
  Repeat
    Event = WaitWindowEvent()
    
    If Event = #PB_Event_Gadget
      Select EventGadget() 
        Case #Canvas
          Select EventType()
            Case #PB_EventType_MouseEnter      : r1 = " The mouse cursor entered the gadget"
            Case #PB_EventType_MouseLeave      : r1 = " The mouse cursor left the gadget"
            Case #PB_EventType_MouseMove       : r1 = " The mouse cursor moved"
            Case #PB_EventType_MouseWheel      : r1 = " The mouse wheel was moved"
            Case #PB_EventType_LeftButtonDown  : r1 = " The left mouse button was pressed"
            Case #PB_EventType_LeftButtonUp    : r1 = " The left mouse button was released"
            Case #PB_EventType_LeftClick       : r1 = " A click With the left mouse button"
            Case #PB_EventType_LeftDoubleClick : r1 = " A double-click With the left mouse button"
            Case #PB_EventType_RightButtonDown : r1 = " The right mouse button was pressed"
            Case #PB_EventType_RightButtonUp   : r1 = " The right mouse button was released"
            Case #PB_EventType_RightClick      : r1 = " A click With the right mouse button"
            Case #PB_EventType_RightDoubleClick: r1 = " A double-click With the right mouse button"
            Case #PB_EventType_MiddleButtonDown: r1 = " The middle mouse button was pressed"
            Case #PB_EventType_MiddleButtonUp  : r1 = " The middle mouse button was released"
            Case #PB_EventType_Focus           : r1 = " The gadget gained keyboard focus"
            Case #PB_EventType_LostFocus       : r1 = " The gadget lost keyboard focus"
            Case #PB_EventType_KeyDown         : r1 = " A key was pressed"
            Case #PB_EventType_KeyUp           : r1 = " A key was released"
            Case #PB_EventType_Input           : r1 = " Text input was generated"
            Case #PB_EventType_Resize          : r1 = " The gadget has been resized"
          EndSelect
          Debug "Canvas event type = " + r1
        Case #Button
          Debug "Button"
          
      EndSelect
    EndIf
    
  Until Event = #PB_Event_CloseWindow
EndIf
My Projects ThreadToGUI / OOP-BaseClass / EventDesigner V3
PB v3.30 / v5.75 - OS Mac Mini OSX 10.xx - VM Window Pro / Linux Ubuntu
Downloads on my Webspace / OneDrive
mestnyi
Addict
Addict
Posts: 995
Joined: Mon Nov 25, 2013 6:41 am

Re: Event chain for windows and gadgets

Post by mestnyi »

mk-soft wrote:It does not interest the events or EventTypes from any number that can change at any time depending on the version of PureBasic or the operating system.
Only those events are relevant and valid which are also described in the help of the gadgets.

With Window you should evaluate the events with SetWindowCallBack and the correct MSDN messages and constants.
Hi, thanks for your attention to my problem.
The question is because I make my widgets. https://github.com/mestnyi33/Widget Basic file two "widgets.pbi; IDE.pb"
I need to make tipi for them, so I need to know what they should be.
For example: if a control has two parents, and their position is y = 0, then it turns out that the mouse simultaneously activates all three controls. The question is, what events should they shoot in this case? Take another option, the position y = 10 for each control, when the mouse enters it, it turns out that it comes first to the first parent, then to the next, and only then to the descendant of these two parents. The question is, what events should they shoot in this case?
Post Reply