Personal propositions for the code source of hfs

[Mars]

To rejetto:
main.pas line 3356-> // applySequential

procedure applySequential();
  const
    PATTERN = '%sequential%';
    NBPATTERN= '%number-sequential%"
  var
    idx, p: integer;
    idxS: string;
  begin
  idx:=0;
    repeat
    p:=pos(PATTERN, result);
    if p = 0 then exit;
    inc(idx);
    idxS:=intToStr(idx);
    delete(result, p, length(PATTERN)-length(idxS));
    move(idxS[1], result[p], length(idxS));
    until false;
    repeat      //replace all %number-sequential% by last value of %sequential%
    p:=pos(NBPATTERN, result);
    if p = 0 then exit;
    delete(result, p, length(NBPATTERN)-length(idxS));
    move(idxS[1], result[p], length(idxS));
    until false;
  end; // applySequential

main.pas line 8188

if FA_VIS_ONLY_ANON in f.flags then
  loadingVFS.visOnlyAnon:=TRUE;
if f.isVirtualFolder() then f.mtime:=f.atime;
if f.isLink() then f.mtime:=f.atime; // because [link]:%item-modified% give the  instant server date-time when list created and can't be sort by time correctly
if assigned(f.uploadAccounts) and (f.resource > '') then
  addString(f.resource, uploadPaths);
f.setupImage();
if after.resetLetBrowse then
  f.recursiveApply(setBrowsable, integer(FA_BROWSABLE in f.flags));
end; // setVFS

********************************************************************
Menu -->Default Sorting-->No Sort option
main.dfm line 2322

       object NoSort1: TMenuItem
          Caption = 'No Sort'
          GroupIndex = 1
          RadioItem = True
          OnClick = NoSort1Click
        end

main.pas line 612

    NoSort1: TMenuItem;

main.pas line 840

    procedure NoSort1Click(Sender: TObject);

main.pas line 7832

procedure TmainFrm.NoSort1Click(Sender: TObject);
begin defSorting:='nosort' end;

main.pas line 10284

NoSort1.Checked:= defSorting='nosort';

main.pas line 1166

if linksBefore and (f1.isLink() <> f2.isLink()) then
    begin
    if f1.isLink() then result:=-1
    else result:=+1;
    exit;
    end;
  if foldersBefore and (f1.isFolder() <> f2.isFolder()) then
    begin
    if f1.isFolder() then result:=-1
    else result:=+1;
    exit;
    end;
result=0;   
if defSorting = 'nosort' then exit;   
  case sortby of
    SB_SIZE: result:=compare_(f1.size, f2.size);
    SB_TIME: result:=-compare_(f1.mtime, f2.mtime);
    SB_DL: result:=-compare_(f1.DLcount, f2.DLcount);
    SB_EXT: result:=compareExt(f1.name, f2.name);
    else result:=0;
    end;

********************************************************************

editDlg.dfm

possible d'ajouter deux raccoucis clavier?pour la pcochaine version?

CTRL+F  as ALT+F
and
F3 as click on GO button

[rejetto]

ok for line 8188 and CTRL+F
F3 was already there
NBcounter already answered elsewhere.
and...who needs this nosort ?

[Mars]

who needs this nosort ?

au moins une personne: moi

ce n'est pas un caprice mais une possibilité qui est offerte à l'administarteur de CHOISIR

j'en ai besoin pour tester une architecture de %files%  en rapport avec le mode 'page' que j'ai mis en place dans le template visible sur le site de silentpliz, si ce n'est actif que dans une version specifique je m'en contenterai ou alors laisser la possibilité à l'utilisateur en ligne url ?sort=x  ,  voici un compromis:

case sortby of
    SB_SIZE: result:=compare_(f1.size, f2.size);
    SB_TIME: result:=-compare_(f1.mtime, f2.mtime);
    SB_DL: result:=-compare_(f1.DLcount, f2.DLcount);
    SB_EXT: result:=compareExt(f1.name, f2.name);
    else  begin
            result:=0;
            if sortby=SB_NOSORT then exit;
            end;
    end;

  sortBy: ( SB_NAME, SB_EXT, SB_SIZE, SB_TIME, SB_DL , SB_NOSORT );
...

if v > '' then
  case v[1] of
    'n': sortBy:=SB_NAME;
    'e': sortBy:=SB_EXT;
    's': sortBy:=SB_SIZE;
    't': sortBy:=SB_TIME;
    'd': sortBy:=SB_DL;
    'x': sortBy:=SB_NOSORT;
    end;

merci de prendre en considération.

[rejetto]

can you explain how will the nosort help you?

[Mars]

comme dans toute science, tant qu'une théorie ne peut pas être vérifiée avec les outils appropriés, elle n'est qu'une hypothèse.

sans 'nosort' je ne peux explorer d'autres voies de développement, si cela n'est pas trop demander de l'inclure dans la version 168 et de la supprimer dès la 169, ceci afin que je puisse avoir un support réel pour pouvoir travailler sur cette idée
 

[rejetto]

sorry mars, but i won't include a feature that no one can explain how it would be useful.
you should be able to compile it yourself, aren't you?

[Mars]

1) ajouter à hfs.ini deux lignes d'info

Actual-template='default' or 'Template-Path\template.tpl'
last-template-path=Template-Path\template.tpl

cette information sera utilisée en tant que title-caption de la boite

tplFrm.caption:='HTML template :'+actual-template;

l'information sera utilisé par défaut pour l'accès à import ou export
information mise à jour par un import ou export réussi en cas de changement de template

2)
pour ne pas avoir à ajouter continuellement les sous repertoires du genre...
 
/template/imagex.gif
/template/code.js

.. le chemin d'accès du template sera pris aussi comme chemin de recherche
complémentaire ou principal, pour trouver les fichiers à inclure dans le template

(personnellement je change très souvent de template pour les tests et utiliser 'edit ressource' à chaque fois est rébarbatif)

ainsi il suffira de charger un template et son repertoire sera considéré comme faisant partie du root du VFS en mode invisible au meme titre que le répertoire d'exécution de hfs.exe