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

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

修正方法：

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

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

…略…

for I :=  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;

未修正：

修正后：