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

favorites: use AppendPathDelim instead of IncludeTrailingPathDelimiter for config paths.

Browse Source 
git-svn-id: trunk@51405 -
This commit is contained in:
ondrej 2016-01-25 12:48:37 +00:00
parent 01a9fd311b
commit 5a4006d0a4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/favorites/favorites_impl.pas
View File

@ -32,7 +32,7 @@ interface
uses uses
Classes, SysUtils, ToolBarIntf, IDEImagesIntf, Graphics, PackageIntf, Classes, SysUtils, ToolBarIntf, IDEImagesIntf, Graphics, PackageIntf,
Menus, LazIDEIntf, ProjectIntf, Laz2_XMLCfg, IDEOptionsIntf, Menus, LazIDEIntf, ProjectIntf, Laz2_XMLCfg, IDEOptionsIntf,
IDECommands, ComCtrls, favoritesstr, ImgList; IDECommands, ComCtrls, favoritesstr, ImgList, LazFileUtils;
type type
TFavoritesHandler = class TFavoritesHandler = class
@ -234,7 +234,7 @@ begin
FFavoriteProjects.Duplicates := dupIgnore; FFavoriteProjects.Duplicates := dupIgnore;
FFavoriteProjects.CaseSensitive := False; FFavoriteProjects.CaseSensitive := False;
FFavoriteProjects.Sorted := True; FFavoriteProjects.Sorted := True;
FConfig := TXMLConfig.Create(IncludeTrailingPathDelimiter(LazarusIDE.GetPrimaryConfigPath)+'favorites.xml'); FConfig := TXMLConfig.Create(AppendPathDelim(LazarusIDE.GetPrimaryConfigPath)+'favorites.xml');
LoadFromConfig; LoadFromConfig;
xToolButton := IDEToolButtonCategories.FindItemByCommand(ecOpen); xToolButton := IDEToolButtonCategories.FindItemByCommand(ecOpen);