eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Get upload filename was changing to the directory of the file

This commit is contained in:
mysticbbs 2013-02-22 20:45:12 -05:00
parent e0635cfde7
commit 03668f9f84
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mystic/nodespy_term.pas
View File

@ -408,6 +408,7 @@ Var
Str : String; Str : String;
Path : String; Path : String;
Mask : String; Mask : String;
OrigDIR : String;
Procedure UpdateInfo; Procedure UpdateInfo;
Begin Begin
@ -498,6 +499,8 @@ Begin
DirList := TMenuList.Create(TOutput(Screen)); DirList := TMenuList.Create(TOutput(Screen));
FileList := TMenuList.Create(TOutput(Screen)); FileList := TMenuList.Create(TOutput(Screen));
GetDIR (0, OrigDIR);
FileList.NoWindow := True; FileList.NoWindow := True;
FileList.LoChars := #9#13#27; FileList.LoChars := #9#13#27;
FileList.HiChars := #77; FileList.HiChars := #77;
@ -630,6 +633,8 @@ Begin
End; End;
Until Done; Until Done;
ChDIR(OrigDIR);
FileList.Free; FileList.Free;
DirList.Free; DirList.Free;
Box.Close; Box.Close;