MBonaldo/hfs2
1
0
Fork 0
mirror of https://github.com/rejetto/hfs2.git synced 2025-12-19 10:03:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix: 'about' message

Browse Source
This commit is contained in:
Massimo Melina 2020-05-17 15:18:31 +02:00
parent 79078cebe7
commit 90a0cc0cee
4 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
data.RES
View File

Binary file not shown.

1
data.rc
View File

@ -1,6 +1,5 @@
1 24 "WindowsXP.manifest" 1 24 "WindowsXP.manifest"
defaultTpl TEXT default.tpl defaultTpl TEXT default.tpl
copyright TEXT copyright.txt
dmBrowserTpl TEXT dmBrowser.tpl dmBrowserTpl TEXT dmBrowser.tpl
invertban TEXT invertban.txt invertban TEXT invertban.txt
filelistTpl TEXT filelist.tpl filelistTpl TEXT filelist.tpl

9
main.pas
View File

@ -7503,7 +7503,12 @@ if saveCFG() then
end; end;
procedure TmainFrm.About1Click(Sender: TObject); 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(); procedure Tmainfrm.purgeConnections();
var var
@ -10008,7 +10013,7 @@ procedure TmainFrm.FAQ1Click(Sender: TObject);
begin openURL('http://www.rejetto.com/sw/?faq=hfs') end; begin openURL('http://www.rejetto.com/sw/?faq=hfs') end;
procedure TmainFrm.License1Click(Sender: TObject); 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(); procedure Tmainfrm.pasteFiles();
begin begin

2
scriptLib.pas
View File

@ -71,7 +71,7 @@ result:=appendTextFile(MACROS_LOG_FILE, s);
end; // macrosLog end; // macrosLog
procedure resetLog(); procedure resetLog();
begin deleteFile(MACROS_LOG_FILE) end; begin saveFile(MACROS_LOG_FILE, '') end;
function expandLinkedAccounts(account:Paccount):TStringDynArray; function expandLinkedAccounts(account:Paccount):TStringDynArray;
var var