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