XProfan

=============================================================================
Beispiel, das zeigt, wie mittels der @control-Funktion
unter Profan 32 Bit ein Fortschritt-Balken für Win95, WinNT erzeugt wird.
Die Länge des erzeugten Controls stellt in diesem Beispiel 100 % dar.
In der Progressbar wird außerdem der Fortschritt in % angezeigt.
Die Farbe, und Schrift kann individuell gesetzt werden.
-----------------------------------------------------------------------------
Progressbar Stil:
 $50000000   Unterbrochen Laufrichtung links nach rechts
 $50000001   Vollfarbe Laufrichtung links rechts
 $50000004   Unterbrochen Laufrichtung von unten nach oben
 $50000005   Vollfarbe Laufrichtung von unten nach oben
(c)1998 Richard Maurukas
=============================================================================
declare PRDialog&,text1%, text2%, text3%,text4%,text5%,Ende%
declare Progress_1&,Progress_2&
declare PM_Setpos&,PM_DeltaPos&
declare PrgProzent%
let PM_Setpos&    =$402
let PM_DeltaPos&  =$403
settruecolor 1

PROC DEL_PRG_PROZENTANZEIGE

    Startpaint Progress_1&
    textcolor rgb(192,192,192),rgb(192,192,192)
    drawtext 280,0,
    Endpaint

ENDPROC

PROC PRG_PROZENTANZEIGE

    decimals 0
    Startpaint Progress_1&
    textcolor rgb(255,255,255),-1
    drawtext 280,0,add$(str$(@%(1)),%)
    endpaint

ENDPROC

let PRDialog&=@Createdialog(%HWND,Progressbalken für Win95, WinNT von Richard Maurukas,0,0,640,250)
Let Progress_1&=@control(msctls_progress32,@$(2),$50810001,20,60,600,20,PRDialog&, 101,%HInstance)
let Progress_2&=@control(msctls_progress32,@$(2),$50800005,0,0,15,200,PRDialog&,10 2,%HInstance)
let text1% = @CreateButton(PRDialog&,Auf 50% setzen,   20,100,200,20)
let text2% = @CreateButton(PRDialog&,Um 2% erhöhen,    20,120,200,20)
let text3% = @CreateButton(PRDialog&,Um 2% erniedrigen,20,140,200,20)
let text4% = @CreateButton(PRDialog&,Auf 0% setzen,    20,160,200,20)
let text5% = @CreateButton(PRDialog&,Beenden,          20,180,200,20)
Startpaint PRdialog&
usefont Times New Roman,42,0,0,0,0
textcolor rgb(7,7,7),-1
Drawtext 260,120, Mit % Anzeige
endpaint

Whilenot Ende%

    Waitinput

    if getfocus(Text1%)

        DEL_PRG_PROZENTANZEIGE
        sendmessage(Progress_1&,PM_Setpos&,50,0) auf 50 setzen
        sendmessage(Progress_2&,PM_Setpos&,50,0) auf 50 setzen
        Let PrgProzent%=50
        PRG_PROZENTANZEIGE PrgProzent%

    elseif Getfocus(Text2%)

        DEL_PRG_PROZENTANZEIGE
        sendmessage(Progress_1&,PM_Deltapos&,2,0) 2 erhöhen
        sendmessage(Progress_2&,PM_Deltapos&,2,0) 2 erhöhen
        add prgProzent%,2
        PRG_PROZENTANZEIGE PrgProzent%

    elseif Getfocus(Text3%)

        DEL_PRG_PROZENTANZEIGE
        sendmessage(Progress_1&,PM_Deltapos&,-2,0) 2 erniedrigen
        sendmessage(Progress_2&,PM_Deltapos&,-2,0) 2 erhöhen
        sub prgProzent%,2
        PRG_PROZENTANZEIGE PrgProzent%

    elseif Getfocus(Text4%)

        sendmessage(Progress_1&,PM_Setpos&,0,0)   auf 0 setzen
        sendmessage(Progress_2&,PM_Setpos&,0,0)   auf 0 setzen
        let prgprozent%=0
        PRG_PROZENTANZEIGE PrgProzent%

    elseif Getfocus(Text5%)

        let Ende%=1

    endif

Wend

end