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