steh irgendwie am Schlauch! Der Callback läuft weder auf #DeskWindow_00 noch auf den #DeskWindow_08, jemand eine Ahnung?
Code: Alles auswählen
; -----------------------------------
; Container mit CALLBACK
; -----------------------------------
Enumeration
#DeskWindow_00
#DeskWindow_08
EndEnumeration
Global Reader_DesktopWeiteX = 800
Global Reader_DesktopHoeheY = 600
Global Rt_DesktopX = 800
Global Rt_DesktopY = 600
Procedure Rt_CallBack(WindowID, uMsg, wParam, lParam)
Protected Result
Result = #PB_ProcessPureBasicEvents
;LINKE Maustaste
Select uMsg
Case #WM_LBUTTONDOWN
Debug "#WM_LBUTTONDOWN"
Case #WM_MOUSEMOVE
Debug "#WM_MOUSEMOVE"
Case #WM_LBUTTONUP
Debug "#WM_LBUTTONUP"
EndSelect
ProcedureReturn Result
EndProcedure
;- >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Procedure Rt_Main()
; ----------------------------------------
hWnd_Hiden = #True
; ----------------------------------------
hWnd = OpenWindow(#DeskWindow_00, 0, 0,Rt_DesktopX, Rt_DesktopY,"Velindos Desk Reader",#PB_Window_BorderLess|#PB_Window_Invisible)
; ----------------------------------------
ContainerGadget(#DeskWindow_08, 0,0,Rt_DesktopX ,Rt_DesktopY ,#PB_Window_BorderLess| GetDesktopWindow_())
; ----------------------------------------
CloseGadgetList()
EndProcedure
Procedure Event_Container_08(EEventID)
; [08] R O T S T I F T
Static Key.l
; ---------------------------------------
Select EEventID
Case #PB_Event_SizeWindow
Case #PB_Event_MoveWindow
Case #PB_Event_CloseWindow
Case #PB_Event_Gadget
;{ GADGET
Select EventGadget()
EndSelect
;}
Case #PB_Event_Menu
;{ MENU
Select EventMenu()
EndSelect
;}
Case #PB_Event_Timer
;{ TIMER
Select EventMenu()
EndSelect
;}
Case #WM_KEYUP
;{ KEY
Key.l = EventwParam()
Select KEY
Case 13
Case 27
End
EndSelect
;}
EndSelect
EndProcedure
Procedure WindowNr_Event(EEventID)
; [08] R O T S T I F T
Static Key.l
; ---------------------------------------
Select EEventID
Case #PB_Event_SizeWindow
Case #PB_Event_MoveWindow
Case #PB_Event_CloseWindow
Case #PB_Event_Gadget
;{ GADGET
Select EventGadget()
EndSelect
;}
Case #PB_Event_Menu
;{ MENU
Select EventMenu()
EndSelect
;}
Case #PB_Event_Timer
;{ TIMER
Select EventMenu()
EndSelect
;}
Case #WM_KEYUP
;{ KEY
Key.l = EventwParam()
Select KEY
Case 13
Case 27
End
EndSelect
;}
EndSelect
EndProcedure
;- >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;-- RUN
Procedure Rt_RUN()
; ---------------------------------------
Rt_Main()
; ---------------------------------------
hWnd_Hiden = #False
HideWindow(#DeskWindow_00, hWnd_Hiden)
; ---------------------------------------
Container_08_Hiden = #False
HideGadget(#DeskWindow_08,Container_08_Hiden)
; ---------------------------------------
SetWindowCallback(@Rt_CallBack(),WindowID(#DeskWindow_00))
; ---------------------------------------
EndProcedure
Rt_RUN()
;}
;- >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;-- REPEAT
Define WindowNr ,EventID ,Key.l
; --------------------------------------
Repeat
; --------------------------------------
WindowNr = EventWindow()
EventID = WaitWindowEvent()
Select WindowNr
Case #DeskWindow_00
WindowNr_Event(EEventID)
Case #DeskWindow_08
Event_Container_08(EventID)
EndSelect
; ---------------------------------------
ForEver
;}