Balken zeichnen

[Matze]

Hallo Eggi, herzlich willkommen!

TGauge (Reiter: Beispiele) empfiehlt sich dafür ebenfalls, dort kannst du auch die Farben nach Gutdünken wählen. Wenn du dort ShowText auf false stellst, siehst du die Prozentanzeige nicht mehr und die Anzeige bekommst du vertikal, indem du Kind auf gkVerticalBar stellst.

Edit: Ob es TGauge in Delphi 3 schon gab, kann ich dir allerdings nicht sagen. Delphi 2005 Personal gibt es auch kostenlos in der DP zum Herunterladen, falls dich das näher interessieren sollte. Dann kannst du auch ohne Probleme Anwendungen im XP-Stil erzeugen (XP-Manifest).