"laufende" ProgressBar

[Gambit]

Hallo,

kennt irgendjemand eine Komponente für eine laufende Progressbar? Also so eine, die nicht anwächst sondern weiterläuft, ähnlich wie beim XP-Start? Möchte ich anstelle einer Sanduhr verwenden...

Gruß

Gambit

[Ultimator]

Du kannst doch einfachabfragen, ob die Progressbar voll ist und sie dann wieder von vorne durchlaufen lassen, oder?

[toms]

Schau mal in der Anlage. Kannst den Code noch an deine Bedürfnisse anpassen.

(ursprünglich von http://www.swissdelphicenter.ch/de/showcode.php?id=1887 aber mit Gradient )

[Gambit]

Das sieht doch schon ziemlich gut aus. Kann es sein, dass das normalerweise in Blau dargestellt wird. Bei mir ist das grau. Aber könnte auch sein, dass da irgendwas nicht stimmt...

Danke

Gambit

[CenBells]

Zitat:

Zitat von Gambit

Das sieht doch schon ziemlich gut aus. Kann es sein, dass das normalerweise in Blau dargestellt wird. Bei mir ist das grau. Aber könnte auch sein, dass da irgendwas nicht stimmt...

Danke

Gambit

Hi,

du findest in der Methode Execute des Threads die folgende Zeile

Delphi-Quellcode:

           DrawGradient(Image.Canvas,
              Rect(left, imagerect.top, right, imagerect.bottom),
              True,
              [clBtnFace, clBtnShadow]);

Wenn du dort die farben anpasst, wie du sie haben willst, dann klappt das auch mit den eigenen wünschen.
Beispielsweise kannst du auch die werte verwenden, die du beim erstellen übergeben hast.

Delphi-Quellcode:

DrawGradient(Image.Canvas,
              imagerect,
              True,
              [FbkColor, FfgColor])

Gruß
Ken

[tuxhol]

distbar
zu beziehen von Delphi Super Page
Unter Delphi3 / Graphic Controls
macht genau das, was Du möchtest.
weiß nur leider nicht, ob auch unter D7 lauffähig - versuchen :wink:

[Stevie]

Zitat:

Zitat von tuxhol

weiß nur leider nicht, ob auch unter D7 lauffähig - versuchen :wink:

Ist sie... ;-)