Suche Komponente ähnlich ProgressBar

[himitsu]

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.