delphi - 如何在 firemonkey 平台上移动 2d 对象？

Question

我有一个 VCL 应用程序，它可以执行以下操作:用户可以从工具栏中选择各种形状(矩形、圆形、用户定义的对象)并且可以在场景(TImage 上)上移动(和放置)。移动通过异或模式TPen模式实现。对象未填充。如何用 firemonkey 做到这一点？ (我在firemonkey平台上没有找到xor模式笔模式)

Answer 1

据我所知，FMX 中没有异或笔。 FMX 是一个与 VCL 非常不同的框架，最好建议您找到问题的 FMX 解决方案，而不是尝试按照编写 VCL 的方式进行编码。

所以，您想要表单上的形状。首先添加一个。例如 TRectange 或 TCircle 控件。将形状控件添加到表单中，就像添加列表框或备忘录一样。这些形状可以在工具箱的“形状”部分中找到，但在较新版本的 Delphi 中，您只需在搜索框中键入即可查找控件。

将形状控件添加到表单后，您可以通过修改其 Position 属性来移动它们。例如:

Circle1.Position.X := Circle1.Position.X + 5;

这就是全部内容。

作为替代方案，如果您愿意，您可以自己绘制形状。使用表单的 OnPaint 事件，或添加 TPaintBox 并在其 OnPaint 事件处理程序中实现绘画。

老实说，即使在 VCL 中，这也可能是您应该这样做的方式。在 TImage 的 Canvas 上使用异或绘画不太实用。