Code: Select all
Procedure SetDesktopTitle(title.s)
!document.title = v_title;
EndProcedure
Macro SetDesktopTitle_Macro(_title_)
!document.title = _title_;
EndMacro
Procedure.s GetDesktopTitle()
!return document.title;
EndProcedure
If OpenWindow(0, 20, 20, 300, 200, "Window")
Debug GetDesktopTitle()
SetDesktopTitle_Macro("Window example")
Debug GetDesktopTitle()
EndIf
I would like to change the "desktop background" at runtime:
- SetDesktopBackgroundColor( color )
- GetDesktopBackgroundColor()
Would be even better if we also could set a background pattern:
- SetDesktopBackgroundImage( ImageID )