Mega Code Archive

 

Categories / Delphi / Graphic

 

How to get the grayscale from a RGB color

Title: How to get the grayscale from a RGB color function GetGreyScale(red, blue, green: TColor): TColor; var Color: Integer; begin Color := Round(red * 0.56 + green * 0.33 + blue * 0.11); Result := RGB(Color, Color, Color); end;