ProgressBar Farbe lässt sich nicht ändern

[BullsEye]

Auf nen Button klick (bis jetzt ist das noch so*) soll die Farbe zweier Progress Bars geändert werden.
Aber irgendwie geht das nicht. Oder gibts da noch vllt ne andere Möglichkeit?
Bis jetzt hab ich folgendes:

Delphi-Quellcode:

uses CommCtrl;


procedure TfrmEinstellungen.btnPGBFarbeClick(Sender: TObject);
begin
      frmMain.pbLeft.Perform(PBM_SETBARCOLOR, -1, clblue);
    frmMain.pbRight.Perform(PBM_SETBARCOLOR, -1, clblue);
end;

Andere Farben gehen auch nicht

Delphi-Quellcode:

clgreen
clorange
clred
clgreen
clblack

---------------------------
*soll später noch durch ne ComboBox bzw durch ne PaintBox geändert werden

[SirThornberry]

die Progressbar nimmt doch die Farbe von ihrem Parent an oder liege ich jetzt völlig daneben?

[MrKnogge]

Hast du das XP-Manifest in dein Programm eingebunden?

[Progman]

TProgressBar scheint gar keine Eigenschaft BarColor oder Color zu haben. Jedenfalls hab ich die hier (D2007) nicht gefunden. Man könnte aber TGauge nehmen, da kann man die Farben nach Belieben ändern.

[BullsEye]

Zitat:

Zitat von Progman

TProgressBar scheint gar keine Eigenschaft BarColor oder Color zu haben. Jedenfalls hab ich die hier (D2007) nicht gefunden. Man könnte aber TGauge nehmen, da kann man die Farben nach Belieben ändern.

Im Objectinspector lässt diese sich auch nicht ändern.

Zitat:

Zitat von MrKnogge

Hast du das XP-Manifest in dein Programm eingebunden?

Ja hab ich.

[EDatabaseError]

Bei den Schweizern (swissdelphicenter.ch) gibts ein Code wie man eine Progressbar farbig bekommt...

[BullsEye]

mit Hilfe von SwissDelphiCenter bin ich nun auf folgenden Code bekommen

Delphi-Quellcode:

  
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);

Allerdings scheint der auch nicht wirklich zu funtkionieren?!

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

[Luckie]

Gerade getestet:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, commctrl;

type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
begin
  SendMessage(Progressbar1.Handle, PBM_SETBARCOLOR, 0, clRed);
end;

end.

Funktioniert. Es muss an etwas anderem liegen. Vermutlich an dem vorhanden Manifest, wie Muetze schon gesagt hat.

[BullsEye]

Hm ich werd da nochmal schauen.
Aber danke euch erstmal ;)

[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