ProgressBar Farbe lässt sich nicht ändern

[Die Muhkuh]

Zitat:

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:

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:

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]

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