Delphi 将SVG加载到TImage控件

本文整理自网络，侵删。

 
var
  Image1: TImage;
[...]
// VCL
Image1.Picture.LoadFromFile('c:\mysvg.svg'); 
// FMX
Image1.Bitmap.LoadFromFile('c:\mysvg.svg');


var
 Bitmap: TBitmap;
 Picture: TPicture;
begin
 Bitmap := TBitmap.Create;
 try
  Picture := TPicture.Create;
  try
   Picture.LoadFromFile('c:\mysvg.svg');
   Picture.Graphic.SetSize(1000,1000);
   Bitmap.Assign(Picture.Graphic);
   PaintBox1.Canvas.Draw(0, 0, Bitmap);
  finally
   Picture.Free;
  end;
 finally
  Bitmap.Free;
 end;
end;
 

相关阅读 >>

Delphi pchar和array [0..255] of char的区别

decodedate：从一个tdatetime变量中提取年、月、日数值

Delphi xe 与plc通讯（intcpserver 二进制）

Delphi 链接文件名合并

Delphi 获得当前进程所使用的内存

Delphi memo 内容每n行分批处理

Delphi资源文件的详细使用方法

Delphi xe5 android toast

Delphi 判断端口(port)是否被占用

Delphi 类的声明

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 将SVG加载到TImage控件