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

IDE: copying packagefiles.xml from secondary config directory

Browse Source 
git-svn-id: trunk@15120 -
This commit is contained in:
mattias 2008-05-13 14:37:27 +00:00
parent 67f9451c09
commit b62f0edb8a
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packager/packagelinks.pas
View File

@ -138,7 +138,7 @@ type
constructor Create; constructor Create;
destructor Destroy; override; destructor Destroy; override;
procedure Clear; procedure Clear;
function GetUserLinkFile: string; function GetUserLinkFile(WithPath: boolean = true): string;
function GetGlobalLinkDirectory: string; function GetGlobalLinkDirectory: string;
procedure UpdateGlobalLinks; procedure UpdateGlobalLinks;
procedure UpdateUserLinks; procedure UpdateUserLinks;
@ -310,9 +310,11 @@ begin
FStates:=[plsUserLinksNeedUpdate,plsGlobalLinksNeedUpdate]; FStates:=[plsUserLinksNeedUpdate,plsGlobalLinksNeedUpdate];
end; end;
function TPackageLinks.GetUserLinkFile: string; function TPackageLinks.GetUserLinkFile(WithPath: boolean): string;
begin begin
Result:=AppendPathDelim(GetPrimaryConfigPath)+'packagefiles.xml'; Result:='packagefiles.xml';
if WithPath then
Result:=AppendPathDelim(GetPrimaryConfigPath)+Result;
end; end;
function TPackageLinks.GetGlobalLinkDirectory: string; function TPackageLinks.GetGlobalLinkDirectory: string;
@ -463,6 +465,9 @@ begin
and (FileAge(ConfigFilename)=UserLinkLoadTime) then and (FileAge(ConfigFilename)=UserLinkLoadTime) then
exit; exit;
// copy system default if needed
CopySecondaryConfigFile(GetUserLinkFile(false));
FUserLinksSortID.FreeAndClear; FUserLinksSortID.FreeAndClear;
FUserLinksSortFile.Clear; FUserLinksSortFile.Clear;
XMLConfig:=nil; XMLConfig:=nil;