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

IDE: designer: menu templates: simplified cfgpath

Browse Source 
git-svn-id: trunk@53227 -
This commit is contained in:
mattias 2016-10-26 16:45:22 +00:00
parent 557e4c9757
commit 4bb3ff1725
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
designer/menutemplates.pas
View File

@ -143,6 +143,7 @@ function SavedTemplatesExist: boolean;
function GetSavedTemplatesCount: integer;
function InsertMenuTemplateDlg: TMenuItem;
function DeleteMenuTemplateDlg: boolean;
function GetCfgPath: string;
const
MenuBar_Height = 20;
@ -193,7 +194,7 @@ var
XMLConfig: TXMLConfig;
cfgPath, s, templateCfgName: string;
begin
cfgPath:=SetDirSeparators(ExtractFilePath(ChompPathDelim(SysToUTF8(GetAppConfigDir(False)))) + 'lazarus');
cfgPath:=GetCfgPath;
templateCfgName:=cfgPath + DirectorySeparator + MenuTemplatesFilename;
if not FileExistsUTF8(templateCfgName) then
Exit(False);
@ -263,6 +264,11 @@ begin
end;
end;
function GetCfgPath: string;
begin
Result:=ExtractFilePath(ChompPathDelim(GetAppConfigDirUTF8(False)))+'lazarus';
end;
{ TMenuTemplate }
@ -423,7 +429,7 @@ var
i, j: integer;
cfgPath, s, sc, sText, tmp: string;
begin
cfgPath:=SetDirSeparators(ExtractFilePath(ChompPathDelim(SysToUTF8(GetAppConfigDir(False)))) + 'lazarus');
cfgPath:=GetCfgPath;
XMLConfig:=TXMLConfig.Create(cfgPath + DirectorySeparator + MenuTemplatesFilename);
try
i:=1;
@ -504,7 +510,7 @@ var
i, j: integer;
cfgPath, s: string;
begin
cfgPath:=SetDirSeparators(ExtractFilePath(ChompPathDelim(SysToUTF8(GetAppConfigDir(False)))) + 'lazarus');
cfgPath:=GetCfgPath;
XMLConfig:=TXMLConfig.Create(cfgPath + DirectorySeparator + MenuTemplatesFilename);
try
i:=1;
@ -879,7 +885,7 @@ var
cfgPath, s, desc, currDesc: string;
begin
desc:=TMenuTemplate(FTVTemplates.Selected.Data).Description;
cfgPath:=SetDirSeparators(ExtractFilePath(ChompPathDelim(SysToUTF8(GetAppConfigDir(False)))) + 'lazarus');
cfgPath:=GetCfgPath;
XMLConfig:=TXMLConfig.Create(cfgPath + DirectorySeparator + MenuTemplatesFilename);
try
i:=0;