Code: Select all
Enumeration
#ReturnEvent
#String1
#String2
#Container1
#Container2
EndEnumeration
If OpenWindow(0, 0, 0, 322, 205, "StringGadget Flags", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
AddKeyboardShortcut(0, #PB_Shortcut_Return, #ReturnEvent)
ContainerGadget(#Container1, 0, 10, 306, 20)
StringGadget(#String1, 0, 0, 306, 20, "Normal StringGadget...")
CloseGadgetList()
CanvasGadget(#Container2, 8, 35, 306, 20, #PB_Canvas_Container)
StringGadget(#String2, 0, 0, 306, 20, "1234567")
CloseGadgetList()
SetGadgetColor(#String2, #PB_Gadget_FrontColor, RGB(0, 0, 255))
Repeat
event = WaitWindowEvent()
Select event
Case #PB_Event_Menu
If EventMenu() = #ReturnEvent
Select GetActiveGadget()
Case #String1 : Debug "String1"
Case #String2 : Debug "String2"
EndSelect
EndIf
EndSelect
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf