[Voron]

Доброго времени суток. Кто знает, подскажите пожалуйста как определить цвет пиксела в TImage. Я смог получить коды цветов 3-х каналов red blue и green по функциям GetRValue и тд., а как мне получить код цвета пиксела в RGB. Как я знаю он ведь в диапазоне от 0..255. Заранее благодарен!

Код:

var r,g,b:byte;
begin
r:=GetRValue(image1.Canvas.Pixels[100,67]);
g:=GetgValue(image1.Canvas.Pixels[100,67]);
b:=GetbValue(image1.Canvas.Pixels[100,67]);
GETRGBVALUE(image1.Canvas.Pixels[100,67])-?

[x128]

Нужно сначала взять цвет, а потом получать значения r,g и b

Код:

var
  c: TColor;
  r,g,b: byte;
begin
  c:=image1.Canvas.Pixels[100,67];
  r:=GetRValue(c);
  g:=GetgValue(c);
  b:=GetbValue(c);

обратно:

Код:

  image1.Canvas.Pixels[100,67]:=RGB(r,g,b);