Commit faba340e authored by Juha Manninen's avatar Juha Manninen
Browse files

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

git-svn-id: trunk@59340 -
parent f1335e9e
...@@ -3560,7 +3560,7 @@ var ...@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment