paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-17 12:50:36 +01: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; function TFindDialog.GetLeft: Integer;
begin begin
if Assigned(FFindForm) then
FFormLeft := FFindForm.Left;
Result:=FFormLeft; Result:=FFormLeft;
end; end;
function TFindDialog.GetPosition: TPoint; function TFindDialog.GetPosition: TPoint;
begin begin
Result:=Point(FFormLeft, FFormTop); Result:=Point(GetLeft, GetTop);
end; end;
function TFindDialog.GetTop: Integer; function TFindDialog.GetTop: Integer;
begin begin
if Assigned(FFindForm) then
FFormTop := FFindForm.Top;
Result:=FFormTop; Result:=FFormTop;
end; end;
@ -464,8 +468,8 @@ end;
procedure TFindDialog.SetPosition(const AValue: TPoint); procedure TFindDialog.SetPosition(const AValue: TPoint);
begin begin
if (FFormLeft <> AValue.x) then Left := AValue.x; if (GetLeft <> AValue.x) then Left := AValue.x;
If (FFormTop <> AValue.y) then Top := AValue.y; If (GetTop <> AValue.y) then Top := AValue.y;
end; end;
procedure TFindDialog.SetTop(const AValue: Integer); procedure TFindDialog.SetTop(const AValue: Integer);