Changeset 43 for trunk


Ignore:
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:
38 added
10 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormMain.lfm

    r39 r43  
    132132      end
    133133    end
     134    object MenuItem16: TMenuItem
     135      Caption = 'Help'
     136      object MenuItem17: TMenuItem
     137        Action = Core.AAbout
     138      end
     139    end
    134140  end
    135141  object Timer1: TTimer
  • trunk/Forms/UFormMain.lrt

    r35 r43  
    44TFORMMAIN.MENUITEM10.CAPTION=View
    55TFORMMAIN.MENUITEM8.CAPTION=Tools
     6TFORMMAIN.MENUITEM16.CAPTION=Help
    67TFORMMAIN.AZOOMIN.CAPTION=Zoom in
    78TFORMMAIN.AZOOMOUT.CAPTION=Zoom out
  • trunk/Forms/UFormMain.pas

    r39 r43  
    2929    MenuItem14: TMenuItem;
    3030    MenuItem15: TMenuItem;
     31    MenuItem16: TMenuItem;
     32    MenuItem17: TMenuItem;
    3133    MenuItem2: TMenuItem;
    3234    MenuItem3: TMenuItem;
  • trunk/Languages/xtactics.cs.po

    r42 r43  
    1111"X-Generator: Poedit 1.5.4\n"
    1212
     13#: tcore.aabout.caption
     14msgctxt "tcore.aabout.caption"
     15msgid "About"
     16msgstr ""
     17
    1318#: tcore.aexit.caption
    1419msgctxt "TCORE.AEXIT.CAPTION"
     
    7479msgstr "Nastavení aplikace"
    7580
     81#: tformabout.caption
     82msgctxt "tformabout.caption"
     83msgid "About"
     84msgstr ""
     85
     86#: tformabout.okbutton.caption
     87msgid "OK"
     88msgstr ""
     89
    7690#: tformmain.azoomall.caption
    7791msgid "Zoom all"
     
    97111msgid "View"
    98112msgstr "Zobrazení"
     113
     114#: tformmain.menuitem16.caption
     115msgid "Help"
     116msgstr ""
    99117
    100118#: tformmain.menuitem5.caption
     
    121139msgctxt "tformmove.buttononcemax.caption"
    122140msgid "Max"
    123 msgstr ""
     141msgstr "Max"
    124142
    125143#: tformmove.buttononcemin.caption
    126144msgctxt "tformmove.buttononcemin.caption"
    127145msgid "Min"
    128 msgstr ""
     146msgstr "Min"
    129147
    130148#: tformmove.buttonrepeatmax.caption
    131149msgctxt "tformmove.buttonrepeatmax.caption"
    132150msgid "Max"
    133 msgstr ""
     151msgstr "Max"
    134152
    135153#: tformmove.buttonrepeatmin.caption
    136154msgctxt "tformmove.buttonrepeatmin.caption"
    137155msgid "Min"
    138 msgstr ""
     156msgstr "Min"
    139157
    140158#: tformmove.caption
     
    152170#: tformnew.aplayeradd.caption
    153171msgid "Add player"
    154 msgstr ""
     172msgstr "Přidat hráče"
    155173
    156174#: tformnew.aplayermodify.caption
    157175msgid "Modify player"
    158 msgstr ""
     176msgstr "Upravit hráče"
    159177
    160178#: tformnew.aplayerremove.caption
    161179msgid "Remove player"
    162 msgstr ""
     180msgstr "Odstranit hráče"
    163181
    164182#: tformnew.buttoncancel.caption
     
    223241#: tformnew.label6.caption
    224242msgid "Win objective:"
    225 msgstr ""
     243msgstr "Cíl vítězství:"
    226244
    227245#: tformnew.label7.caption
    228246msgid "Max random neutral units:"
    229 msgstr ""
     247msgstr "Nejvíce náhodných neutrálních jednotek:"
    230248
    231249#: tformnew.listview1.columns[0].caption
     
    308326msgstr "Hráč %s vyhrál"
    309327
     328#: uformabout.sapplicationname
     329msgid "Application name"
     330msgstr ""
     331
     332#: uformabout.semail
     333msgid "E-mail"
     334msgstr ""
     335
     336#: uformabout.shomepage
     337msgid "Homepage"
     338msgstr ""
     339
     340#: uformabout.smanufacturer
     341msgid "Company"
     342msgstr ""
     343
     344#: uformabout.sreleasedate
     345msgid "Release date"
     346msgstr ""
     347
     348#: uformabout.sversion
     349msgid "Version"
     350msgstr ""
     351
    310352#: uformmain.sturn
    311353msgid "turn"
     
    331373#: ugame.sunfinishedbattle
    332374msgid "Unfinished battle"
    333 msgstr ""
    334 
     375msgstr "Neukončená bitva"
     376
  • trunk/Languages/xtactics.po

    r42 r43  
    11msgid ""
    22msgstr "Content-Type: text/plain; charset=UTF-8"
     3
     4#: tcore.aabout.caption
     5msgctxt "TCORE.AABOUT.CAPTION"
     6msgid "About"
     7msgstr ""
    38
    49#: tcore.aexit.caption
     
    6570msgstr ""
    6671
     72#: tformabout.caption
     73msgctxt "tformabout.caption"
     74msgid "About"
     75msgstr ""
     76
     77#: tformabout.okbutton.caption
     78msgid "OK"
     79msgstr ""
     80
    6781#: tformmain.azoomall.caption
    6882msgid "Zoom all"
     
    87101#: tformmain.menuitem10.caption
    88102msgid "View"
     103msgstr ""
     104
     105#: tformmain.menuitem16.caption
     106msgid "Help"
    89107msgstr ""
    90108
     
    296314msgstr ""
    297315
     316#: uformabout.sapplicationname
     317msgid "Application name"
     318msgstr ""
     319
     320#: uformabout.semail
     321msgid "E-mail"
     322msgstr ""
     323
     324#: uformabout.shomepage
     325msgid "Homepage"
     326msgstr ""
     327
     328#: uformabout.smanufacturer
     329msgid "Company"
     330msgstr ""
     331
     332#: uformabout.sreleasedate
     333msgid "Release date"
     334msgstr ""
     335
     336#: uformabout.sversion
     337msgid "Version"
     338msgstr ""
     339
    298340#: uformmain.sturn
    299341msgid "turn"
  • trunk/UCore.lfm

    r39 r43  
    6262      OnExecute = AGameLoadExecute
    6363      ShortCut = 16463
     64    end
     65    object AAbout: TAction
     66      Caption = 'About'
     67      OnExecute = AAboutExecute
    6468    end
    6569  end
     
    455459    top = 88
    456460  end
     461  object ApplicationInfo: TApplicationInfo
     462    Identification = 1
     463    VersionMajor = 1
     464    VersionMinor = 0
     465    VersionBugFix = 0
     466    VersionSuffix = 'alfa'
     467    CompanyName = 'Chronosoft'
     468    CompanyHomePage = 'http://chronosoft.zdechov.net/xtactics/'
     469    HomePage = 'http://chronosoft.zdechov.net'
     470    AuthorsName = 'Chronos'
     471    AppName = 'xTactics'
     472    ReleaseDate = 41716
     473    RegistryKey = '\Software\xTactics'
     474    RegistryRoot = rrKeyCurrentUser
     475    left = 109
     476    top = 140
     477  end
    457478end
  • trunk/UCore.lrt

    r39 r43  
    1313TCORE.AGAMESAVE.CAPTION=Save
    1414TCORE.AGAMELOAD.CAPTION=Load
     15TCORE.AABOUT.CAPTION=About
  • trunk/UCore.pas

    r40 r43  
    77uses
    88  Classes, SysUtils, XMLConf, FileUtil, ActnList, Controls, Dialogs, Forms,
    9   UGame, UCoolTranslator;
     9  UGame, UApplicationInfo, UCoolTranslator;
    1010
    1111type
     
    1414
    1515  TCore = class(TDataModule)
     16    AAbout: TAction;
    1617    AGameSave: TAction;
    1718    AGameLoad: TAction;
     19    ApplicationInfo: TApplicationInfo;
    1820    ASettings: TAction;
    1921    ActionList1: TActionList;
     
    2931    SaveDialog1: TSaveDialog;
    3032    XMLConfig1: TXMLConfig;
     33    procedure AAboutExecute(Sender: TObject);
    3134    procedure AExitExecute(Sender: TObject);
    3235    procedure AGameEndExecute(Sender: TObject);
     
    6366
    6467uses
    65   UFormMove, UFormMain, UFormNew, UFormSettings;
     68  UFormMove, UFormMain, UFormNew, UFormSettings, UFormAbout;
    6669
    6770resourcestring
     
    101104end;
    102105
     106procedure TCore.AAboutExecute(Sender: TObject);
     107begin
     108  FormAbout.ShowModal;
     109end;
     110
    103111procedure TCore.AGameEndExecute(Sender: TObject);
    104112begin
  • trunk/xtactics.lpi

    r40 r43  
    7272      </local>
    7373    </RunParams>
    74     <RequiredPackages Count="3">
     74    <RequiredPackages Count="4">
    7575      <Item1>
    76         <PackageName Value="FCL"/>
     76        <PackageName Value="Common"/>
     77        <DefaultFilename Value="Packages/Common/Common.lpk" Prefer="True"/>
    7778      </Item1>
    7879      <Item2>
     80        <PackageName Value="FCL"/>
     81      </Item2>
     82      <Item3>
    7983        <PackageName Value="CoolTranslator"/>
    8084        <DefaultFilename Value="Packages/CoolTranslator/CoolTranslator.lpk" Prefer="True"/>
    81       </Item2>
    82       <Item3>
     85      </Item3>
     86      <Item4>
    8387        <PackageName Value="LCL"/>
    84       </Item3>
     88      </Item4>
    8589    </RequiredPackages>
    86     <Units Count="8">
     90    <Units Count="9">
    8791      <Unit0>
    8892        <Filename Value="xtactics.lpr"/>
     
    143147        <UnitName Value="UFormNew"/>
    144148      </Unit7>
     149      <Unit8>
     150        <Filename Value="Forms/UFormAbout.pas"/>
     151        <IsPartOfProject Value="True"/>
     152        <ComponentName Value="FormAbout"/>
     153        <HasResources Value="True"/>
     154        <ResourceBaseClass Value="Form"/>
     155        <UnitName Value="UFormAbout"/>
     156      </Unit8>
    145157    </Units>
    146158  </ProjectOptions>
  • trunk/xtactics.lpr

    r34 r43  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UGame, UCore, CoolTranslator,
     10  Forms, UGame, UCore, Common, CoolTranslator,
    1111  UFormPlayer
    1212  { you can add units after this },
    13   SysUtils, UFormSettings, UFormMain, UFormMove, UFormNew;
     13  SysUtils, UFormSettings, UFormMain, UFormMove, UFormNew, UFormAbout;
    1414
    1515{$R *.res}
     
    3636  Application.CreateForm(TFormPlayer, FormPlayer);
    3737  Application.CreateForm(TFormSettings, FormSettings);
     38  Application.CreateForm(TFormAbout, FormAbout);
    3839  Application.Run;
    3940end.
Note: See TracChangeset for help on using the changeset viewer.