Wie sende ich TImage-Mauskoordinaten korrekt an Canvas moveTo () / lineTo ()

[flashcoder]

Zitat von Frühlingsrolle:

Was hindert dich daran, anstelle der PaintBox.Canvas, Path zu benutzen?

Delphi-Quellcode:

uses FMX.Objects;  // Include TPath

private
  FPath: TPath;
  FMouseDown: Boolean; 

// constructor
FPath := TPath.Create(self);

// MouseDown event
FMouseDown := true;

// MouseMove event
PaintBox1.Canvas.BeginScene;
if FMouseDown then
  FPath.Data.LineTo(PointF(X, Y)) else
  FPath.Data.MoveTo(PointF(X, Y));
PaintBox1.Canvas.DrawPath(FPath.Data, 1);
PaintBox1.Canvas.EndScene;

// MouseUp event
FMouseDown := false;

Ich suche keine Code-Übersetzung. Ich muss die Mausbewegung auf dem Bildsteuerelement mit dem obigen Android-Code synchronisieren. Das Endergebnis ist ein Ziehpfad in eine beliebige Richtung (auf dem Android-Smartphone).