Changeset 11 for trunk

Timestamp:

Mar 14, 2013, 11:46:45 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: První instalační program pro Windows.
• Opraveno: Při ukládání se nepoužívala cílová cesta.

Location:

trunk

Files:

• Forms/UFormAbout.pas (modified) (2 diffs)
• Instal/FioInfo.iss (modified) (4 diffs)
• Instal/Instalace-FioInfo-1.0.0.exe (added)
• Languages/FioInfo.cs.po (modified) (2 diffs)
• Languages/FioInfo.po (modified) (1 diff)
• UCore.pas (modified) (3 diffs)

trunk/Forms/UFormAbout.pas

@@ -39 +39 @@
   SAuthor = 'Author';
   SDescription = 'Description';
+  SHomePage = 'Web';
 
 {$R *.lfm}
@@ -54 +55 @@
     //Add(SManufacturer + ': ' + CompanyName);
     Add(SAuthor + ': ' + AuthorsName);
+    Add(SHomePage + ': ' + HomePage);
     Add(SEmail + ': ' + EmailContact);
     EndUpdate;

trunk/Instal/FioInfo.iss

@@ -4 +4 @@
 #define MyAppName "FioInfo"
 #define MyAppVersion "1.0.0"
-#define MyAppPublisher "Jiří Hajda"
-#define MyAppPublisherShort "Jiří Hajda"
+#define MyAppPublisher "Jiøí Hajda"
+#define MyAppPublisherShort "Chronosoft"
 #define MyAppURL "http://svn.zdechov.net/trac/fioinfo"
 #define MyAppExeName "FioInfo.exe"
@@ -35 +35 @@
 Name: "english"; MessagesFile: "compiler:Default.isl"
 Name: "czech"; MessagesFile: "compiler:Languages\Czech.isl"
-Name: "slovak"; MessagesFile: "compiler:Languages\Slovak.isl"
 
 [Tasks]
@@ -45 +44 @@
 [Files]
 Source: "{#MyAppSubDir}\{#MyAppExeName}"; DestDir: "{app}"; Flags: ignoreversion
+Source: "{#MyAppSubDir}\*.dll"; DestDir: "{app}"; Flags: ignoreversion
 ;Source: "{#MyAppSubDir}\{#MyAppDebugName}"; DestDir: "{app}"; Flags: ignoreversion
 Source: "{#MyAppSubDir}\Languages\*.po"; DestDir: "{app}\Languages"; Flags: ignoreversion
@@ -52 +52 @@
 [Icons]
 Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
-;Name: "{group}\Nápověda"; Filename: "{app}\{#MyAppName}.chm"
+;Name: "{group}\Nápovìda"; Filename: "{app}\{#MyAppName}.chm"
 Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
 Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

trunk/Languages/FioInfo.cs.po

@@ -183 +183 @@
 msgstr "E-mail"
 
+#: uformabout.shomepage
+msgid "Web"
+msgstr ""
+
 #: uformabout.smanufacturer
 msgid "Company"
@@ -196 +200 @@
 
 #: uformmain.sdownloadnotsuccess
-msgctxt "uformmain.sdownloadnotsuccess"
 msgid "StaÅŸení nebylo úspěšné"
 msgstr ""

trunk/Languages/FioInfo.po

@@ -174 +174 @@
 msgstr ""
 
+#: uformabout.shomepage
+msgid "Web"
+msgstr ""
+
 #: uformabout.smanufacturer
 msgid "Company"

trunk/UCore.pas

@@ -164 +164 @@
     FioAPI.Token := Token;
     if FioAPI.DownloadLast(List) then begin
-      FileName := Format(SReport, [FormatDateTime('yyyy-mm-dd hh-nn-ss', Now) +
+      FileName := TargetDirectory + DirectorySeparator + Format(SReport, [FormatDateTime('yyyy-mm-dd hh-nn-ss', Now) +
         ExtensionSeparator + DataFormatURL[FioAPI.Format]]);
       List.SaveToFile(UTF8Decode(FileName));
@@ -187 +187 @@
     FioAPI.Token := Token;
     if FioAPI.DownloadMonthly(ReportYear, ReportId, List) then begin
-      FileName := Format(SReport, [IntToStr(ReportYear) +
+      FileName := TargetDirectory + DirectorySeparator + Format(SReport, [IntToStr(ReportYear) +
         '-' + IntToStr(ReportId) +
         ExtensionSeparator + DataFormatURL[FioAPI.Format]]);
@@ -211 +211 @@
     FioAPI.Token := Token;
     if FioAPI.DownloadInterval(ReportTimeFrom, ReportTimeTo, List) then begin
-      FileName := Format(SReport, [FormatDateTime('yyyy-mm-dd', ReportTimeFrom) +
+      FileName := TargetDirectory + DirectorySeparator + Format(SReport, [FormatDateTime('yyyy-mm-dd', ReportTimeFrom) +
         ' ' + FormatDateTime('yyyy-mm-dd', ReportTimeTo) +
         ExtensionSeparator + DataFormatURL[FioAPI.Format]]);