"laufende" ProgressBar

[CenBells]

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