Balken zeichnen

[egbert]

Hallo !
Ich bin heute den ersten Tag in diesem Forum und noch etwas unbeholfen.
Mein Name ist Eggi , ich bin 28 Jahre und von Beruf Krankenpfleger.
Möchte mich so mal nett vorstellen.
Für mich ist Programmierung nur ein kleines Hobby , ich mache das zur
Enspannung , bin also kein Profi. Habe mich mit Turbo Pascal 7.0 beschäftigt ,
einige für mich nützliche Programme geschrieben , wollte mich aber etwas weiter
entwickeln und kam so zu Delphi ( Delphi3 ).Jeder Anfänger hat dämliche Fragen ,
ich werde da wohl keine Ausnahme machen ...
Es geht um folgendes : Ich möchte nichts weiter , als das auf einer leeren Fläche
ein farbiger 2D Balken von oben nach unten läuft. ( oder von unten nach oben ). Das
ist egal. Das möchte ich natürlich ohne einen störenden Einfluss.
Praktisch wie eine Fortschrittsanzeige , nur eben mit 2D Balken.
Total genial wäre das natürlich in 3D. Aber da fang ich bestimmt an zu spinnen.

Für einen netten Tip wäre ich sehr dankbar.

eggi

[Alexander Roth]

Hallo,

du nimmst am besten ein Shape (ist unter Zusätzlich (jedenfalls in delphi7)) und stellst brush.color auf deine wunschfarbe.
Und kannst mit einem Timer (ist unter system ganz vorne) dein Shape nach ober oder unten bewegen, indem du immer die Eigenschaft shape1.top durch eins erniedrigts oder erhöhst.

[Mavarik]

hmm

[Glaskugelmode=on]

Nimm doch eine ProgressBar und setze die Orientation auf pbVertical

[Glaskugelmode=off]

Sowas?

Frank

[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).