ProgressBar färben?

[AlexII]

Hallo,

ich versuche schon seit gestern die ProgressBar zu färben. Habe alles ausprobiert was google her geben konnte, aber nix klappt. Hier einige Beispiele:

Delphi-Quellcode:

const WM_USER = $0400;
  CCM_FIRST = $2000;
  PBM_SETBARCOLOR = WM_USER + 9;
  PBM_SETBKCOLOR = CCM_FIRST + 1;   

...

  ProgressBar2.Brush.Color:= clRed; // Set Background colour
  //ProgressBar2.Perform(PBM_SETBARCOLOR, 0, clRed);
  //ProgressBar2.Position := 50;
  SendMessage(ProgressBar2.Handle, PBM_SETBARCOLOR, 0, clRed);
  //SendMessage(ProgressBar2.Handle, PBM_SETBARCOLOR, 0 , RGB(200, 200, 155));
  Progressbar2.Repaint;
  //ProgressBar2.Parent.Color:=clred;
  //ProgressBar2.Color:=clred;
  //SetWindowTheme(ProgressBar2.Handle, '', '');

Bin für jede Hilfe dankbar!

[Daniel]

Wenn er wirklich bunt sein soll, wirst Du ihn komplett selbst zeichnen müssen.
Der normale Fortschrittsbalken von Windows ist je nach Status entweder grün, gelb oder rot.

"Nur" mal eben so die Balkenfarbe zuweisen geht meines Wissens nicht. Du könntest aber schauen, ob Du bei den Windows 3.1-Komponenten noch den "TGauge" findest. Möglicherweise kann man dort ein wenig Farbe drüberkippen.

[Der schöne Günther]

Wenn man vorher das Theming abschaltet, geht es. Sieht aber auch dementsprechend schrecklich aus.

Code:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   SetWindowTheme(ProgressBar1->Handle, NULL, L"");
   SendMessage(ProgressBar1->Handle, WM_USER + 9, 0, clRed);
}

[AlexII]

Zitat von Daniel:

Wenn er wirklich bunt sein soll, wirst Du ihn komplett selbst zeichnen müssen.
Der normale Fortschrittsbalken von Windows ist je nach Status entweder grün, gelb oder rot.

Heißt das, dass durch Statusänderung auch die Farbe geändert wird? Wie ändert man den Status?

Übrigens der von mir gezeigte Code funktioniert laut Quellen bei vielen Usern, bei mir aber nicht. Liegt wohl am Lazarus nehme ich an.

[Sir Rufo]

Du musst das Theming ausschalten
Du musst das Theming ausschalten
Du musst das Theming ausschalten
Du musst das Theming ausschalten

Einmal reicht anscheinend nicht

[AlexII]

Zitat von Sir Rufo:

Du musst das Theming ausschalten
Du musst das Theming ausschalten
Du musst das Theming ausschalten
Du musst das Theming ausschalten

Einmal reicht anscheinend nicht

Es MUSS auch anders gehen, zig User schreiben das! Z.B. hier, von Luckie persönlich -> http://www.delphipraxis.net/714479-post9.html

Oder war es nicht für Windows >= 7?

[mkinzler]

Theming bedeutet: Windows soll entscheiden¡

[Der schöne Günther]

Zitat von AlexII:

zig User schreiben das! Z.B. hier, von Luckie persönlich -> http://www.delphipraxis.net/714479-post9.html?

Alternativ könntest du dort noch eine Seite weiter blättern und lesen dass man...

...


... das Theming abschalten muss.

[AlexII]

Hm... ok... muss es dann so akzeptieren. Danke euch!

[Aviator]

Den Status kannst du über die Eigenschaft "Status" der Progressbar ändern. Hier gibt es 3 Modi: pbNormal (Grün), pbPause (Gelb) und pbError (Rot). Andere Farben gehen eben nur indem du das Theming ausschaltest oder über die von Daniel erwähnte TGauge. Die hat zudem noch eine Prozentanzeige. Die TGauge sieht aber natürlich nicht so schön aus, wie die normale Progressbar.