UniImage图片填上文字

procedure TMainForm.UniButton2Click(Sender: TObject);
Varbmp: tBitmap;ui: TUniImage;
Beginui := UniImage2;If ui.Picture.Graphic <> nil Then Beginbmp := 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;

• 1.

---

2]加载网上图片

 

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

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

• 1.

---

3]加载本地图片

登录后复制 

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