rejetto forum

Personal propositions for the code source of hfs

Mars · 7 · 10702

0 Members and 1 Guest are viewing this topic.

Offline Mars

  • Operator
  • Tireless poster
  • *****
    • Posts: 2063
    • View Profile
To rejetto:
main.pas line 3356-> // applySequential
Quote
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
Quote
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
Quote
       object NoSort1: TMenuItem
          Caption = 'No Sort'
          GroupIndex = 1
          RadioItem = True
          OnClick = NoSort1Click
        end

main.pas line 612
Quote
    NoSort1: TMenuItem;

main.pas line 840
Quote
    procedure NoSort1Click(Sender: TObject);
main.pas line 7832
Quote
procedure TmainFrm.NoSort1Click(Sender: TObject);
begin defSorting:='nosort' end;

main.pas line 10284
Quote
NoSort1.Checked:= defSorting='nosort';
main.pas line 1166
Quote
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
Quote
possible d'ajouter deux raccoucis clavier?pour la pcochaine version?

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


Offline rejetto

  • Administrator
  • Tireless poster
  • *****
    • Posts: 13523
    • View Profile
ok for line 8188 and CTRL+F
F3 was already there
NBcounter already answered elsewhere.
and...who needs this nosort ?


Offline Mars

  • Operator
  • Tireless poster
  • *****
    • Posts: 2063
    • View Profile
Quote
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:

Quote
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;

Quote
  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.


Offline rejetto

  • Administrator
  • Tireless poster
  • *****
    • Posts: 13523
    • View Profile

Offline Mars

  • Operator
  • Tireless poster
  • *****
    • Posts: 2063
    • View Profile
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
 



Offline rejetto

  • Administrator
  • Tireless poster
  • *****
    • Posts: 13523
    • View Profile
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?


Offline Mars

  • Operator
  • Tireless poster
  • *****
    • Posts: 2063
    • View Profile
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