[修正] Berlin Firemonkey Windows 控件左方显示虚线问题

Posted 2020-08-04 龟山Aone

说明：在 Wndows 显示时，有时控件左方会显示一条虚线

适用：Firemonkey Windows （Berlin 或更高版）

修正方法：

请将源码 FMX.Canvas.D2D.pas 复制到自己的工程目录里，再进行修改。

procedure TCanvasD2D.SetClipRects(const ARects: array of TRectF);

...略...

    for I := 0 to High(ARects) do
    begin
      R := ARects[I];

{+++>}InflateRect(R, 0.0001, 0.0001); // 加入此行代码：修正 Win 控件有虚线残影问题 by Aone 2017.05.03

      if not IsScaleInteger then
        R := AlignToPixel(R);
      SharedFactory.CreateRectangleGeometry(D2Rect(R), ID2D1RectangleGeometry(Geoms[I]));
    end;

...略...

end;

 

未修正：

修正后：