Graphic Delphi

  1. Home
  2. Delphi
  3. Graphic
  4. 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;