我是新的 Delphi .我需要一个帮助来完成我的代码.我只是画了一个路径.现在我想保存到Android本地存储作为图像格式.这是我的代码
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
begin
if ssLeft in Shift then
Path1.Data.MoveTo(PointF(X,Y) - Path1.BoundsRect.TopLeft);
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Single);
begin
if ssLeft in Shift then
Path1.Data.LineTo(PointF(X,Y) - Path1.BoundsRect.TopLeft);
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
//save code goes here
end;
字符串
1条答案
按热度按时间wdebmtf21#
唯一对我有用的方法:
字符串
以下选项均无效:
型