基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

可以bmp格式图片或图形进行水平分割

procedure TForm1.Button4Click(Sender: TObject);

{ 先准备好测试图片 } var


bit: TBitmap;
bits: array [0 .. 3] of TBitmap;
{ 假如分成 4 份 } i, w, h: Integer;
image: array [1 .. 4] of  TImage;

begin
bit := TBitmap.Create;
bit.LoadFromFile(edit1.text);
w := bit.Width div 2;
h := bit.Height div 2;
 bits[0] := TBitmap.Create;
 bits[0].Assign(bit);

 for i := 1 to 3 do
 begin
 bits[i] := TBitmap.Create;
 bits[i].Assign(bits[i-1]);
 //bits[i].Height :=h;

 bits[i].Width :=bit.Width div 4;

 bits[i].Canvas.CopyRect(Rect(0, 0, bit.Width-bits[i].Width*i, bit.Height), bit.Canvas, Rect(bits[i].Width*i, 0, bit.Width, bit.Height));

 //image[i].Picture.Assign( bits[i]);
 end;
   bits[0].Width:= bit.Width div 4;
  image1.picture.Assign(bits[0]);


 image2.Picture.Assign(bits[1]);
  image3.Picture.Assign(bits[2]);
   image4.Picture.Assign(bits[3]);
bit.Free;
end;

end.