http://www.purebasic.com
https://www.purebasic.fr/english/
On MacOS the button receives the events where the button covers the canvas, not the canvas behind the button.mestnyi wrote:Just this code works like a charm in the windows and linux.
So I wanted it to work in macos.
Code: Select all
If OpenWindow(0, 0, 0, 220, 220, "Гаджет Канвас (Холст)", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(2,10,10,70,20,"move me")
CanvasGadget(0, 10, 10, 70, 20)
If StartDrawing( CanvasOutput(0) )
FillMemory( DrawingBuffer(), DrawingBufferPitch() * OutputHeight())
StopDrawing()
EndIf
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
EndIfCode: Select all
; https://www.purebasic.fr/english/viewtopic.php?t=60782
Procedure LeftClickEvent()
Debug "click"
Debug Str(EventMenu()) ; why return 111?
Debug Str(EventGadget()) ; why return 111?
Debug Str(EventWindow())
EndProcedure
If OpenWindow(111, 0, 0, 100, 100, "UnbindEvent", #PB_Window_SystemMenu )
BindEvent(#PB_Event_LeftClick,@LeftClickEvent())
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
EndIf
Click
0
0
111
Click
0
0
111
See PB SDK or PostEvent.mestnyi wrote: Thu Apr 11, 2024 9:02 pm can you check what the "LeftClickEvent()" procedure returns?Code: Select all
; https://www.purebasic.fr/english/viewtopic.php?t=60782 Procedure LeftClickEvent() Debug "click" Debug Str(EventMenu()) ; why return 111? Debug Str(EventGadget()) ; why return 111? Debug Str(EventWindow()) EndProcedure If OpenWindow(111, 0, 0, 100, 100, "UnbindEvent", #PB_Window_SystemMenu ) BindEvent(#PB_Event_LeftClick,@LeftClickEvent()) Repeat Event = WaitWindowEvent() Until Event = #PB_Event_CloseWindow EndIf
Code: Select all
Result = PostEvent(Event [, Window, Object [, Type [, Data]]])This one "jumps away" from the cursor when I click it, but then I can move itmestnyi wrote: Fri Jul 03, 2020 11:35 pm Found a solution for Mac OS.
This is a very convenient solution to make canvas transparent.