Einzelnen Beitrag anzeigen

TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
2.959 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Aus Brush die Pinselfarbe ermitteln?

  Alt 20. Okt 2015, 09:09
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;
  Mit Zitat antworten Zitat