PureBasic

Code : Tout sélectionner

Enumeration
      #Window
EndEnumeration

If OpenWindow(#Window, 300, 500, 360, 450, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, " ")
       If CreateGadgetList(WindowID(#Window))
       
           Frame3DGadget(600,10, 110,300,50,"Frame3DGadget Standard")
           a$ = Space(255)
           GetClassName_(GadgetID(600), a$, 255)
           Debug a$
           
           Frame3DGadget(601,10, 170,300,50,"Frame3DGadget Single",#PB_Frame3D_Single)
           a$ = Space(255)
           GetClassName_(GadgetID(601), a$, 255)
           Debug a$
           
           Frame3DGadget(602,10,230,300,50,"Frame3DGadget Double",#PB_Frame3D_Double)
           a$ = Space(255)
           GetClassName_(GadgetID(602), a$, 255)
           Debug a$
           
           Frame3DGadget(603,10,290,300,50,"Frame3DGadget Flat",#PB_Frame3D_Flat)
           a$ = Space(255)
           GetClassName_(GadgetID(603), a$, 255)
           Debug a$
           
           Repeat
                  event = WaitWindowEvent()
                  If event = #PB_EventCloseWindow
                        quit + 1
                  EndIf
           Until quit
            
      EndIf
EndIf
End