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

[hncdczp]

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

[zaza_bbface]

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

[real_name]

转化成Bitmap

[王集鹄]

//转化成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;