Code:
object Gauge1: TGauge
Left = 32
Top = 24
Width = 103
Height = 25
BackColor = clRed
ForeColor = clWhite
MinValue = -100
MaxValue = 0
Progress = -50
ShowText = False
end
object Gauge2: TGauge
Left = 134
Top = 24
Width = 103
Height = 25
ForeColor = clLime
Progress = 50
ShowText = False
end
object Timer1: TTimer
Interval = 10
OnTimer = Timer1Timer
Left = 144
Top = 56
end
object Label1: TLabel
Left = 248
Top = 29
Width = 31
Height = 13
Caption = 'Label1'
end
"Markieren"anklicken, Strg+C drücken und dann Strg+V auf der Form.
Und nach einem Doppelklick auf den Timer das Folgende da rein.
Delphi-Quellcode:
Inc(Position);
if Position > 100
then
Position := -100;
//Gauge1.Progress := Min(Position, 0); // TGauge meckert nicht, wenn Progress außerhalb des Wertebereichs liegt.
//Gauge2.Progress := Max(Position, 0); // Also nicht wie TProgressBar, welches mit einer Exception reagiert.
Gauge1.Progress := Position;
Gauge2.Progress := Position;
Label1.Caption := IntToStr(Position) + '
%';
Man kann auch gerne noch das Nächste in dem Timer mit aufnehmen.
Delphi-Quellcode:
Gauge1.ShowText := Position < 0;
Gauge2.ShowText := Position > 0;
[edit]
Nee, Letzteres geht nicht, denn da ist ein Bug in der Komponente, aber Dieser wird ja niemals repariert.