XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Titelzeile eines Fensters verändern
Lauffähig ab Profan-Version 5.0
Erklärung:
----------
Dieses Beispiel demonstriert, wie man die Titelzeile
des Programmfensters verändern kann
Es bedeuten:
------------
Titel?$    der Text der Titelzeile des Hauptfensters
exit%      Handle des Beenden-Buttons
test%      Handle des Test-Buttons
i%         Zählvariable
declare e%,exit%,test%,i%
declare Titel1$,Titel2$,Titel3$,Titel4$,Titel5$
let titel1$=Profan² ist Klasse !!!
let titel2$=Profan² an die Schulen !!!
let titel3$=Profan² an die Schulen ???
let titel4$=Profan² ist super !!!
let titel5$=Mit Profan² ins WWW !!!
cls                      Erzeugt Hauptfenster 640 x 480 Pixel
WindowTitle Titel5$      Setzen des Fenstertitels
let exit%=CreateButton(%HWnd,Exit,5,405,100,25)
let test%=CreateButton(%HWnd,Fenstertitel ändern,475,405,150,25)
let e%=0

whilenot e%

    WaitInput

    if GetFocus(exit%)

        let e%=1

    elseif GetFocus(test%)

        inc i%
        case i% = 1 : SetText %HWnd,Titel1$
        case i% = 2 : SetText %HWnd,Titel2$
        case i% = 3 : SetText %HWnd,Titel3$
        case i% = 4 : SetText %HWnd,Titel4$
        case i% = 5 : SetText %HWnd,Titel5$
        case i% = 6 : i% = 1

    endif

wend

end