---OnMouseMove---
var
r,g,b:integer;
begin
label1.caption:='x= '+inttostr(x)+' y= '+inttostr(y);
r:=GetRValue(image.canvas.pixels[x,y]);
g:=GetGValue(image.canvas.pixels[x,y]);
b:=GetBValue(image.canvas.pixels[x,y]);
label2.caption:='r= '+inttostr(r)+' g= '+inttostr(g)+' b= '+inttostr(b);
|