MBonaldo/hfs2
1
0
Fork 0
mirror of https://github.com/rejetto/hfs2.git synced 2025-12-19 10:03:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

tpl to be treated as diff tpl, inheriting the default tpl

Browse Source
This commit is contained in:
Massimo Melina 2020-05-24 17:03:31 +02:00
parent 0884a2434a
commit 8f1965f863
2 changed files with 22 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
classesLib.pas
View File

@ -909,18 +909,22 @@ end;
function Ttpl.getSection(section:string; inherit:boolean=TRUE):PtplSection;
begin
try result:=sections[section]
except result:=NIL
end;
if sections.containsKey(section) then
result:=sections[section]
else
result:=NIL;
if inherit and assigned(over) and ((result = NIL) or (trim(result.txt) = '')) then
result:=over.getSection(section);
end; // getSection
function Ttpl.getTxt(section:string):string;
var p: PtplSection;
begin
try result:=getSection(section).txt
except result:=''
end;
p:=getSection(section);
if p = NIL then
result:=''
else
result:=p.txt
end; // getTxt
function Ttpl.getTxtByExt(fileExt:string):string;

25
main.pas
View File

@ -1131,9 +1131,8 @@ var
addingItemsCounter: integer = -1; // -1 is disabled
stopAddingItems, queryingClose: boolean;
port: string;
defaultTpl: string;
lastWindowRect: Trect;
dmBrowserTpl, filelistTpl: Ttpl;
defaultTpl, dmBrowserTpl, filelistTpl: Ttpl;
tplEditor: string;
tplLast: Tdatetime;
tplImport: boolean;
@ -4496,7 +4495,7 @@ finally
end; // runTplImport
// returns true if template was patched
function setTplText(text:string):boolean;
function setTplText(text:string=''):boolean;
(* postponed to next release
procedure patch290();
{$J+}
@ -4528,8 +4527,10 @@ function setTplText(text:string):boolean;
begin
result:=FALSE; // mod by mars
//patch290();
if trim(text) = trim(defaultTpl.fullText) then
text:='';
tpl.fullText:=text;
tplIsCustomized:= text <> defaultTpl;
tplIsCustomized:= text > '';
if boolOnce(tplImport) then
runTplImport();
end; // setTplText
@ -4545,7 +4546,7 @@ if fileExists(tplFilename) then
else if tplLast <> 0 then
begin
tplLast:=0; // we have no modified-time in this case, but this will stop the refresh
setTplText(defaultTpl);
setTplText();
end;
end; // keepTplUpdated
@ -7161,7 +7162,7 @@ if lastGoodLogWidth > 0 then
if lastGoodConnHeight > 0 then
connPnl.Height:=lastGoodConnHeight;
if not fileExists(tplFilename) then
setTplText(defaultTpl);
setTplText();
srv.persistentConnections:=persistentconnectionsChk.Checked;
applyFilesBoxRatio();
updateRecentFilesMenu();
@ -11575,7 +11576,7 @@ begin
if not fileExists(tplFilename) then
begin
tplFilename:=TPL_FILE;
saveTextFile(tplFilename, defaultTpl);
saveTextFile(tplFilename, defaultTpl.fullText);
end;
exec(getTplEditor(), '"'+tplFilename+'"');
end;
@ -11931,7 +11932,7 @@ and only1instanceChk.checked and not mono.master then
end;
if not cfgLoaded then
setTplText(defaultTpl);
setTplText();
processParams_before(params);
@ -12526,11 +12527,8 @@ else
tmpPath:=getTempDir();
lastUpdateCheckFN:=tmpPath+'HFS last update check.tmp';
setCurrentDir(exePath); // sometimes people mess with the working directory, so we force it to the exe path
if fileExists('default.tpl') then
defaultTpl:=loadTextfile('default.tpl')
else
defaultTpl:=getRes('defaultTpl');
tpl:=Ttpl.create();
defaultTpl:=Ttpl.create(getRes('defaultTpl'));
tpl:=Ttpl.create('', defaultTpl);
defSorting:='name';
dmBrowserTpl:=Ttpl.create(getRes('dmBrowserTpl'));
filelistTpl:=Ttpl.create(getRes('filelistTpl'));
@ -12590,6 +12588,7 @@ FINALIZATION
progFrm.free;
toDelete.free;
tpl.free;
defaultTpl.Free;
filelistTpl.free;
autoupdatedFiles.free;
iconsCache.free;