Page 1 of 1
WindowsMove
Posted: Sun Nov 06, 2005 9:14 pm
by 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
Posted: Sun Nov 06, 2005 9:58 pm
by rsts
very nice.
Posted: Sun Nov 06, 2005 10:44 pm
by dell_jockey
Thanks, very useful !
Posted: Sun Nov 06, 2005 11:17 pm
by GeoTrail
Nice one
Posted: Mon Nov 07, 2005 12:25 am
by Straker
Thanks Droopy!
Posted: Mon Nov 07, 2005 12:36 am
by fsw
@Droopy
where did you find my old code?
I used this name only in the 1st PureBasic Forum...
... the good old times
Posted: Mon Nov 07, 2005 6:55 am
by Droopy
Restored from previous forum by BackupUser, i think
Posted: Tue Nov 08, 2005 4:24 pm
by srod
That's useful. Thanks.
Re: WindowsMove
Posted: Tue Nov 08, 2005 5:38 pm
by NoahPhense
Very nice!
- np
Posted: Tue Nov 08, 2005 8:00 pm
by Droopy
Thanks to Franko, just the example is mine
Posted: Tue Nov 08, 2005 10:40 pm
by fsw
Droopy wrote:Thanks to Franko, just the example is mine
Franco