var//颜色处理
i:integer;
r,g,b: INteger;
begin
i:=image1.Canvas.Pixels[0,10];
r:=i and $00FF0000;
g:=i and $0000FF00;
b:=i and $000000FF;
showmessage(inttostr(R)+','+inttostr(G)+','+inttostr(B)+',');
end;
i:integer;
r,g,b: INteger;
begin
i:=image1.Canvas.Pixels[0,10];
r:=i and $00FF0000;
g:=i and $0000FF00;
b:=i and $000000FF;
showmessage(inttostr(R)+','+inttostr(G)+','+inttostr(B)+',');
end;
GetRValue()
GetGValue()
GetBValue()