delphi - 如何将 TImage 组件内的鼠标坐标正确发送到 Android Path.moveTo() 和 Path.lineTo() 方法？

Question

我找到了一个 android 代码，您的目标是模拟 L 形拖动路径：向右 200 像素，然后向下 200 像素。这些值是在代码中预定义的，如何使用TImage组件的鼠标坐标和您的事件（“mousedown”、“mouseup”等）来实现？PS：我需要在我的远程访问示例（Delphi 控制器> Android 客户端）中实现此功能。

这是安卓代码>

// Simulates an L-shaped drag path: 200 pixels right, then 200 pixels down.
Path path = new Path();
path.moveTo(200,200);
path.lineTo(400,200);

final GestureDescription.StrokeDescription sd = new GestureDescription.StrokeDescription(path, 0, 500, true);

// The starting point of the second path must match
// the ending point of the first path.
Path path2 = new Path();
path2.moveTo(400,200);
path2.lineTo(400,400);

final GestureDescription.StrokeDescription sd2 = sd.continueStroke(path2, 0, 500, false); // 0.5 second

HongBaoService.mService.dispatchGesture(new GestureDescription.Builder().addStroke(sd).build(), new AccessibilityService.GestureResultCallback(){

@Override
public void onCompleted(GestureDescription gestureDescription){
super.onCompleted(gestureDescription);
HongBaoService.mService.dispatchGesture(new GestureDescription.Builder().addStroke(sd2).build(),null,null);
}

@Override
public void onCancelled(GestureDescription gestureDescription){
super.onCancelled(gestureDescription);
}
},null);