Changeset 43

Timestamp:

Mar 18, 2014, 9:15:07 AM (11 years ago)

Author:

chronos

Message:

• Added: About form with information about application.
• Added: Package Common.

Location:

trunk

Files:

• Forms/UFormAbout.lfm (added)
• Forms/UFormAbout.lrt (added)
• Forms/UFormAbout.pas (added)
• Forms/UFormMain.lfm (modified) (1 diff)
• Forms/UFormMain.lrt (modified) (1 diff)
• Forms/UFormMain.pas (modified) (1 diff)
• Languages/xtactics.cs.po (modified) (8 diffs)
• Languages/xtactics.po (modified) (4 diffs)
• Packages/Common (added)
• Packages/Common/Common.lpk (added)
• Packages/Common/Common.pas (added)
• Packages/Common/Languages (added)
• Packages/Common/Languages/UDebugLog.cs.po (added)
• Packages/Common/Languages/UDebugLog.po (added)
• Packages/Common/Languages/UFindFile.po (added)
• Packages/Common/Languages/UJobProgressView.po (added)
• Packages/Common/Languages/UPool.cs.po (added)
• Packages/Common/Languages/UPool.po (added)
• Packages/Common/Languages/UResetableThread.cs.po (added)
• Packages/Common/Languages/UResetableThread.po (added)
• Packages/Common/Languages/UThreading.cs.po (added)
• Packages/Common/Languages/UThreading.po (added)
• Packages/Common/StopWatch.pas (added)
• Packages/Common/UApplicationInfo.pas (added)
• Packages/Common/UCommon.pas (added)
• Packages/Common/UDebugLog.pas (added)
• Packages/Common/UDelay.pas (added)
• Packages/Common/UFindFile.pas (added)
• Packages/Common/UJobProgressView.lfm (added)
• Packages/Common/UJobProgressView.lrt (added)
• Packages/Common/UJobProgressView.pas (added)
• Packages/Common/ULastOpenedList.pas (added)
• Packages/Common/UListViewSort.pas (added)
• Packages/Common/UMemory.pas (added)
• Packages/Common/UPersistentForm.pas (added)
• Packages/Common/UPool.pas (added)
• Packages/Common/UPrefixMultiplier.pas (added)
• Packages/Common/URegistry.pas (added)
• Packages/Common/UResetableThread.pas (added)
• Packages/Common/USyncCounter.pas (added)
• Packages/Common/UThreading.pas (added)
• Packages/Common/UURI.pas (added)
• Packages/Common/UXMLUtils.pas (added)
• UCore.lfm (modified) (2 diffs)
• UCore.lrt (modified) (1 diff)
• UCore.pas (modified) (5 diffs)
• xtactics.lpi (modified) (2 diffs)
• xtactics.lpr (modified) (2 diffs)

trunk/Forms/UFormMain.lfm

@@ -132 +132 @@
       end
     end
+    object MenuItem16: TMenuItem
+      Caption = 'Help'
+      object MenuItem17: TMenuItem
+        Action = Core.AAbout
+      end
+    end
   end
   object Timer1: TTimer

trunk/Forms/UFormMain.lrt

@@ -4 +4 @@
 TFORMMAIN.MENUITEM10.CAPTION=View
 TFORMMAIN.MENUITEM8.CAPTION=Tools
+TFORMMAIN.MENUITEM16.CAPTION=Help
 TFORMMAIN.AZOOMIN.CAPTION=Zoom in
 TFORMMAIN.AZOOMOUT.CAPTION=Zoom out

trunk/Forms/UFormMain.pas

@@ -29 +29 @@
     MenuItem14: TMenuItem;
     MenuItem15: TMenuItem;
+    MenuItem16: TMenuItem;
+    MenuItem17: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;

trunk/Languages/xtactics.cs.po

@@ -11 +11 @@
 "X-Generator: Poedit 1.5.4\n"
 
+#: tcore.aabout.caption
+msgctxt "tcore.aabout.caption"
+msgid "About"
+msgstr ""
+
 #: tcore.aexit.caption
 msgctxt "TCORE.AEXIT.CAPTION"
@@ -74 +79 @@
 msgstr "Nastavení aplikace"
 
+#: tformabout.caption
+msgctxt "tformabout.caption"
+msgid "About"
+msgstr ""
+
+#: tformabout.okbutton.caption
+msgid "OK"
+msgstr ""
+
 #: tformmain.azoomall.caption
 msgid "Zoom all"
@@ -97 +111 @@
 msgid "View"
 msgstr "Zobrazení"
+
+#: tformmain.menuitem16.caption
+msgid "Help"
+msgstr ""
 
 #: tformmain.menuitem5.caption
@@ -121 +139 @@
 msgctxt "tformmove.buttononcemax.caption"
 msgid "Max"
-msgstr ""
+msgstr "Max"
 
 #: tformmove.buttononcemin.caption
 msgctxt "tformmove.buttononcemin.caption"
 msgid "Min"
-msgstr ""
+msgstr "Min"
 
 #: tformmove.buttonrepeatmax.caption
 msgctxt "tformmove.buttonrepeatmax.caption"
 msgid "Max"
-msgstr ""
+msgstr "Max"
 
 #: tformmove.buttonrepeatmin.caption
 msgctxt "tformmove.buttonrepeatmin.caption"
 msgid "Min"
-msgstr ""
+msgstr "Min"
 
 #: tformmove.caption
@@ -152 +170 @@
 #: tformnew.aplayeradd.caption
 msgid "Add player"
-msgstr ""
+msgstr "Přidat hráče"
 
 #: tformnew.aplayermodify.caption
 msgid "Modify player"
-msgstr ""
+msgstr "Upravit hráče"
 
 #: tformnew.aplayerremove.caption
 msgid "Remove player"
-msgstr ""
+msgstr "Odstranit hráče"
 
 #: tformnew.buttoncancel.caption
@@ -223 +241 @@
 #: tformnew.label6.caption
 msgid "Win objective:"
-msgstr ""
+msgstr "Cíl vítězství:"
 
 #: tformnew.label7.caption
 msgid "Max random neutral units:"
-msgstr ""
+msgstr "Nejvíce náhodných neutrálních jednotek:"
 
 #: tformnew.listview1.columns[0].caption
@@ -308 +326 @@
 msgstr "Hráč %s vyhrál"
 
+#: uformabout.sapplicationname
+msgid "Application name"
+msgstr ""
+
+#: uformabout.semail
+msgid "E-mail"
+msgstr ""
+
+#: uformabout.shomepage
+msgid "Homepage"
+msgstr ""
+
+#: uformabout.smanufacturer
+msgid "Company"
+msgstr ""
+
+#: uformabout.sreleasedate
+msgid "Release date"
+msgstr ""
+
+#: uformabout.sversion
+msgid "Version"
+msgstr ""
+
 #: uformmain.sturn
 msgid "turn"
@@ -331 +373 @@
 #: ugame.sunfinishedbattle
 msgid "Unfinished battle"
-msgstr ""
-
+msgstr "Neukončená bitva"
+

trunk/Languages/xtactics.po

@@ -1 +1 @@
 msgid ""
 msgstr "Content-Type: text/plain; charset=UTF-8"
+
+#: tcore.aabout.caption
+msgctxt "TCORE.AABOUT.CAPTION"
+msgid "About"
+msgstr ""
 
 #: tcore.aexit.caption
@@ -65 +70 @@
 msgstr ""
 
+#: tformabout.caption
+msgctxt "tformabout.caption"
+msgid "About"
+msgstr ""
+
+#: tformabout.okbutton.caption
+msgid "OK"
+msgstr ""
+
 #: tformmain.azoomall.caption
 msgid "Zoom all"
@@ -87 +101 @@
 #: tformmain.menuitem10.caption
 msgid "View"
+msgstr ""
+
+#: tformmain.menuitem16.caption
+msgid "Help"
 msgstr ""
 
@@ -296 +314 @@
 msgstr ""
 
+#: uformabout.sapplicationname
+msgid "Application name"
+msgstr ""
+
+#: uformabout.semail
+msgid "E-mail"
+msgstr ""
+
+#: uformabout.shomepage
+msgid "Homepage"
+msgstr ""
+
+#: uformabout.smanufacturer
+msgid "Company"
+msgstr ""
+
+#: uformabout.sreleasedate
+msgid "Release date"
+msgstr ""
+
+#: uformabout.sversion
+msgid "Version"
+msgstr ""
+
 #: uformmain.sturn
 msgid "turn"

trunk/UCore.lfm

@@ -62 +62 @@
       OnExecute = AGameLoadExecute
       ShortCut = 16463
+    end
+    object AAbout: TAction
+      Caption = 'About'
+      OnExecute = AAboutExecute
     end
   end
@@ -455 +459 @@
     top = 88
   end
+  object ApplicationInfo: TApplicationInfo
+    Identification = 1
+    VersionMajor = 1
+    VersionMinor = 0
+    VersionBugFix = 0
+    VersionSuffix = 'alfa'
+    CompanyName = 'Chronosoft'
+    CompanyHomePage = 'http://chronosoft.zdechov.net/xtactics/'
+    HomePage = 'http://chronosoft.zdechov.net'
+    AuthorsName = 'Chronos'
+    AppName = 'xTactics'
+    ReleaseDate = 41716
+    RegistryKey = '\Software\xTactics'
+    RegistryRoot = rrKeyCurrentUser
+    left = 109
+    top = 140
+  end
 end

trunk/UCore.lrt

@@ -13 +13 @@
 TCORE.AGAMESAVE.CAPTION=Save
 TCORE.AGAMELOAD.CAPTION=Load
+TCORE.AABOUT.CAPTION=About

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, XMLConf, FileUtil, ActnList, Controls, Dialogs, Forms,
-  UGame, UCoolTranslator;
+  UGame, UApplicationInfo, UCoolTranslator;
 
 type
@@ -14 +14 @@
 
   TCore = class(TDataModule)
+    AAbout: TAction;
     AGameSave: TAction;
     AGameLoad: TAction;
+    ApplicationInfo: TApplicationInfo;
     ASettings: TAction;
     ActionList1: TActionList;
@@ -29 +31 @@
     SaveDialog1: TSaveDialog;
     XMLConfig1: TXMLConfig;
+    procedure AAboutExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
     procedure AGameEndExecute(Sender: TObject);
@@ -63 +66 @@
 
 uses
-  UFormMove, UFormMain, UFormNew, UFormSettings;
+  UFormMove, UFormMain, UFormNew, UFormSettings, UFormAbout;
 
 resourcestring
@@ -101 +104 @@
 end;
 
+procedure TCore.AAboutExecute(Sender: TObject);
+begin
+  FormAbout.ShowModal;
+end;
+
 procedure TCore.AGameEndExecute(Sender: TObject);
 begin

trunk/xtactics.lpi

@@ -72 +72 @@
       </local>
     </RunParams>
-    <RequiredPackages Count="3">
+    <RequiredPackages Count="4">
       <Item1>
-        <PackageName Value="FCL"/>
+        <PackageName Value="Common"/>
+        <DefaultFilename Value="Packages/Common/Common.lpk" Prefer="True"/>
       </Item1>
       <Item2>
+        <PackageName Value="FCL"/>
+      </Item2>
+      <Item3>
         <PackageName Value="CoolTranslator"/>
         <DefaultFilename Value="Packages/CoolTranslator/CoolTranslator.lpk" Prefer="True"/>
-      </Item2>
-      <Item3>
+      </Item3>
+      <Item4>
         <PackageName Value="LCL"/>
-      </Item3>
+      </Item4>
     </RequiredPackages>
-    <Units Count="8">
+    <Units Count="9">
       <Unit0>
         <Filename Value="xtactics.lpr"/>
@@ -143 +147 @@
         <UnitName Value="UFormNew"/>
       </Unit7>
+      <Unit8>
+        <Filename Value="Forms/UFormAbout.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="FormAbout"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+        <UnitName Value="UFormAbout"/>
+      </Unit8>
     </Units>
   </ProjectOptions>

trunk/xtactics.lpr

@@ -8 +8 @@
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, UGame, UCore, CoolTranslator,
+  Forms, UGame, UCore, Common, CoolTranslator,
   UFormPlayer
   { you can add units after this },
-  SysUtils, UFormSettings, UFormMain, UFormMove, UFormNew;
+  SysUtils, UFormSettings, UFormMain, UFormMove, UFormNew, UFormAbout;
 
 {$R *.res}
@@ -36 +36 @@
   Application.CreateForm(TFormPlayer, FormPlayer);
   Application.CreateForm(TFormSettings, FormSettings);
+  Application.CreateForm(TFormAbout, FormAbout);
   Application.Run;
 end.