Progressbarfarbe auslesen

[Rastaman]

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

[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 :wink:

MfG
Binärbaum

[Rastaman]

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

Delphi-Quellcode:

  Shape1.Brush.Color := GetPixel(GetDC(Progressbar1.Handle),20,20);

shape is immer schwarz.
Ich kapier das grad nich richtig :gruebel:

[Luckie]

Zitat:

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 :gruebel:
Naja, muss ich mir merken scheint sehr nützlich :thumb: