小弟求助：如何知道一张图片（bmp）某一点的颜色？如何分割图片？

Question

比如一张15*60的图片
如何知道(0,0)....(15.0)....的颜色?
我想把图片分成3份，3张15*20的图片（将60分成3份），怎么分啊？

Answer 1

获取图片某点的颜色：
Image.Canvas.Pixels[x,y]
要分割图片用Image.Canvas.CopyRect函数

Answer 2

将Image1的图分割成3张：
procedure TForm1.Button1Click(Sender: TObject);
var Rect1,Rect2,Rect3:TRect;
    w,h:integer;
begin
  w:=Image1.Width ;
  h:=Image1.Height div 3;
  Rect1:=Rect(0,0,w,h);
  Rect2:=Rect(0,h,w,h*2);
  Rect3:=Rect(0,h*2,w,h*3);
  with Image2 do
     begin
       Height:=h;
       Width:=w;
       Canvas.CopyRect(Rect1,Image1.Canvas,Rect1);
     end;
  with Image3 do
    begin
      Height:=h;
      Width:=w;
      Canvas.CopyRect(Rect1,Image1.Canvas,Rect2);
    end;
  with Image4 do
    begin
      Height:=h;
      Width:=w;
      Canvas.CopyRect(Rect1,Image1.Canvas,Rect3);
    end;
end;