mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-10 15:46:08 +02:00
IDE: Don't let FindReplace dialog outside the monitor area. Issue #34436, patch from Ondrej.
git-svn-id: trunk@59340 -
This commit is contained in:
parent
f1335e9e8a
commit
faba340ef4
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user