Delphi将JPG分割到三个TImage里面的例子

最新推荐文章于 2015-11-17 20:34:00 发布

转载最新推荐文章于 2015-11-17 20:34:00 发布 · 1.2k 阅读

文章标签：

#delphi #image #div

DELPHI编程专栏收录该内容

379 篇文章

订阅专栏

本文提供了一个使用Delphi进行图像切割的示例代码。该示例展示了如何将一张完整的图像等分为三份，并分别显示在不同的Image组件上。通过创建位图、定义矩形区域并利用Canvas的CopyRect方法实现图像切割。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TForm1.Button1Click(Sender: TObject); var Rect1,Rect2,Rect3:TRect; bmp:TBitmap; w,h:integer; begin bmp:= TBitmap.Create; bmp.Assign(Image1.Picture.Graphic); 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,bmp.Canvas,Rect1); end; with Image3 do begin Height:=h; Width:=w; Canvas.CopyRect(Rect1,bmp.Canvas,Rect2); end; with Image4 do begin Height:=h; Width:=w; Canvas.CopyRect(Rect1,bmp.Canvas,Rect3); end; bmp.Free; end;