Hallo,

Ich habe bislang eine Progressbar mit folgendem Code gefärbt:

SendMessage(ThpwProgressBar( ProgressList.Items[Found] ).Handle, BAR_CONST, 0, GetColor(bgcolor)); Nun musste ich feststellen das dieses mit XP-Luna nicht mehr funktioniert, nur mit XP classic.

Hat jemand einen Tip mit dem das auch unter Luna funktioniert?

Moinsen!
Hab vor kurzem noch gelesen das man die Farbe des Brushes einer TProgressBar ändern kann um die andere Farbe zu erhalten, schau mal auf www.swissdelphicenter.ch vorbei da stand das glaub ich.

Ja da steht dieser code:

markieren

Delphi-Quellcode:

uses
  CommCtrl;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Set the Background color to teal
  Progressbar1.Brush.Color := clTeal;
  // Set bar color to yellow
  SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow);
end;

Aber was steckt hinter der Konstanten PBM_SETBARCOLOR?

Ich hatte bislang:

BAR_CONST = $0409;

Einen Blick in die msdn:
http://msdn.microsoft.com/library/de...etbarcolor.asp
Meines Wissens ist das eine Nachricht die Windows mitteilt, das sich die Farbe deiner ProgressBar geändert hat bzw. das Windows die Farbe ändert, darauf dürfte das hinaus laufen.

Genau das benutze ich ja, aber leider funktioniert das auf allen Plattformen ausser XP luna. Das kann aber doch nicht an delphi 5 liegen?

Ich glaube das läuft nicht unter XP Denn in der Msdn steht:

Zitat:

Minimum operating systems: Windows 2000, Windows NT 4.0 with Internet Explorer 4.0, Windows 98, Windows 95 with Internet Explorer 4.0

Wieso da steht doch Minimum und nicht ausschliesslich!
Und XP classic geht ja auch!

Zitat von HPW:

Und XP classic geht ja auch!

Für XP Luna werden die Common Controls in der Version 6.0 verwendet,
bei XP Classic ist das noch die 5.x. Die werden ganz anders gezeichnet.
Ob jetzt aber ein einfärben unter Luna möglich ist ??

Wahrscheinlich nicht, weil der Progressbar dann faktisch eine Bitmap aus dem jeweiligen Theme-File ist.
Oder sagen wir so: vielleicht wird er gefärbt. Man sieht´s nur nicht, weil die Bitmap drüber liegt.

Schöne neue Welt von M$ Luna (

Da kann man dann wohl nicht viel machen.