PureBasic Forums - English

Code: Select all

; Who's the Mystery Gadget?

Procedure.s getGType(g)
   Select g
     Case #PB_GadgetType_Unknown ;        0
         ProcedureReturn "Unknown"
      Case #PB_GadgetType_Button ;        1
         ProcedureReturn "Button"
      Case #PB_GadgetType_String ;        2
         ProcedureReturn "String"
      Case #PB_GadgetType_Text ;          3
         ProcedureReturn "Text"
      Case #PB_GadgetType_CheckBox ;      4
         ProcedureReturn "CheckBox"
      Case #PB_GadgetType_Option ;        5
         ProcedureReturn "Option"
      Case #PB_GadgetType_ListView ;      6
         ProcedureReturn "ListView"
      Case #PB_GadgetType_Frame ;         7
         ProcedureReturn "Frame"
      Case #PB_GadgetType_ComboBox ;      8
         ProcedureReturn "ComboBox"
      Case #PB_GadgetType_Image ;         9
         ProcedureReturn "Image"
      Case #PB_GadgetType_HyperLink ;     10
         ProcedureReturn "HyperLink"
      Case #PB_GadgetType_Container ;     11
         ProcedureReturn "Container"
      Case #PB_GadgetType_ListIcon ;      12
         ProcedureReturn "ListIcon"
      Case #PB_GadgetType_IPAddress ;     13
         ProcedureReturn "IPAddress"
      Case #PB_GadgetType_ProgressBar ;   14
         ProcedureReturn "ProgressBar"
      Case #PB_GadgetType_ScrollBar ;     15
         ProcedureReturn "ScrollBar"
      Case #PB_GadgetType_ScrollArea ;    16
         ProcedureReturn "ScrollArea"
      Case #PB_GadgetType_TrackBar ;      17
         ProcedureReturn "TrackBar"
      Case #PB_GadgetType_Web ;           18
         ProcedureReturn "Web"
      Case #PB_GadgetType_ButtonImage ;   19
         ProcedureReturn "ButtonImage"
      Case #PB_GadgetType_Calendar ;      20
         ProcedureReturn "Calendar"
      Case #PB_GadgetType_Date ;          21
         ProcedureReturn "Date"
      Case #PB_GadgetType_Editor ;        22
         ProcedureReturn "Editor"
      Case #PB_GadgetType_ExplorerList ;  23
         ProcedureReturn "ExplorerList"
      Case #PB_GadgetType_ExplorerTree ;  24
         ProcedureReturn "ExplorerTree"
      Case #PB_GadgetType_ExplorerCombo ; 25
         ProcedureReturn "ExplorerCombo"
      Case #PB_GadgetType_Spin ;          26
         ProcedureReturn "Spin"
      Case #PB_GadgetType_Tree ;          27
         ProcedureReturn "Tree"
      Case #PB_GadgetType_Panel ;         28
         ProcedureReturn "Panel"
      Case #PB_GadgetType_Splitter ;      29
         ProcedureReturn "Splitter"
      Case #PB_GadgetType_MDI ;           30
         ProcedureReturn "MDI"
      Case #PB_GadgetType_Scintilla ;     31
         ProcedureReturn "Scintilla"
      Case #PB_GadgetType_Shortcut ;      32
         ProcedureReturn "Shortcut"
      Case #PB_GadgetType_Canvas ;        33
         ProcedureReturn "Canvas"
      Case 34 ;                           34
         ProcedureReturn "Mystery"
      Case #PB_GadgetType_WebView ;       35
         ProcedureReturn "WebView"
   EndSelect
EndProcedure

For i = 0 to 35
   Debug getGType(i)+"  "+i
Next