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

IDEIntf: TIDEDialogLayoutList: save and load scaled layout, issue

Browse Source 
git-svn-id: trunk@53561 -
This commit is contained in:
ondrej 2016-12-05 20:53:02 +00:00
parent 54915a1ca6
commit a15905d3ab
1 changed files with 4 additions and 4 deletions

8
components/ideintf/idewindowintf.pas
View File

@ -1040,8 +1040,8 @@ begin
ALayout:=Find(ADialog,true);
//debugln(['TIDEDialogLayoutList.ApplyLayout ',ALayout.Name,' ',ALayout.SizeValid,' ',ALayout.Width,',',ALayout.Height]);
if ALayout.SizeValid then begin
NewWidth:=ALayout.Width;
NewHeight:=ALayout.Height;
NewWidth:=ADialog.ScaleCoord(ALayout.Width);
NewHeight:=ADialog.ScaleCoord(ALayout.Height);
end else begin
NewWidth:=DefaultWidth;
NewHeight:=DefaultHeight;
@ -1064,8 +1064,8 @@ var
begin
if (ADialog=nil) or (Self=nil) then exit;
ALayout:=Find(ADialog,true);
ALayout.Width:=ADialog.Width;
ALayout.Height:=ADialog.Height;
ALayout.Width:=ADialog.ScaleCoordBack(ADialog.Width);
ALayout.Height:=ADialog.ScaleCoordBack(ADialog.Height);
end;
procedure TIDEDialogLayoutList.Clear;