PureBasic Forums - English

Code: Select all

  If OpenWindow(0, 0, 0, 220, 70, "CoolText", #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_SizeGadget)
          CreateGadgetList(WindowID(0))
          CoolTextGadget(1, 10, 10, 120, 50, "test", 90)
          CoolTextGadget(2, 50, 10, 120, 50, "test", 45)
          SetGadgetColor(2, #PB_Gadget_FrontColor, RGB(255,0,0))
    Repeat
    Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf