Fenster Bewegung debuggen? [gelöst]

[Scarabol]

Hi Leute,

wie kann ich die Bewegung eines Fenster blockieren bzw. ermitteln?

Gruß
Scarabol

[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

[Scarabol]

Danke,

aber gibt es nicht eine Message die die Bewegung etwas genauer trifft?

So werden mitunter einige ungewollte Sachen geblockt...

Gruß
Scarabol

[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

[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

[Scarabol]

Ok danke Leute vergessts...

Gruß
Scarabol