rejetto forum
Software => HFS ~ HTTP File Server => Beta => Topic started by: rejetto on July 11, 2008, 12:46:33 PM
-
download @ www.dovedove.it/hfs/hfs189.exe
what's new
+ log toolbar: button to copy to editor only matched lines
+ default template editor is notepad++ (if installed) instead of notepad
- UTF-8 support broken in build #188 http://www.rejetto.com/forum/index.php?topic=6001.msg1035602#msg1035602
- problem with default template editor (notepad) and Vista http://www.rejetto.com/forum/index.php?topic=6001.msg1035615#msg1035615
- graphical glitches introduced in build #188
-
1) i have an DDE error when i choice wordpad.exe as default editor
image dde error.png
2) when choose winword or excel as default editor( for test only), another error is detected
image office.png
Morality: do not use a product interpreting data as html text (excepted notepad++)
-
In Build 189 i have at download no entries under IP, Filename und no visible %graph in the downloadwindow (current connections).
When i'am go back to Build 188 all this works. correctly.
-
Pit new default values are
Text = 'IP address'
Text = 'File'
Text = 'Status'
Text = 'Speed'
Text = 'Time left'
Text = 'Progress'
-
Modified version of hfs that integrate this function, can every body test and report, specially with system as Vista, win2003Server, Win2000, Win98 ....
(Please do not report with WIN XP system)
procedure TmainFrm.Edit1Click(Sender: TObject);
function getDefaultTextEditor():string;
var editor:string;
begin
//search the openas default program for .txt extension
editor:=lowercase(loadregistry('Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt','application',HKEY_CURRENT_USER));
//If the value does not exist, then load contents
//of default 'Open Command' value for the same extension
if editor='' then
begin
editor:=loadregistry('.txt','',HKEY_CLASSES_ROOT);
editor:=lowercase(loadregistry(editor+'\shell\Open\command','',HKEY_CLASSES_ROOT));
editor:=chop('.exe',editor);
while pos('\',editor)>0 do chop('\',editor);
editor:=editor+'.exe';
end;
//path of editor is automatic with windows XP by associate an extension with a program file
result:=editor;
end;
begin
if not fileExists(tplFilename) then
begin
tplFilename:=TPL_FILE;
saveFile(tplFilename, defaultTpl);
end;
exec(or_([
tplEditor,
getDefaultTextEditor(),
loadregistry('SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\notepad++.exe', '', HKEY_LOCAL_MACHINE),
'notepad.exe'
]), '"'+tplFilename+'"');
end;
When changing external template, you can see it now in the external editor
procedure TmainFrm.Changefile1Click(Sender: TObject);
begin
tplImport:=selectFile(tplFilename, 'Change template file', 'Template file|*.tpl', [ofPathMustExist, ofCreatePrompt]);
Edit1Click(edit1);
end;
-
In Build 189 i have at download no entries under IP, Filename und no visible %graph in the downloadwindow (current connections).
And change file for the .tpl file didn´t work.
now i'am go back to Build 188 and all this works. correctly.
You are correct Pit. Rejetto must have missed a variable. But I really like the columns like that, it looks much better. Even the layout is better thought.
And attached I have made a better suited icon for the slider. It is smaller and vertical center. If you would like I will edit the original icon, so it has opacity, I can't tell if its a gif or a png.
-
editor:=lowercase(loadregistry('Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt','application',HKEY_CURRENT_USER));
thanks for trying mars, but at such registry key, i have "pspad.exe" (correct) with no path, and it is not enough, because the containing folder of the program is not in the "path" enviroment variable.
i guess the path must be found somewhere else.