XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fortschrittsbalken mit Farbverlauf erstellen
Lauffähig ab Profan-Version 5.0
Eine Verlaufsfarbenprozessbar erzeugen und ausführen.
(c) by Rolf Koch - Koblenz - Februar 2003
2 Funktionen:
GRADIENTPROZESSBAR
Parameter: Verlaufsfarbenbild,Fensterhandle,x,y,x,y
SETPROZESS
Parameter: Pixelweite
 $I GRADBAR.INC Include einbinden
Declare gradi&,test%,dlg&,GENDE%
Def GetSysColor(1) !USER32,GetSysColor
settruecolor 1
WindowStyle $003F
WINDOWTITLE
WINDOW 150,106-480,230
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
Settext %HWND,Gradientprozessbar - (c) by Rolf Koch
GRADIENTPROZESSBAR FARBEN.BMP,%HWND,10,25,450,15	Übliche Parameter
GRADI&=@&(0)						Rückgabe

WHILENOT test%

    sleep 70 hier wäre normal Aktion

    if GENDE%=0

        SETPROZESS 2
        GENDE%=@%(0)

    else

        test%=1 ABBRUCH SCHLEIFE

    endif

WEND

destroywindow(gradi&)
********************************************************************************************
UND NOCHMAL:
Let dlg&=Createdialog(%hwnd,Auch auf einem Dialog ;),100,100,500,300)
Settext %HWND,Gradientprozessbar - (c) by Rolf Koch
GRADIENTPROZESSBAR FARBEN.BMP,DLG&,10,75,480,35	Übliche Parameter
GRADI&=@&(0)
test%=0
Gende%=0

WHILENOT test%

    sleep 100 hier wäre normal Aktion

    if GENDE%=0

        SETPROZESS 2
        GENDE%=@%(0)

    else

        test%=1 ABBRUCH SCHLEIFE

    endif

WEND