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

TFindDialog: slight improvement on r59031 #daee51d966.

Browse Source 
git-svn-id: trunk@59048 -
This commit is contained in:
bart 2018-09-17 20:07:16 +00:00
parent 5102a7739e
commit a62fcc7e69
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/finddialog.inc
View File

@ -580,16 +580,11 @@ Var
begin
//debugln(['TFindDialog.CalcPosition: Left=',Left,', Top=',Top,', Position=',dbgs(position),', FFormLeft=',FFormLeft,', FFormTop=',FFormTop]);
if (Self.Position.x < 0) and (Self.Position.y < 0) then
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);
end
else
begin
FFormLeft := Position.x;
FFormTop := Position.y;
end;
aForm.Top := FFormTop;
aForm.Left := FFormLeft;
@ -600,7 +595,8 @@ constructor TFindDialog.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FOptions:=[frDown];
Position := Point(-1,-1);
FFormLeft := -1;
FFormTop := -1;
end;
destructor TFindDialog.Destroy;