LineGadget (alle OS, Anfänger-Tip)
Verfasst: 24.01.2015 14:36
Erstellt entweder horizontale oder vertikale Trennlinie je nach dem was angegeben wird. Läuft auf alle OS.
Code: Alles auswählen
;(c) Tommy
#PB_Line_Single = 0
#PB_Line_Double = 1
Procedure LineGadget(Gadget, x, y, Width, Height = 1, Flags = #PB_Line_Single)
Protected Ergebnis, Border
If Flags = #PB_Line_Single : Border = 1
ElseIf Flags = #PB_Line_Double : Border = 2
EndIf
If Width > Height : Ergebnis = ContainerGadget(Gadget, x, y, Width, Border, #PB_Container_Flat)
Else : Ergebnis = ContainerGadget(Gadget, x, y, Border, Height, #PB_Container_Flat)
EndIf
CloseGadgetList()
ProcedureReturn Ergebnis
EndProcedure
Define event
OpenWindow(0, 0, 0, 500, 500, "", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
LineGadget(1, 50, 50, 400)
LineGadget(#PB_Any, 50, 100, 400, 0, #PB_Line_Double)
LineGadget(2, 50, 150, 0, 300)
Repeat
event = WaitWindowEvent()
Until event = #PB_Event_CloseWindow
