基于AI在线抠图结合火猴中scalelayout的应用效果展示(提供下载)(firemonkey)
程序员文章站
2022-04-08 08:45:47
...
缘起:
想检验一下AI在线抠图后的照片效果,决定时候firemonkey中的相关技术,看看效果:
效果:
其中:
scalelayout是为了适应各种屏幕尺寸而诞生的,但是生效必须将align设成client或者fit
saclelayout设置如下:
ScaledLayout1.Align := Fit;
圆形按钮的设置如下:
object CornerButton2: TCornerButton
Size.Width = 89 //Width和Height必须一样
Size.Height = 89 //Width和Height必须一样
Text = '<'
TextSettings.Font.Size = 42
TextSettings.FontColor = claAliceblue
TextSettings.Trimming = None
XRadius = 45 //角度必须45才能组成圆形
YRadius = 45 //角度必须45才能组成圆形
end
代码:
i:Integer;
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.CornerButton1Click(Sender: TObject);
begin
i:=i+1;
if i>15 then
Exit;
Self.Image1.Bitmap.LoadFromFile('D:\fm\'+i.ToString+'-bg.png');
end;
procedure TForm1.CornerButton2Click(Sender: TObject);
begin
if i<=1 then
Exit;
i:=i-1;
Self.Image1.Bitmap.LoadFromFile('D:\fm\'+i.ToString+'-bg.png');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
end;
end.
源码下载:
链接:https://pan.baidu.com/s/1zdTWdhSHhY_AxEyytywjxg
提取码:3j6a