Code: Select all
EnableExplicit
Enumeration
#Window
#TextGadget
#StringGadget
EndEnumeration
CloseDebugOutput()
Procedure StringGadgetEvent()
ExamineDesktops()
SetGadgetText(#TextGadget,Str(DesktopWidth(0))+" x "+Str(DesktopHeight(0)))
EndProcedure
OpenWindow(#Window, #PB_Ignore, #PB_Ignore, 400, 600, "", #PB_Window_ScreenCentered|#PB_Window_BorderLess)
LoadFont(0, "Arial", 16)
TextGadget(#TextGadget, 10, 110, 250, 50,"", #PB_Text_Border)
StringGadget(#StringGadget, 10, 10, 250, 50, "")
SetGadgetFont(#TextGadget, FontID(0))
SetGadgetFont(#StringGadget, FontID(0))
BindGadgetEvent(#StringGadget, @StringGadgetEvent())
SetActiveGadget(#StringGadget)
Am I limited to this resolution using SpiderBasic?