Scalabium Software

SMExport advertising
Knowledge for your independence'.
Home Delphi and C++Builder tips

#45: How can I convert color value into gray-scaled color value?

If you want to convert a colored image into same gray scaled, then you must convert the color of the each pixel by the next schema:

function RgbToGray(Source: TColor) : TColor;
var Target: Byte;
  Target := Round((0.30 * GetRValue(Source)) +
		(0.59 * GetGValue(Source)) +
		(0.11 * GetBValue(Source)));
  Result := RGB(Target, Target, Target);

Published: November 23, 1999

See also
Word Web-stream
ExcelFile Viewer
Fast Document Viewer
Paradox to MS Access converter
DBExport tools
ABA Picture Convert
DBISAM Password Recovery
SMMsg suite

Contact to webmaster


Borland Software Code Gear Scalabium Delphi tips

Copyright© 1998-2022, Scalabium Software. All rights reserved.

SMExport advertising