XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Button-Position und -Größe verändern
Lauffähig ab Profan-Version 5.0
Erklärung:
----------
Dieses Beispiel demonstriert, wie man die Titelzeile eines Fensters
und den Text auf einem Button verändern kann
Es bedeuten:
------------
Titel?$     der Text der Titelzeile des Hauptfensters
exit%       Handle des Beenden-Buttons
test%       Handle des Test-Buttons
TextButton% Handle des TextButtons
i%          Zählvariable
declare e%,exit%,test%,i%
declare Titel1$,Titel2$,Titel3$,Titel4$,Titel5$
declare TextButton%
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 textbutton% = CreateButton(%HWnd,Titel3$,170,100,300,25)
let e%=0

whilenot e%

    WaitInput

    if GetFocus(exit%)

        let e%=1

    elseif GetFocus(test%)

        inc i%

        if i% = 1

            SetText %HWnd,Titel1$
            SetText TextButton%,Titel4$
            SetWindowPos TextButton% = 75,300 - 550,25

        endif

        if i% = 2

            SetText %HWnd,Titel2$
            SetText TextButton%,Titel5$
            SetWindowPos TextButton% = 5,100 - 200,25

        endif

        if i% = 3

            SetText %HWnd,Titel3$
            SetText TextButton%,Titel1$
            SetWindowPos TextButton% = 5,100 - 200,200

        endif

        if i% = 4

            SetText %HWnd,Titel4$
            SetText TextButton%,Titel2$
            SetWindowPos TextButton% = 5,5 - 600,15

        endif

        if i% = 5

            SetText %HWnd,Titel5$
            SetText TextButton%,Titel3$
            SetWindowPos TextButton% = 5,5 - 600,400

        endif

        case i% = 5 : i% = 0

    elseif GetFocus(Textbutton%)

        MessageBox(Aua! Das tut doch weh !!!,Aua! Aua! Aua!,4112)

    endif

    SetFocus(%HWnd)

wend

end