diff --git a/data.RES b/data.RES index 71b8750..a2a7cfa 100644 Binary files a/data.RES and b/data.RES differ diff --git a/data.rc b/data.rc index 300acd0..86406b3 100644 --- a/data.rc +++ b/data.rc @@ -1,6 +1,5 @@ 1 24 "WindowsXP.manifest" defaultTpl TEXT default.tpl -copyright TEXT copyright.txt dmBrowserTpl TEXT dmBrowser.tpl invertban TEXT invertban.txt filelistTpl TEXT filelist.tpl diff --git a/main.pas b/main.pas index 7834a78..dfce839 100644 --- a/main.pas +++ b/main.pas @@ -7503,7 +7503,12 @@ if saveCFG() then end; procedure TmainFrm.About1Click(Sender: TObject); -begin msgDlg(format(getRes('copyright'), [VERSION,VERSION_BUILD])) end; +const msg = 'HFS version %s' + +#13'Copyright (C) 2002-2020 Massimo Melina (www.rejetto.com)' + +#13#13'HFS comes with ABSOLUTELY NO WARRANTY under the license GNU GPL 3.0. For details click Menu -> Web links -> License' + +#13'This is FREE software, and you are welcome to redistribute it under certain conditions.' + +#13#13'Build #%s'; +begin msgDlg(format(msg, [VERSION,VERSION_BUILD])) end; procedure Tmainfrm.purgeConnections(); var @@ -10008,7 +10013,7 @@ procedure TmainFrm.FAQ1Click(Sender: TObject); begin openURL('http://www.rejetto.com/sw/?faq=hfs') end; procedure TmainFrm.License1Click(Sender: TObject); -begin openURL('http://www.rejetto.com/sw/license.txt') end; +begin openURL('https://www.gnu.org/licenses/gpl-3.0.html') end; procedure Tmainfrm.pasteFiles(); begin diff --git a/scriptLib.pas b/scriptLib.pas index 3a43792..238dc5e 100644 --- a/scriptLib.pas +++ b/scriptLib.pas @@ -71,7 +71,7 @@ result:=appendTextFile(MACROS_LOG_FILE, s); end; // macrosLog procedure resetLog(); -begin deleteFile(MACROS_LOG_FILE) end; +begin saveFile(MACROS_LOG_FILE, '') end; function expandLinkedAccounts(account:Paccount):TStringDynArray; var