[修正] Firemonkey Windows 控件有虚线残影问题

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

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

修正方法：

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

TCanvasD2D.SetClipRects( ARects: ...略...

</span><span style="color: #0000ff;"&gt;for</span> I := <span style="color: #800080;"&gt;0</span> <span style="color: #0000ff;"&gt;to</span> High(ARects) <span style="color: #0000ff;"&gt;do</span>
<span style="color: #0000ff;"&gt;begin</span><span style="color: #000000;"&gt;
  R :</span>=<span style="color: #000000;"&gt; ARects[I];

<span style="color: #008000;">{<span style="color: #008000;">+++><span style="color: #008000;">}InflateRect(R,0.0001,0.0001); <span style="color: #008000;">//<span style="color: #008000;"> 加入此行代码：修正 Win 控件有虚线残影问题 by Aone 2017.05.03

<span style="color: #0000ff;">if <span style="color: #0000ff;">not IsScaleInteger <span style="color: #0000ff;">then<span style="color: #000000;">
R :=<span style="color: #000000;"> AlignToPixel(R);
SharedFactory.CreateRectangleGeometry(D2Rect(R),ID2D1RectangleGeometry(Geoms[I]));
<span style="color: #0000ff;">end<span style="color: #000000;">;

...略...

<span style="color: #0000ff;">end;

未修正：

修正后：