欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

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

程序员文章站 2022-04-08 08:45:47
...

缘起:

     想检验一下AI在线抠图后的照片效果,决定时候firemonkey中的相关技术,看看效果:

 

效果:

基于AI在线抠图结合火猴中scalelayout的应用效果展示(提供下载)(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