rejetto forum
Software => HFS ~ HTTP File Server => Programmers corner => Topic started by: Mars on December 30, 2007, 11:55:57 PM
-
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
-
ok for line 8188 and CTRL+F
F3 was already there
NBcounter already answered elsewhere.
and...who needs this nosort ?
-
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.
-
can you explain how will the nosort help you?
-
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
-
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?
-
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