Progressbar färben unter XP Luna?
Hallo,
Ich habe bislang eine Progressbar mit folgendem Code gefärbt:
Delphi-Quellcode:
Nun musste ich feststellen das dieses mit XP-Luna nicht mehr funktioniert, nur mit XP classic.
SendMessage(ThpwProgressBar( ProgressList.Items[Found] ).Handle, BAR_CONST, 0, GetColor(bgcolor));
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:
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:
|
Wieso da steht doch Minimum und nicht ausschliesslich!
Und XP classic geht ja auch! |
Zitat:
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. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:44 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz