基于AI在线抠图结合火猴中scalelayout的应用效果展示（提供下载）（firemonkey）

缘起：

     想检验一下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