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

IDE: Don't let FindReplace dialog outside the monitor area. Issue #34436, patch from Ondrej.

Browse Source 
git-svn-id: trunk@59340 -
This commit is contained in:
juha 2018-10-22 18:43:56 +00:00
parent f1335e9e8a
commit faba340ef4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourceeditor.pp
View File

@ -3560,7 +3560,7 @@ var
begin begin
with EditorComponent do with EditorComponent do
P := ClientToScreen(Point(CaretXPix, CaretYPix)); P := ClientToScreen(Point(CaretXPix, CaretYPix));
ABounds := Screen.MonitorFromPoint(P).BoundsRect; ABounds := Screen.MonitorFromPoint(P).WorkareaRect;
Left := EditorComponent.ClientOrigin.X + (EditorComponent.Width - Width) div 2; Left := EditorComponent.ClientOrigin.X + (EditorComponent.Width - Width) div 2;
Top := P.Y - Height - 3 * EditorComponent.LineHeight; Top := P.Y - Height - 3 * EditorComponent.LineHeight;
if Top < ABounds.Top + 10 then if Top < ABounds.Top + 10 then