paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 15:19:19 +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); procedure TUnitEditorInfo.LoadFromXMLConfig(XMLConfig: TXMLConfig; const Path: string);
begin begin
IsVisibleTab := XMLConfig.GetValue(Path+'IsVisibleTab/Value', False); 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); WindowID := XMLConfig.GetValue(Path+'WindowIndex/Value',0);
// update old data // update old data
if (FPageIndex >= 0) and (FWindowID < 0) then if (FPageIndex >= 0) and (FWindowID < 0) then
@ -1916,6 +1916,7 @@ begin
c := XMLConfig.GetValue(Path+'ExtraEditorCount/Value', 0); c := XMLConfig.GetValue(Path+'ExtraEditorCount/Value', 0);
for i := 1 to c do for i := 1 to c do
FEditorInfoList.NewEditorInfo.LoadFromXMLConfig(XMLConfig, Path + 'ExtraEditor'+IntToStr(i)+'/'); FEditorInfoList.NewEditorInfo.LoadFromXMLConfig(XMLConfig, Path + 'ExtraEditor'+IntToStr(i)+'/');
UpdatePageIndex;
Loaded:=XMLConfig.GetValue(Path+'Loaded/Value',false); Loaded:=XMLConfig.GetValue(Path+'Loaded/Value',false);
if Loaded then if Loaded then