首页 > 代码库 > [修正] Berlin Firemonkey Windows 控件左方显示虚线问题

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

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

适用:Berlin Firemonkey

修复方法:

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

procedure TPlatformWin.InvalidateWindowRect(const AForm: TCommonCustomForm; R: TRectF);...略...{--->   WR := TRect.Create(Trunc(R.Left), Trunc(R.Top), Ceil(R.Right), Ceil(R.Bottom)); // 删除代码{+++>}  WR := TRect.Create(0, Trunc(R.Top), Ceil(R.Right), Ceil(R.Bottom)); // 增加代码...略...      end;    end;  end;end;

  

问题重现:

技术分享

修正后:

技术分享

 

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