paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-11 01:48:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

FindDialog: fix reading actual position the finddialogform for Left and Top. Issue #0030668.

Browse Source 
git-svn-id: trunk@53061 -
This commit is contained in:
bart 2016-09-30 20:28:59 +00:00
parent e01bc2c59e
commit 27ba944bdb
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/finddialog.inc
View File

@ -423,16 +423,20 @@ end;
function TFindDialog.GetLeft: Integer;
begin
if Assigned(FFindForm) then
FFormLeft := FFindForm.Left;
Result:=FFormLeft;
end;
function TFindDialog.GetPosition: TPoint;
begin
Result:=Point(FFormLeft, FFormTop);
Result:=Point(GetLeft, GetTop);
end;
function TFindDialog.GetTop: Integer;
begin
if Assigned(FFindForm) then
FFormTop := FFindForm.Top;
Result:=FFormTop;
end;
@ -464,8 +468,8 @@ end;
procedure TFindDialog.SetPosition(const AValue: TPoint);
begin
if (FFormLeft <> AValue.x) then Left := AValue.x;
If (FFormTop <> AValue.y) then Top := AValue.y;
if (GetLeft <> AValue.x) then Left := AValue.x;
If (GetTop <> AValue.y) then Top := AValue.y;
end;
procedure TFindDialog.SetTop(const AValue: Integer);