paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 06:08:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix MonitorFromPoint after the change in IntersectRect in fpc (issue #0017774)

Browse Source 
git-svn-id: trunk@28458 -
This commit is contained in:
paul 2010-11-24 14:42:03 +00:00
parent 89ae509848
commit cad7df0fbd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/screen.inc
View File

@ -414,7 +414,7 @@ begin
if MonitorHandle = MONITOR_UNIMPL then
begin
R.TopLeft := Point;
R.BottomRight := Point;
R.BottomRight := Types.Point(Point.X + 1, Point.Y + 1);
Result := MonitorFromRect(R, MonitorDefault);
end
else