delphi - FireMonkey:如何在位图上绘制焦点矩形？

我正在将使用Canvas.DrawFocusRect的VCL应用程序移植到XE5 / FireMonkey。这在FireMonkey中不存在，所以问题是：如何替换DrawFocusRect？

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

谢谢

最佳答案

这是您第一次绘制焦点时的方法。

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;

关于delphi - FireMonkey:如何在位图上绘制焦点矩形？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/20549901/