Aus Brush die Pinselfarbe ermitteln?

[TiGü]

Zitat von DualCoreCpu:

ich habe einen Quellcode aus dem Internet, den ich gerne weiter entwickeln möchte.

Ist dieser Quellcode geheim?

Wie wäre es damit?

Delphi-Quellcode:

var
  YourBrushHandle : HBRUSH;
  LBrush : TBrush;
  YourSearchedColor : TColor;
begin
  YourSearchedColor := 0;
  LBrush := TBrush.Create;
  try
    LBrush.Handle := YourBrushHandle;
    YourSearchedColor := LBrush.Color;
  finally
    LBrush.Free;
  end;
end;