Real transparent Frame Gadget workaround[Windows]

[RASHAD]

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

[Kwai chang caine]

Thanks for sharing