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

[flashcoder]

Zitat von Frühlingsrolle:

Im Prinzip, so:

Delphi-Quellcode:

private
  FMouseDown: Boolean;

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FMouseDown := Button = mbLeft;
end;

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if FMouseDown then
    PaintBox1.Canvas.LineTo(X, Y) else
    PaintBox1.Canvas.MoveTo(X, Y);
end;

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FMouseDown := false;
end;

Dies funktioniert nicht, die Mausbewegung muss dem Android-Code in Path.moveTo () und Path.lineTo () entsprechen.

[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).

[flashcoder]

Zitat von Frühlingsrolle:

Und genau das passiert hier!
Wenn du dir etwas Anderes darunter vorstellst, dann musst du es entsprechend beschreiben.

Wenn Sie diesen Weg zu Android-Code (Java oben gepostet) senden, wird nicht funktionieren. Sehen Sie sich noch einmal Java-Code und Sie werden verstehen.