From a53ade57f65b9bec33645ba2c756611a5ae99a57 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 19 Sep 2018 09:10:21 +0000
Subject: [PATCH] TFindDialog: use Position := poMainFormCenter in CalcPosition
 instead of trying to calculate that by ourselves. Patch by Serge Anvarov

git-svn-id: branches/fixes_2_0@59074 -
---
 lcl/include/finddialog.inc | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/lcl/include/finddialog.inc b/lcl/include/finddialog.inc
index 8f7c7e3266..8218209eca 100644
--- a/lcl/include/finddialog.inc
+++ b/lcl/include/finddialog.inc
@@ -575,19 +575,14 @@ begin
 end;
 
 procedure TFindDialog.CalcPosition(aForm:Tform);
-Var
-  MfBound : Trect;
-
 begin
   //debugln(['TFindDialog.CalcPosition: Left=',Left,', Top=',Top,', Position=',dbgs(position),', FFormLeft=',FFormLeft,', FFormTop=',FFormTop]);
   if (FFormLeft < 0) and (FFormTop < 0) then
   begin
-    MfBound := Application.MainForm.BoundsRect;
-    FFormTop  := MfBound.Top + (((MfBound.Bottom - MfBound.Top)  - aForm.Height) Div 2);
-    FFormLeft := MfBound.Left + (((MfBound.Right - MfBound.Left) - aForm.Width) Div 2);
+    aForm.Position := poMainFormCenter;
+    FFormTop := aForm.Top;
+    FFormLeft := aForm.Left;
   end;
-  aForm.Top := FFormTop;
-  aForm.Left := FFormLeft;
 end;