AtlAxCreateControl and SetWindowCallback ?

[bingo]

if i create (AtlAxCreateControl) an ActiveX control, initializes it, and hosts it in the specified window , any events are missing in callback .

Code: Select all

Procedure.l Ansi2Uni(ansi.s)
SHStrDup_(@ansi,@memtarget) 
ProcedureReturn memtarget 
EndProcedure

Procedure WinCallback(hWnd, uMsg, wParam, lParam) 
Select uMsg
Case #WM_ACTIVATE,#WM_ACTIVATEAPP,#WM_NCACTIVATE
Debug "any deactivate ..."
Case #WM_KEYUP,#WM_LBUTTONDOWN,#WM_RBUTTONDOWN,#WM_MBUTTONDOWN,#WM_MOUSEWHEEL,#WM_SYSKEYUP
Debug "any clicks ..."
Case #WM_MOUSEMOVE
Debug "any moves ..."
EndSelect
ProcedureReturn #PB_ProcessPureBasicEvents 
EndProcedure 
  
CoInitialize_(0)
AtlAxWinInit_()  

OpenWindow(0, 0, 0, 200, 100, "Messages",#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget) 

SetWindowCallback(@WinCallback())

CreateGadgetList(WindowID(0))

ContainerGadget(0,0,0,200,100)

;AtlAxCreateControl_(ansi2uni("about:test"),GadgetID(0),0,0);<- it blocks any events
   
Repeat 
Select WaitWindowEvent() 
Case #PB_Event_CloseWindow 
End 
EndSelect 
ForEver 

fix the line: AtlAxCreateControl_(ansi2uni("about:test"),GadgetID(0),0,0)

[Fluid Byte]

Works fine here!

Windows XP SP2

[superadnim]

nope, not getting the events once I open the control...

only this are triggered: #WM_ACTIVATE,#WM_ACTIVATEAPP,#WM_NCACTIVATE

perhaps the control catches them and thus are already processed?

by the way, any idea getting info from this?

Code: Select all

Procedure.l Ansi2Uni(ansi.s)
SHStrDup_(@ansi,@memtarget)
ProcedureReturn memtarget
EndProcedure

Procedure WinCallback(hWnd, uMsg, wParam, lParam)
Select uMsg
Case #WM_ACTIVATE,#WM_ACTIVATEAPP,#WM_NCACTIVATE
Debug "any deactivate ..."
Case #WM_KEYUP,#WM_LBUTTONDOWN,#WM_RBUTTONDOWN,#WM_MBUTTONDOWN,#WM_MOUSEWHEEL,#WM_SYSKEYUP
Debug "any clicks ..."
Case #WM_MOUSEMOVE
Debug "any moves ..."
EndSelect
ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure
 
CoInitialize_(0)
AtlAxWinInit_() 

OpenWindow(0, 0, 0, 400, 500, "Messages",#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered)

SetWindowCallback(@WinCallback())

CreateGadgetList(WindowID(0))

ContainerGadget(0,0,0,400,500)

AtlAxCreateControl_(ansi2uni("MSCAL.Calendar.7"),GadgetID(0),0,0);<- it blocks any events
   
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
End
EndSelect
ForEver

[bingo]

it works with DisableGadget(0,1) - but why ???

containergadget and disable it with disablegadget ? :roll: