ProgressBar Farbe lässt sich nicht ändern

[Die Muhkuh]

Zitat von BullsEye:

Hm ich werd da nochmal schauen.
Aber danke euch erstmal

Alternativ kannst Du, wie schon erwähnt, eine TGauge verwenden, die kannst Du farblich anpassen.

[bitsetter]

Zitat von Muetze1:

Wenn du das XP Manifest nutzt, dann wird das Theme verwendet, sprich: Der ProgressBar wird von Windows anhand des Themes gezeichnet. Somit musst du dir entweder selber einen Progressbar schreiben bzw. komplett einen Balken selber malen.

Hallo,

oder mit

Delphi-Quellcode:

uses uxTheme;

  if uxTheme.IsThemeActive then
    uxTheme.SetWindowTheme(Progressbar1.Handle, '', '');

das Theme für die Progressbar abschalten.

[BullsEye]

Delphi-Quellcode:

uses uxTheme, commctrl;

procedure TfrmEinstellungen.btnFarbeClick(Sender: TObject);
begin
  if uxTheme.IsThemeActive then
    uxTheme.SetWindowTheme(frmMain.pbLeft.Handle, '', '');
    uxTheme.SetWindowTheme(frmMain.pbRight.Handle, '', '');
  frmMain.pbLeft.Brush.color := clTeal;
  SendMessage(frmMain.pbLeft.Handle, PBM_SETBARCOLOR, 0, clblue);
  frmMain.pbRight.Brush.color := clTeal;
  SendMessage(frmMain.pbRight.Handle, PBM_SETBARCOLOR, 0, clblue);
end;

So gehts!!
Danke dir bitsetter!!!

[DeddyH]

Fehlt da nicht ein begin...end?

[dominikkv]

Zitat von BullsEye:

Delphi-Quellcode:

uses uxTheme, commctrl;

procedure TfrmEinstellungen.btnFarbeClick(Sender: TObject);
begin
  if uxTheme.IsThemeActive then
    uxTheme.SetWindowTheme(frmMain.pbLeft.Handle, '', '');
    uxTheme.SetWindowTheme(frmMain.pbRight.Handle, '', '');
  frmMain.pbLeft.Brush.color := clTeal;
  SendMessage(frmMain.pbLeft.Handle, PBM_SETBARCOLOR, 0, clblue);
  frmMain.pbRight.Brush.color := clTeal;
  SendMessage(frmMain.pbRight.Handle, PBM_SETBARCOLOR, 0, clblue);
end;

So gehts!!
Danke dir bitsetter!!!

fehlt da nicht ein begin..end?
edit: lol...genau der gleiche wortlaut xD

[DeddyH]

XD

[BullsEye]

nunja, das mag sein aber es läuft ersteinmal, und das ist das wichtigste^^
Aber ich glaube wenn wir nur einen Fall haben ist ein Begin & End unwichtig oder?

[xZise]

Naja...
Das ist fast so als würdest du sagen:

Delphi-Quellcode:

if MyObject.IstApfel then
  MyObject.Form := Rund;
  MyObject.Color := clRed;

Ergebnis:
Egal, was MyObject ist, er wäre immer rot!
Delphi kann ja nicht wissen, was er alles machen soll, wenn die Bedingung erfüllt ist.
Ein Beispiel:

Delphi-Quellcode:

if myObject.IstApfel then
MyObject.Form := Rund;
MyObject.Color := clRed;
if myObject.IstLebensmittel then
myObject.Essen;

Was soll er machen, wenn "IstApfel" und "IstLebensmittel" wahr sind?
Was, wenn nur "IstLebensmittel" wahr ist?
Und was wenn gar nichts wahr ist xD?

Und Einrückungen zählen nicht Die ignoriert der Compiler!

Zwar funktioniert es so, aber die zweite ProgressBar hat nie einen Skin.

MfG
xZise