to rejetto: A forgetting for the next version
procedure TmainFrm.newfolder1Click(Sender: TObject);
var
name: string;
begin
name:=getUniqueNodeName('New folder', filesBox.selected);
addFile(Tfile.createVirtualFolder(name), filesBox.Selected).node.Selected:=TRUE;
rename1click(sender);
end;
it is to enter directly new name when adding New Virtual Folder.
******************************************************
%folder% non correctement initialisé
MAIN.PAS:
ligne 3155 appel de getBaseSymbolsTable() qui definit %folder%
or dans le code
ligne 3060 il est fait appel à %folder%
if recur then
begin
s:=optUTF8(diffTpl.utf8, f.getFolder());
url:=copy(s, ofsRelUrl, MAXINT);
end
else
begin
s:='%folder%'; //%folder est indéfini ici (me semble-t-il)
url:='';
end;
je ne suis pas devin et la partie ligne 3060 non plus elle ne peut savoir ce qui sera initialisé plus loin
if recur then
begin
...
end;
n'est pas nécessaire
utiliser simplement:
s:=optUTF8(diffTpl.utf8, f.getFolder());
url:=copy(s, ofsRelUrl, MAXINT);
addArray(table, [
'%item-folder%', s,
'%item-relative-folder%', url
]);
tout est comme il faut
**************************************************************************
bug in %item-full-url% with links
if url of link is HTPP://server/page.html
result of %item-full-url% is equiv to %host%%folder%HTPP://server/page.html
see attached file hfs.tpl to test it