UniGUI学习之UniImage

参考自带DEMO,C:\Program Files (x86)\FMSoft\Framework\uniGUI\Demos\Desktop\UniImage

0]直接加载到Picture属性

1]UniImage图片填上文字

2]加载网上图片Chrome版本要高于49

3]加载本地图片,使用uniimage的url 指定png图片的路径  这样就是透明的

---

0]直接加载到Picture属性

1]UniImage图片填上文字

procedure TMainForm.UniButton2Click(Sender: TObject);
Var
  bmp: tBitmap;
  ui: TUniImage;
Begin
  ui := UniImage2;
  If ui.Picture.Graphic <> nil Then Begin
    bmp := tBitmap.Create;
    bmp.Assign(ui.Picture.Graphic);
    ui.Picture.Bitmap.Assign(bmp);
    bmp.Free;
  End;
  ui.Picture.Bitmap.Canvas.Brush.Style := bsClear; //透明
  ui.Picture.Bitmap.Canvas.Font.Color := clred; //字体颜色
  ui.Picture.Bitmap.Canvas.TextOut(10, 10, '图片填上文字');
End;

---

2]加载网上图片

 

 http://pic1.win4000.com/tj/2020-11-23/5fbb52853885a.jpg

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
   UniImage1.Url:='http://pic1.win4000.com/tj/2020-11-23/5fbb52853885a.jpg';
   UniImage1.Repaint;
end;

 

---

3]加载本地图片 ,使用uniimage的url 指定png图片的路径  这样就是透明的

procedure TMainForm.UniButton3Click(Sender: TObject);
begin
UniImage1.Url:='b.jpg';
 //  UniImage1.Repaint;
end;