From 3f2b113106c887ba33531384b25e7f3d0ce5b39a Mon Sep 17 00:00:00 2001 From: maxim Date: Sat, 6 Feb 2016 14:30:41 +0000 Subject: [PATCH] Merged revision(s) 51402-51403 #17eeef7376-#17eeef7376 from trunk: favorites: use IncludeTrailingPathDelimiter for config path ........ packagetabs: use IncludeTrailingPathDelimiter for config path ........ git-svn-id: branches/fixes_1_6@51521 - --- components/favorites/favorites_impl.pas | 2 +- components/packagetabs/packagetabs_impl.pas | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/components/favorites/favorites_impl.pas b/components/favorites/favorites_impl.pas index ce40139fde..5969221b27 100644 --- a/components/favorites/favorites_impl.pas +++ b/components/favorites/favorites_impl.pas @@ -193,7 +193,7 @@ begin FFavoriteProjects.Duplicates := dupIgnore; FFavoriteProjects.CaseSensitive := False; FFavoriteProjects.Sorted := True; - FConfig := TXMLConfig.Create(LazarusIDE.GetPrimaryConfigPath+'favorites.xml'); + FConfig := TXMLConfig.Create(IncludeTrailingPathDelimiter(LazarusIDE.GetPrimaryConfigPath)+'favorites.xml'); LoadFromConfig; xToolButton := IDEToolButtonCategories.FindItemByCommand(ecOpen); diff --git a/components/packagetabs/packagetabs_impl.pas b/components/packagetabs/packagetabs_impl.pas index 63dd9202a3..2c3df6e184 100644 --- a/components/packagetabs/packagetabs_impl.pas +++ b/components/packagetabs/packagetabs_impl.pas @@ -1186,7 +1186,7 @@ begin inherited Create(aOwner); FTabPanels := TObjectList.Create(True); - FConfig := TXMLConfig.Create(LazarusIDE.GetPrimaryConfigPath+'packagetabs.xml'); + FConfig := TXMLConfig.Create(IncludeTrailingPathDelimiter(LazarusIDE.GetPrimaryConfigPath)+'packagetabs.xml'); Assert(SourceEditorManagerIntf <> nil); SourceEditorManagerIntf.RegisterChangeEvent(semWindowCreate, @WindowCreated);