LineGadget (alle OS, Anfänger-Tip)

[Tommy]

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

[RSBasic]