Thema: Delphi Negativ bei TImage

Einzelnen Beitrag anzeigen

xaromz

Registriert seit: 18. Mär 2005
1.682 Beiträge
 
Delphi 2006 Enterprise
 
#18

Re: Negativ bei TImage

  Alt 17. Apr 2006, 15:44
Hallo,

das ist üblicher:
Delphi-Quellcode:
function Umkehrfarbe(const Color: TColor): TColor;
begin
  // Result := not ColorToRGB(Color);
  Result := not ColorToRGB(Color) and $FFFFFF; // <-verbessert
end;
Gruß
xaromz
  Mit Zitat antworten Zitat