paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: restoretest: restore zoom

Browse Source 
git-svn-id: trunk@39765 -
This commit is contained in:
mattias 2013-01-04 15:28:52 +00:00
parent 63420eef9d
commit 0f03c7c0ac
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/anchordocking/restoredebugger/mainunit.pas
View File

@ -191,6 +191,8 @@ begin
SplitterXMLLayout.Left:=Max(1,Cfg.GetValue('Splitter/BetweenXMLAndLayout/Left',SplitterXMLLayout.Left));
SplitterBetweenXML.Top:=Max(1,Cfg.GetValue('Splitter/BetweenXML/Top',SplitterBetweenXML.Top));
SplitterBetweenLayouts.Top:=Max(1,Cfg.GetValue('Splitter/BetweenLayout/Top',SplitterBetweenLayouts.Top));
OriginalView.Scale:=Cfg.GetValue('Original/Layout/Scale',250)/1000;
RestoredView.Scale:=Cfg.GetValue('Restored/Layout/Scale',250)/1000;
finally
Cfg.Free;
end;
@ -215,6 +217,8 @@ begin
Cfg.SetDeleteValue('Splitter/BetweenXMLAndLayout/Left',SplitterXMLLayout.Left,-1);
Cfg.SetDeleteValue('Splitter/BetweenXML/Top',SplitterBetweenXML.Top,-1);
Cfg.SetDeleteValue('Splitter/BetweenLayout/Top',SplitterBetweenLayouts.Top,-1);
Cfg.SetDeleteValue('Original/Layout/Scale',round(OriginalView.Scale*1000),250);
Cfg.SetDeleteValue('Restored/Layout/Scale',round(RestoredView.Scale*1000),250);
finally
Cfg.Free;
end;