如果在TImage中的图片是Swf格式的，则不能用Image1.Canvas.Ellipse()之类函数画图形了，有什么解决方法吗？

Question

如果在TImage中的图片是Swf格式的，则不能用Image1.Canvas.Ellipse()之类函数画图形了，有什么解决方法吗？
多谢！

Answer 1

//转化成Bitmap再画var
  vBitmap: TBitmap;
begin
  if not Assigned(Image1.Picture.Graphic) then Exit;
  if Image1.Picture.Graphic is TBitmap then Exit;
  vBitmap := TBitmap.Create;
  try
    vBitmap.Width := Image1.Picture.Width;
    vBitmap.Height := Image1.Picture.Height;
    vBitmap.Canvas.Draw(0, 0, Image1.Picture.Graphic);
    Image1.Picture.Graphic := vBitmap;
  finally
    vBitmap.Free;
  end;
  Image1.Canvas.Ellipse(0, 0, 100, 100);
end;

Answer 2

TImage中的图片是Swf格式的?
----------
TImage中能放swf？