Code: Alles auswählen
OpenWindow(0,0,0,100,100," ",#PB_Window_BorderLess|#PB_Window_WindowCentered|#PB_Window_Maximize )
SetWindowColor(0,$000000);Fensterhintergrund OK
If StartDrawing(WindowOutput(0))
DrawingMode(#PB_2DDrawing_Default)
Box(50,50,300,300,#Red)
StopDrawing()
EndIf
ShowCursor_(0) ;:Cursor aus
Repeat :Until WaitWindowEvent() = #PB_Event_LeftClick
ShowCursor_(1) ;: Cursor an
CloseWindow(0)
Code: Alles auswählen
OpenWindow(0,0,0,100,100," ",#PB_Window_BorderLess|#PB_Window_WindowCentered|#PB_Window_Maximize )
If StartDrawing(WindowOutput(0))
DrawingMode(#PB_2DDrawing_Default)
Box(50,50,300,300,#Red)
StopDrawing()
EndIf
ShowCursor_(0) ;:Cursor aus
Repeat :Until WaitWindowEvent() = #PB_Event_LeftClick
ShowCursor_(1) ;: Cursor an
CloseWindow(0)
Code: Alles auswählen
OpenWindow(0,0,0,100,100," ",#PB_Window_BorderLess|#PB_Window_WindowCentered|#PB_Window_Maximize )
SetWindowColor(0,$000000);Fensterhintergrund
ButtonGadget(1000,0,0,0,0,"",0)
If StartDrawing(WindowOutput(0))
DrawingMode(#PB_2DDrawing_Default)
Box(50,50,300,300,#Red)
StopDrawing()
EndIf
ShowCursor_(0) ;:Cursor aus
Repeat :Until WaitWindowEvent() = #PB_Event_LeftClick
ShowCursor_(1) ;: Cursor an
CloseWindow(0)
Win 7 pro / Win 10 / PB 5.70
Käfer oder übersehe ich etwas? Kann jemand ein Tip geben?