Работа с графикой

← →
Young_01 (2003-01-10 21:10) [0]

Уважаемые Мастера ! Подскажите, пожалуйста, как получить цвет пиксела рисунка с данными координатами в формате RGB.

← →
Mihey (2003-01-10 21:31) [1]

Используя свойство ScanLine - это быстро и сразу в RGB. Сначала пишешь такую штучку:

CONST
PixelCountMax = 32768;

TYPE
pRGBTripleArray = ^TRGBTripleArray;
TRGBTripleArray = ARRAY[0..PixelCountMax-1] OF TRGBTriple;

С этими типами и работает ScanLine. Например:

var Row: pRGBTripleArray;
...
Row := Bitmap.Scanline[i];
WITH Row[i] DO
BEGIN
rgbtRed := 255;
rgbtGreen := 255;
rgbtBlue := 255;
END;

Этот пример присвоит значение. Аналогично его можно прочитать. Если же не хочешь ScanLine, а хочешь Pixels[x,y], то можешь использовать функции:

GetRValue(Color: TColor)
GetGValue(Color: TColor)
GetBValue(Color: TColor)

Так вот.

TCanvas.Pixels, GetRValue, GetGValue, GetBValue

Работа с графикой Найти похожие ветки