Forum: Object-Pascal / Delphi-Language
FreePascal
by Aviator,
14. Apr 2017
Voraussetzung ist, dass auf deiner Form eine ProgressBar vorhanden ist die den Namen pb1 besitzt und du über einen Timer die Position der ProgressBar setzt. Dann funktioniert das in etwa so:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
pb1.Position := pb1.Position - 1; // Hiermit wird der Wert der Position pro Durchlauf des Timers um 1 verringert.
case pb1.Position of
...
Forum: Object-Pascal / Delphi-Language
FreePascal
by Aviator,
12. Apr 2017
Und für die Farben kann man dann noch TProgressBar.State verwenden. Hier ist man zwar auf 3 Farben beschränkt, aber das sollte für "voll", "mittel", und "(fast) leer" ja eigentlich reichen.