Seite 1 von 1
Fenster Bewegung debuggen? [gelöst]
Verfasst: 30.11.2007 20:23
von Scarabol
Hi Leute,
wie kann ich die Bewegung eines Fenster blockieren bzw. ermitteln?
Gruß
Scarabol
Verfasst: 30.11.2007 20:33
von Fluid Byte
Code: Alles auswählen
OpenWindow(0,0,0,320,240,"void",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
Procedure WindowCallback(hWnd,uMsg,wParam,lParam)
Select uMsg
Case #WM_NCLBUTTONDOWN
ProcedureReturn 0
EndSelect
ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure
SetWindowCallback(@WindowCallback())
While WaitWindowEvent() ! #PB_Event_CloseWindow : Wend
Verfasst: 30.11.2007 20:36
von Scarabol
Danke,
aber gibt es nicht eine Message die die Bewegung etwas genauer trifft?
So werden mitunter einige ungewollte Sachen geblockt...
Gruß
Scarabol
Verfasst: 30.11.2007 20:38
von Fluid Byte
Faules Stück!
Code: Alles auswählen
OpenWindow(0,0,0,320,240,"void",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
Procedure WindowCallback(hWnd,uMsg,wParam,lParam)
Select uMsg
Case #WM_NCLBUTTONDOWN
If wParam = #HTCAPTION : ProcedureReturn 0 : EndIf
EndSelect
ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure
SetWindowCallback(@WindowCallback())
While WaitWindowEvent() ! #PB_Event_CloseWindow : Wend
Verfasst: 30.11.2007 20:48
von Scarabol
Hehe, DANKE!
Code: Alles auswählen
OpenWindow(0,0,0,320,240,"void",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
ButtonGadget(0, 10, 10, 80, 20, "test")
Procedure WindowCallback(hWnd,uMsg,wParam,lParam)
Select uMsg
Case #WM_MOVE
t.w = lParam
Debug t
Debug lParam >> 16
ProcedureReturn 0
EndSelect
ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure
SetWindowCallback(@WindowCallback())
While WaitWindowEvent() ! #PB_Event_CloseWindow : Wend
Wie kann ich da die !relative! Bewegung ermitteln?
und kann man vielleicht das t.w überflüssig machen?
Gruß
Scarabol
Verfasst: 30.11.2007 21:17
von Scarabol
Ok danke Leute vergessts...
Gruß
Scarabol