FireMonkey：如何在位图上绘制焦点矩形？

Question

我正在向XE5 / FireMonkey移植一个使用Canvas.DrawFocusRect的VCL应用程序。这在FireMonkey中不存在，因此问题是：如何替换DrawFocusRect？

如果这很重要，画布就是TPaintBox画布。

由于

Answer 1

以下是第一次如何绘制焦点矩形。

procedure TForm1.Button1Click(Sender: TObject);
var
  R: TRectF;
begin
  R := PaintBox1.AbsoluteRect;
  InflateRect(R, -0.5, -0.5);
  PaintBox1.Canvas.BeginScene;
  PaintBox1.Canvas.DrawDashRect(R, 0, 0, AllCorners, PaintBox1.AbsoluteOpacity, $A0909090);
  PaintBox1.Canvas.EndScene;
end;

Answer 2

TS选择是否合适：http://docwiki.embarcadero.com/Libraries/XE5/en/FMX.Objects.TSelection

它是一个绘制可拖动/可调整大小的矩形的组件。