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