delphi - 为什么“Bitmap.SaveToFile”导致黑屏

Question

L.S.

使用Delphi(西雅图)，我已经在FireMonkey应用程序中成功创建了图形。我通过使用类似的语句来做到这一点

path.MoveTo( PointF(X1,Y1));  
path.lineto( PointF(X2,Y2));  path.AddEllipse(RectF(ILeft,ITop,IRight,Ibottom));  Image1.Bitmap.Canvas.BeginScene;  
Image1.Bitmap.Canvas.StrokeThickness := 1;  
Image1.Bitmap.Canvas.StrokeDash := TStrokeDash(0);
Image1.Bitmap.Canvas.DrawPath(path, CoI.X*2); 
Image1.Bitmap.Canvas.EndScene; 

etcetera..(lots of them)

最终图形在我的屏幕上看起来很完美，但是当我要保存位图并随后打开文件时，它始终看起来像是黑屏!为什么这样？

我用了这样的说法:

Image1.Bitmap.SaveToFile('AFilename.bmp');   

有人可以告诉我我需要做些什么才能使其正确吗？
非常感谢。

一月

Answer 1

这对我有用:

procedure TForm1.Button1Click(Sender: TObject);
var
  path: TPathData;
begin
  path := TPathData.Create;
  path.MoveTo( PointF(10,10));
  path.lineto( PointF(20,20));
  path.AddEllipse(RectF(15,10,25,30));

  Image1.Bitmap := TBitmap.Create(50, 50);
  Image1.Bitmap.Canvas.BeginScene;
  Image1.Bitmap.Canvas.Clear(TAlphaColors.White);
  Image1.Bitmap.Canvas.Stroke.Color := TAlphaColors.Black;
  Image1.Bitmap.Canvas.StrokeThickness := 1;
  Image1.Bitmap.Canvas.DrawPath(path, 1);
  Image1.Bitmap.Canvas.EndScene;

  Image1.Bitmap.SaveToFile('C:\Users\me\Desktop\AFilename.png');
end;

Output AFilename.png