Real transparent Frame Gadget workaround[Windows]
Posted: Wed Jan 04, 2023 12:37 pm
Hi all
Code: Select all
hBrush = CreateSolidBrush_($9FFDDE)
OpenWindow(0,0,0,400,300,"", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_ScreenCentered)
SetClassLongPtr_(WindowID(0), #GCL_HBRBACKGROUND, hBrush)
ContainerGadget(1, 10,10,260,280, #PB_Container_Flat)
CloseGadgetList()
SetClassLongPtr_(GadgetID(1),#GCL_HBRBACKGROUND,GetStockObject_(#NULL_BRUSH))
DisableGadget(1,1)
ButtonGadget(2,20,20,80,24,"Quit")
TextGadget(3,180,20,200,24,"Hellow!",#SS_CENTER|#SS_CENTERIMAGE)
SetGadgetColor(3,#PB_Gadget_BackColor ,$747474)
SetGadgetColor(3,#PB_Gadget_FrontColor ,$FFFFFF)
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case 2
Quit = 1
EndSelect
EndSelect
Until Quit = 1
