Das funktioniert über ProgressBars. Die können über die API erstellt werden. Mit PrFellow oder VisualWindowPro lassen die sich ganz einfach erstellen. Das Beispiel wurde mit dem VisualWindow standard erstellt. Kannst Du bei MSGroup als Freeware downloaden
$P+
'Funktionsdefinitionen
Def GetSysColor(1) !"USER32","GetSysColor"
Def CreateProgressBar(7) Control("msctls_progress32",@$(2),$50800000,@%(3),@%(4),@%(5),@%(6),@%(1),@%(7),%hinstance)
Def SetProgressPos(2) SendMessage(@&(1),1026,@&(2),0)
Def ProgressDeltaPos(2) SendMessage(@&(1),1027,@&(2),0)
Def SetProgressStep(2) SendMessage(@&(1),1028,@&(2),0)
Def ProgressStep(1) SendMessage(@&(1),1029,0,0)
'Ende der Funktionsdefinitionen
'Declarationsblock
declare _ende%
Declare ProgressBar1&
'Ende des Declarationsblocks
SetTrueColor 1
WindowStyle 15
WindowTitle "Profan-Fenster"
Window add(%maxx,156),122-550,360
CLS GetSysColor(15)
UseFont "MS Sans Serif",10,7,0,0,0
SetDialogFont 1
let ProgressBar1&=CreateProgressBar(%HWND,"",76,34,150,16,2000)
SetWindowPos %HWND=156,122-550,360
WhileNot _ende%
WaitInput
'GetMessage
If Equ(%key,2)
Let _ende%=1
ElseIf GetFocus(ProgressBar1&)
'Ereignisbehandlung
ElseIf Equ(%key,4)
'Fenstergröße
EndIf
Wend
End
'Quelltext wurde mit MSG VisualWindow erstellt.
'(C)opyright 1998 by MS Group Software
'http://www.msgroup.home.pages.de
mfG, René
|