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:

Zitat von Daniel (Beitrag 1305881)

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 :roll:

[AlexII]

Zitat:

Zitat von Sir Rufo (Beitrag 1305886)

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

Einmal reicht anscheinend nicht :roll:

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:

Zitat von AlexII (Beitrag 1305892)

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

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

[Bernhard Geyer]

Oder in neueren Delphi-Versionen verwendet man das eingebaute Theming um die Anwendung unabhängig von Windows eigen gestalten zu können.
Hier könnte man dann die Progressbar im eigenen Theme lila färben.

[BadenPower]

Zitat:

Zitat von Aviator (Beitrag 1305899)

Den Status kannst du über die Eigenschaft "Status" der Progressbar ändern. Hier gibt es 3 Modi: pbNormal (Grün), pbPause (Gelb) und pbError (Rot).

Die Eigenschaft "Status" kennt sein TProgressBar nicht.

[Aviator]

Oh. Ich bin Delphi geschädigt. Dachte allerdings, dass eine solche Eigenschaft auch in Lazarus existiert.

[himitsu]

Zitat:

Zitat von Aviator (Beitrag 1305910)

Oh. Ich bin Delphi geschädigt. Dachte allerdings, dass eine solche Eigenschaft auch in Lazarus existiert.

Ob Lazarus oder Delphi ... man kann natürlich über das Handle der Komponente problemlos jeden API-Befehl auch selber aufrufen, wenn ihn die Komponente noch nicht kennt.
Gut, im Gegensatz zum Delphi brauchst du hier keine zwei Jahre drauf warten, bis das eingebaut wird, sondern du kannst das selber machen und von heute auf morgen ins Lazarus einpflegen lassen. (beim Delphi kann man zwar einen QC erstellen, aber das dauert dann ein bissl, falls es überhaupt übernommen wird)

[Luckie]

1. Guck mal auf das Datum. Mein Beitrag ist von 2007. Da gab es noch kein Windows 7.
2. Lies mal was unter meinem Code noch steht: "Funktioniert. Es muss an etwas anderem liegen. Vermutlich an dem vorhanden Manifest, wie Muetze schon gesagt hat. "
3. Theming (manifest) von Windows deaktivieren. Aber ich glaube, das wurde schon gesagt. :roll: