Firemonkey 图片显示拉伸不变形

发布时间：2020-12-15 04:37:08 所属栏目：大数据来源：网络整理

导读：Firemonkey 实现简单的图片拉伸不变形，是利用原始图片的 "固定区" 及 "位伸区" 来达到此目的，因此必需要有此结构的图片才适合。下面以聊天气泡为例，下图四个角为固定区，就是拉伸时，这四个区是不变的，而拉伸区，会自动依位伸的大小自动位伸：实作效果

Firemonkey 实现简单的图片拉伸不变形，是利用原始图片的 "固定区" 及 "位伸区" 来达到此目的，因此必需要有此结构的图片才适合。

下面以聊天气泡为例，下图四个角为固定区，就是拉伸时，这四个区是不变的，而拉伸区，会自动依位伸的大小自动位伸：

实作效果：

代码，直接扩展 Canvas 功能：

unit FMX.Graphics.Helper;

interface

uses
System.Types,FMX.Graphics;

type

TCanvasHelper = class helper for TCanvas
// 图片四角张缩
procedure DrawBitmapCapInsets(
const Bitmap1: TBitmap; // 图片
const DesRect: TRectF; // 目的区域
const CapInsetsRect: TRectF; // 四角区域
const Opacity: Single = 1.0; // 透明度
const HighSpeed: Boolean = False); // 高速
end;

implementation

// 图片四角张缩
procedure TCanvasHelper.DrawBitmapCapInsets(
const Bitmap1: TBitmap; // 图片
const DesRect: TRectF; // 目的区域
const CapInsetsRect: TRectF; // 四角区域
const Opacity: Single = 1.0; // 透明度
const HighSpeed: Boolean = False); // 高速
var SrcRect: TRectF;
begin
SrcRect := RectF(0,0,Bitmap1.Width,Bitmap1.Height);

 </span><span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt;-------------------------------------------------------------------------</span>
 <span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; 最内圈 (不张缩)                                                        -</span>
 <span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt;-------------------------------------------------------------------------</span>

 <span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; 左上</span>

Self.DrawBitmap(Bitmap1,RectF(SrcRect.Left,SrcRect.Top,SrcRect.Left + CapInsetsRect.Left,SrcRect.Top + CapInsetsRect.Top),RectF(DesRect.Left,DesRect.Top,DesRect.Left + CapInsetsRect.Left,DesRect.Top + CapInsetsRect.Left),Opacity,HighSpeed);

 </span><span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; 右上</span>

Self.DrawBitmap(Bitmap1,RectF(SrcRect.Right - CapInsetsRect.Right,SrcRect.Right,RectF(DesRect.Right - CapInsetsRect.Right,DesRect.Right,DesRect.Top + CapInsetsRect.Top),HighSpeed);

 </span><span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; 左下</span>

Self.DrawBitmap(Bitmap1,SrcRect.Bottom - CapInsetsRect.Bottom,SrcRect.Bottom),DesRect.Bottom - CapInsetsRect.Bottom,DesRect.Bottom),HighSpeed);

 </span><span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; 右下</span>

Self.DrawBitmap(Bitmap1,HighSpeed);

 </span><span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; 左</span>

Self.DrawBitmap(Bitmap1,SrcRect.Top + CapInsetsRect.Top,SrcRect.Bottom - CapInsetsRect.Bottom),DesRect.Top + CapInsetsRect.Top,DesRect.Bottom - CapInsetsRect.Bottom),HighSpeed);

 </span><span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; 上</span>

Self.DrawBitmap(Bitmap1,RectF(SrcRect.Left + CapInsetsRect.Left,SrcRect.Right - CapInsetsRect.Right,RectF(DesRect.Left + CapInsetsRect.Left,DesRect.Right - CapInsetsRect.Right,HighSpeed);

 </span><span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; 右</span>

Self.DrawBitmap(Bitmap1,HighSpeed);

 </span><span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; 下</span>

Self.DrawBitmap(Bitmap1,HighSpeed);

 </span><span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; 中</span>

Self.DrawBitmap(Bitmap1,HighSpeed);
end;

end.

使用方法：

procedure TForm1.PaintBox2Paint(Sender: TObject; Canvas: TCanvas);
begin
Canvas.DrawBitmapCapInsets(Image2.Bitmap,PaintBox2.LocalRect,RectF(17,14,24,16));
end;

源码下载：

参考资料：

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!