Code: Select all
If OpenWindow(0, 0, 0, 220, 220, "Гаджет Канвас (Холст)", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CanvasGadget(0, 10, 10, 70, 20)
HideGadget(0,1)
ButtonGadget(2,10,10,70,20,"move me")
HideGadget(0,0)
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Gadget And EventGadget() = 0
If EventType() = #PB_EventType_LeftButtonUp
ResizeGadget(0,x,y,#PB_Ignore,#PB_Ignore)
CompilerIf #PB_Compiler_OS = #PB_OS_Windows
HideGadget(0,0)
CompilerEndIf
EndIf
If EventType() = #PB_EventType_LeftButtonDown
OffsetX = GetGadgetAttribute(0, #PB_Canvas_MouseX)
OffsetY = GetGadgetAttribute(0, #PB_Canvas_MouseY)
CompilerIf #PB_Compiler_OS = #PB_OS_Windows
HideGadget(0,1)
CompilerEndIf
EndIf
If (EventType() = #PB_EventType_MouseMove And GetGadgetAttribute(0, #PB_Canvas_Buttons) & #PB_Canvas_LeftButton)
x = WindowMouseX(0)-OffsetX
y = WindowMouseY(0)-OffsetY
ResizeGadget(2,x,y,#PB_Ignore,#PB_Ignore)
CompilerIf #PB_Compiler_OS <> #PB_OS_Windows
ResizeGadget(0,x,y,#PB_Ignore,#PB_Ignore)
CompilerEndIf
EndIf
EndIf
Until Event = #PB_Event_CloseWindow
EndIf