If a ContainerGadget() is given the flags: #PB_Container_BorderLess | #PB_Container_Flat
..... you get a flat container with a black line border?
Code: Select all
Enumeration
#Win
#Cntr
#BtnExit
EndEnumeration
Procedure Win()
;--------------
Protected iExit.i = #False
Protected iFlags.i = #PB_Container_BorderLess | #PB_Container_Flat
If OpenWindow(#Win, 0, 0, 600, 100, "", #PB_Window_ScreenCentered)
SetWindowColor(#Win, RGB(192,192,192))
ContainerGadget(#Cntr, 10, 10, 580, 50, iFlags)
ButtonGadget(#BtnExit, 100, 12, 100, 26, "Exit")
SetGadgetColor(#Cntr, #PB_Gadget_BackColor, RGB(125,125,255))
CloseGadgetList()
Repeat
Select WaitWindowEvent(1)
Case #PB_Event_Gadget
Select EventGadget()
Case #BtnExit: iExit = #True
EndSelect
EndSelect
Until iExit = #True
EndIf
EndProcedure
Win()
End