mirror of
https://github.com/rejetto/hfs2.git
synced 2025-12-19 10:03:56 +01:00
loading hfs.diff.*.tpl in exe's folder
This commit is contained in:
parent
3bea9cd72d
commit
9d65d35c3c
@ -31,11 +31,7 @@
|
|||||||
<File Path="shellExtDlg.dfm"/>
|
<File Path="shellExtDlg.dfm"/>
|
||||||
<File Path="utillib.pas"/>
|
<File Path="utillib.pas"/>
|
||||||
<File Path="traylib.pas"/>
|
<File Path="traylib.pas"/>
|
||||||
<File Path="inputDialogs.pas"/>
|
</ProjectSortOrder>
|
||||||
<File Path="inputDialogs.dfm"/>
|
<Transactions>
|
||||||
</ProjectSortOrder> <Transactions>
|
|
||||||
<Transaction>2020/05/06 23:30:42.800,=C:\code\mine\hfs\Unit1.pas</Transaction>
|
|
||||||
<Transaction>2020/05/06 23:38:14.406,C:\code\mine\hfs\inputDialogs.dfm=C:\code\mine\hfs\Unit1.dfm</Transaction>
|
|
||||||
<Transaction>2020/05/06 23:38:14.406,C:\code\mine\hfs\inputDialogs.pas=C:\code\mine\hfs\Unit1.pas</Transaction>
|
|
||||||
</Transactions>
|
</Transactions>
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|||||||
28
main.pas
28
main.pas
@ -2799,6 +2799,19 @@ result:=(filesStayFlaggedForMinutes > 0)
|
|||||||
and (trunc(abs(now()-t)*24*60) <= filesStayFlaggedForMinutes)
|
and (trunc(abs(now()-t)*24*60) <= filesStayFlaggedForMinutes)
|
||||||
end; // isNew
|
end; // isNew
|
||||||
|
|
||||||
|
function getFiles(mask:string):TstringList;
|
||||||
|
var
|
||||||
|
sr: TSearchRec;
|
||||||
|
begin
|
||||||
|
result:=TstringList.create;
|
||||||
|
result.CaseSensitive:=FALSE;
|
||||||
|
if findFirst(exePath+'hfs.diff.*.tpl', faAnyFile, sr) = 0 then
|
||||||
|
try
|
||||||
|
repeat result.add(sr.name)
|
||||||
|
until findNext(sr) <> 0;
|
||||||
|
finally findClose(sr) end;
|
||||||
|
end; // getFiles
|
||||||
|
|
||||||
function Tfile.getRecursiveDiffTplAsStr(outInherited:Pboolean=NIL; outFromDisk:Pboolean=NIL):string;
|
function Tfile.getRecursiveDiffTplAsStr(outInherited:Pboolean=NIL; outFromDisk:Pboolean=NIL):string;
|
||||||
var
|
var
|
||||||
basePath, runPath, s, fn, diff: string;
|
basePath, runPath, s, fn, diff: string;
|
||||||
@ -2816,6 +2829,20 @@ var
|
|||||||
result:=TRUE;
|
result:=TRUE;
|
||||||
end; // add2diff
|
end; // add2diff
|
||||||
|
|
||||||
|
procedure loadStar();
|
||||||
|
var
|
||||||
|
list: TstringList;
|
||||||
|
s: string;
|
||||||
|
begin
|
||||||
|
list:=getFiles(exePath+'hfs.diff.*.tpl');
|
||||||
|
try
|
||||||
|
list.sort();
|
||||||
|
for s in list do
|
||||||
|
add2diff(s);
|
||||||
|
finally list.free
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
result:='';
|
result:='';
|
||||||
diff:='';
|
diff:='';
|
||||||
@ -2861,6 +2888,7 @@ while assigned(f) do
|
|||||||
f:=f.parent;
|
f:=f.parent;
|
||||||
first:=FALSE;
|
first:=FALSE;
|
||||||
end;
|
end;
|
||||||
|
loadStar();
|
||||||
result:=diff;
|
result:=diff;
|
||||||
end; // getRecursiveDiffTplAsStr
|
end; // getRecursiveDiffTplAsStr
|
||||||
|
|
||||||
|
|||||||
@ -18,6 +18,7 @@ propaganda
|
|||||||
+ {.set cfg.}
|
+ {.set cfg.}
|
||||||
+ cache for jquery and template sections
|
+ cache for jquery and template sections
|
||||||
+ new template commands: base64, base64decode, md5, sha1
|
+ new template commands: base64, base64decode, md5, sha1
|
||||||
|
+ hfs.diff.*.tpl in exe's folder
|
||||||
- fixed template handling of section names with both '+' and '=' present
|
- fixed template handling of section names with both '+' and '=' present
|
||||||
- fixed LNK files to deleted items
|
- fixed LNK files to deleted items
|
||||||
- fixed comments files were not updated upon deletion of files
|
- fixed comments files were not updated upon deletion of files
|
||||||
@ -850,7 +851,7 @@ ver: 1.5 rc5
|
|||||||
+ support for persistent connections (HTTP 1.1)
|
+ support for persistent connections (HTTP 1.1)
|
||||||
* moved many options to Menu -> "Other options"
|
* moved many options to Menu -> "Other options"
|
||||||
* when drag&dropping a folder, the dialog for autoupdate is set foreground
|
* when drag&dropping a folder, the dialog for autoupdate is set foreground
|
||||||
- problems with url-encoding for … Š <20> • — (IE, Opera)
|
- problems with url-encoding for <EFBFBD> <20> <20> <20> <20> (IE, Opera)
|
||||||
- problems saving a template to registry
|
- problems saving a template to registry
|
||||||
- sometimes "check for update" was not working after a failure
|
- sometimes "check for update" was not working after a failure
|
||||||
- CRITICAL: directory crossing was possible on autoupdating folders
|
- CRITICAL: directory crossing was possible on autoupdating folders
|
||||||
@ -903,7 +904,7 @@ ver: 1.3 beta6
|
|||||||
ver: 1.3 beta5
|
ver: 1.3 beta5
|
||||||
+ "Custom ip", now you can use yourowndomain.com
|
+ "Custom ip", now you can use yourowndomain.com
|
||||||
- autoupdate folders was not applying the "Folders before" setting
|
- autoupdate folders was not applying the "Folders before" setting
|
||||||
- there were problems with url-encoding for blank-space, ø and "
|
- there were problems with url-encoding for blank-space, <EFBFBD> and "
|
||||||
- some crashes may have been fixed
|
- some crashes may have been fixed
|
||||||
|
|
||||||
ver: 1.3 beta4
|
ver: 1.3 beta4
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user