Aus Brush die Pinselfarbe ermitteln?

[Neutral General]

Nach etwas googeln kam ich auf folgende API: GetObject

Delphi-Quellcode:

// Ist in meinem Delphi 7 was ich hier habe nicht definiert, 
// in neueren Delphi-Versionen wahrscheinlich schon
type
  TLogBrush = record
    lbStyle: Cardinal;
    lbColor: TColor;
    lbHatch: Cardinal;
  end;

function GetBrushColor(ABrushHandle: HBRUSH): TColor;
var brushInfo: TLogBrush;
begin
  if GetObject(ABrushHandle, SizeOf(TLogBrush), @brushInfo) <> 0 then
    Result := brushInfo.lbColor
  else
    Result := clNone;
end;