WindowsMove

[Droopy]

Code updated For 5.20+

Everything is in the Title

Code: Select all

;/ Author : Franco / Example by Droopy

Procedure WindowsMove(WindowID,State)
  RemoveMenu_(GetSystemMenu_(WindowID,State),1,#MF_DISABLED|#MF_BYPOSITION)
  DrawMenuBar_(WindowID)
EndProcedure


;/ Test
#CheckBox=0
Handle=OpenWindow(0,0,0,200,50,"Move me ?",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)

CheckBoxGadget(#CheckBox,10, 10,250,20,"Checked = Moving Enabled")
SetGadgetState(#CheckBox,#True)

Repeat
  Event=WaitWindowEvent()
  If Event= #PB_Event_Gadget And EventGadget()=0
    WindowsMove(Handle,GetGadgetState(0))
  EndIf
Until Event=#PB_Event_CloseWindow

[rsts]

very nice.

[dell_jockey]

Thanks, very useful !

[GeoTrail]

Nice one

[Straker]

Thanks Droopy!

[fsw]

@Droopy
where did you find my old code?

I used this name only in the 1st PureBasic Forum...

... the good old times

[Droopy]

Restored from previous forum by BackupUser, i think

[srod]

That's useful. Thanks.

[NoahPhense]

Very nice!

- np

[Droopy]

Thanks to Franko, just the example is mine

[fsw]

Thanks to Franko, just the example is mine

Franco