Progressbarfarbe auslesen

[Rastaman]

Tja der Titel sagt alles.
PBM_GETBARCOLOR gibts nicht...

[Luckie]

Warum willst du sie denn auslesen?

Aber du kannst dir mit GetDC() einen DeviceContext auf den DC der Progressbar holen und dann mit GetPixel den Farbwert auslesen.

[Binärbaum]

Vielleicht hat ein Progressbar die Eigenschaft Color bzw. FillColor

MfG
Binärbaum

[Rastaman]

Nein die Eigenschaft hat sie nicht.
Ich hab jetz mal das gemacht

  Shape1.Brush.Color := GetPixel(GetDC(Progressbar1.Handle),20,20); shape is immer schwarz.
Ich kapier das grad nich richtig

[Luckie]

Zitat von Gerrit89:

Code:

  Shape1.Brush.Color := [b]RGB[/b](GetPixel(GetDC(Progressbar1.Handle),20,20));

[Rastaman]

Not enough actual parameters.
g und b fehlen noch

[Luckie]

Die Koordinaten stimmen nicht bei dir. 20, 20 liegt wohl außerhalb der Progressbar:

Delphi-Quellcode:

var
  cl: TColor;
begin
  cl := GetPixel(GetDC(Progressbar1.Handle),2,2);
  if cl <> CLR_INVALID then
    Shape1.Brush.Color := cl
  else
    ShowMessage(SysErrorMessage(GetLastError));

[Rastaman]

mmh jetz gehts es
Naja, muss ich mir merken scheint sehr nützlich