Как сохранить данные TPath как изображение `.jpg` - PullRequest
0 голосов
/ 15 января 2019

Я новичок в 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;
...