Testing build #203

[rejetto]

download @ www.dovedove.it/hfs/hfs203.exe

what's new
+ Options -> MIME types -> "Open directly in browser when MIME type is defined"
+ Options -> Accounts -> new "upload" box preview
+ Options -> Tray message -> new preview box 
+ Menu -> Other options -> "Edit event scripts..."
+ event scripts: new [start] [quit] [upload failed]
- "Hide file extension" broken in build #202   

[Mars]

+ Options -> Tray message -> new preview box

A small forgetting so that everything is completed :

1) Menu >IP Address
You have to find generally an IP address:192.168.xxx.xxx selected, and by clicking the tray message, it is the same address which appears.

2)Add by Menu > IP Address > Custom....  some addresses ip of the genre
127.0.0.1
10.0.0.25
172.10.1.15
...
and validate

3)Change the selected IP into  Menu >IP Address to another

4)Select  Menu > Tray icons >Tray message.

In preview box, it is not the new IP who displays but the previous one. If you make a change in the left box, the correct value appears.

 It is a refresh bug

Having tried all the possible solutions to have no this small inconvenience, the only one parades in summer to create a procedure executed during the activation of the OPTIONS window.

procedure ToptionsFrm.FormActivate(Sender: TObject);
begin                                                               
  traymsgBoxChange(Sender)                                       
end;

and activate it as on the picture

correct in the next build ? ? ? ? (Rejetto  )

Silentpliz have just redone at the present time his big return of the psychedelic hospital, the french version of the build 203 would not know how to delay

[rejetto]

ok fixed
but i doubt anyone would have suffered this bug

[Mars]

It is normal not to allow to pass these small details, if we want that a next day takes out an official version in 2.3 build 2xx

[SilentPliz]

Silentpliz have just redone at the present time his big return of the psychedelic hospital, the french version of the build 203 would not know how to delay

Yes, you scared me, but thanks to you, I make a very colorful build of HFS, fortunately, with a few different letters, I could make a build of HFS, completely crazy! 

[doc]

'No download' function is not working

[death1246]

'No download' function is not working

Only reason I came to say something Thats a big function and its not working now

[r][m]

Not able to add No Download, but it's working on folders
that it was already enabled on.

[rejetto]

yes, you can't change it. it's a bug.
it will be fixed in next build, promised.

[doc]

Menu item 'List protected items only for allowed users' is unchecked, but protected folder stay invisible for guest-account

[rejetto]

it works normally for me.
can you provide me a vfs file to test?

[doc]

I create a new .vfs, and now all works fine. Thanks.

[Mars]

Not able to add No Download, but it's working on folders
that it was already enabled on.

yes, you can't change it. it's a bug.
it will be fixed in next build, promised.

I toiled a lot but I eventually found the bug

function setDLforbidden(f:Tfile; childrenDone:boolean; par, par2:integer):TfileCallbackReturn;
begin
result:=[];         //add by mars
if (FA_DL_FORBIDDEN in f.flags) xor boolean(par) then VFSmodified:=TRUE else exit ;
if boolean(par) then exclude(f.flags, FA_DL_FORBIDDEN)
else include(f.flags, FA_DL_FORBIDDEN);
end; // setDLforbidden

ADD ON
main.dfm

object Letbrowse1: TMenuItem
      Caption = 'Browsable'
      SubMenuImages = images
      object LetbrowseSubFolders1: TMenuItem
        Caption = 'Selection + SubFolders'
        ImageIndex = 8
        OnClick = LetbrowseSubFolders1Click
      end
      object LetbrowseSelection1: TMenuItem
        Caption = 'Selection only'
        ImageIndex = 6
        OnClick = LetbrowseSelection1Click
      end
    end

    object Nodownload1: TMenuItem
      Caption = 'No download'
      object NodownloadSubFolders1: TMenuItem
        Caption = 'Selection + SubFolders'
        ImageIndex = 8
        OnClick = NodownloadSubFolders1Click
      end
      object NodownloadSelection1: TMenuItem
        Caption = 'Selection only'
        ImageIndex = 6
        OnClick = NodownloadSelection1Click
      end
    end

main.pas in Tmainfrm

.......
    LetbrowseSelection1: TMenuItem;   
    LetbrowseSubFolders1: TMenuItem;
    NodownloadSelection1: TMenuItem;
    NodownloadSubFolders1: TMenuItem;
......
    procedure LetbrowseSelection1Click(Sender: TObject);
    procedure LetbrowseSubFolders1Click(Sender: TObject);
    procedure NodownloadSelection1Click(Sender: TObject);
    procedure NodownloadSubFolders1Click(Sender: TObject);
  private .....

main.pas

implementation
.........
procedure TmainFrm.LetbrowseSelection1Click(Sender: TObject);     
begin
fileMenuSetFlag(Letbrowse1, FA_BROWSABLE, @Tfile.isRoot,TRUE);
end;

procedure TmainFrm.LetbrowseSubFolders1Click(Sender: TObject);   
begin
Letbrowse1Click(Letbrowse1);
end;

procedure TmainFrm.NodownloadSelection1Click(Sender: TObject);   
begin
fileMenuSetFlag(Nodownload1, FA_DL_FORBIDDEN, @Tfile.isRoot,TRUE);
end;

procedure TmainFrm.NodownloadSubFolders1Click(Sender: TObject);
begin
Nodownload1Click(Nodownload1);
end;


procedure TmainFrm.SelfTest1Click(Sender: TObject);
const

This simple addition allows the user to activate elements "browsable" and "no download" in a way, recursive or individual, without losing the previous appearance of the menus.

If rejetto agree to incorporate it into the next build, it will be a good thing in more.

[letterboy]

Maybe use for Archivable too! Sometimes i don't want the users to download my whole folder at once , i want them to archive my subfolders only.

[rejetto]

This simple addition allows the user to activate elements "browsable" and "no download" in a way, recursive or individual, without losing the previous appearance of the menus.
If rejetto agree to incorporate it into the next build, it will be a good thing in more.

about the "browsable", i personally don't think that the non-recursive way is a common action deserving a menu item (we have menu length problems). But if people think it's common, just post your opinion.

About the "no download", i have some doubt about its current form, that it's available only files and real folders. I would like to hear from someone using this feature, to know how it would design it.