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

IDE, Project Session: Reduce unnecessary calls to UpdatePageIndex while loading session

Browse Source 
git-svn-id: trunk@64236 -
This commit is contained in:
martin 2020-12-19 15:09:26 +00:00
parent ecb9e69eac
commit dde3e06c5d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/project.pp
View File

@ -1339,7 +1339,7 @@ end;
procedure TUnitEditorInfo.LoadFromXMLConfig(XMLConfig: TXMLConfig; const Path: string);
begin
IsVisibleTab := XMLConfig.GetValue(Path+'IsVisibleTab/Value', False);
PageIndex := XMLConfig.GetValue(Path+'EditorIndex/Value',0);
FPageIndex := XMLConfig.GetValue(Path+'EditorIndex/Value',0);
WindowID := XMLConfig.GetValue(Path+'WindowIndex/Value',0);
// update old data
if (FPageIndex >= 0) and (FWindowID < 0) then
@ -1916,6 +1916,7 @@ begin
c := XMLConfig.GetValue(Path+'ExtraEditorCount/Value', 0);
for i := 1 to c do
FEditorInfoList.NewEditorInfo.LoadFromXMLConfig(XMLConfig, Path + 'ExtraEditor'+IntToStr(i)+'/');
UpdatePageIndex;
Loaded:=XMLConfig.GetValue(Path+'Loaded/Value',false);
if Loaded then