Changeset 97


Ignore:
Timestamp:
Dec 25, 2014, 12:54:57 PM (10 years ago)
Author:
chronos
Message:
  • Added: Simple Help window with basic game description.
Location:
trunk
Files:
3 added
10 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMain.lfm

    r91 r97  
    192192    object MenuItem16: TMenuItem
    193193      Caption = 'Help'
     194      object MenuItem23: TMenuItem
     195        Action = Core.AHelp
     196      end
    194197      object MenuItem17: TMenuItem
    195198        Action = Core.AAbout

  • trunk/Forms/UFormMain.pas

    r91 r97  
    4141    MenuItem21: TMenuItem;
    4242    MenuItem22: TMenuItem;
     43    MenuItem23: TMenuItem;
    4344    MenuItem3: TMenuItem;
    4445    MenuItem4: TMenuItem;

  • trunk/Forms/UFormSettings.pas

    r77 r97  
    4949  CheckBoxDevelMode.Checked := Core.DevelMode;
    5050  SpinEditAnimSpeed.Value := Core.AnimationSpeed;
     51  {$IFDEF DEBUG}
     52  CheckBoxDevelMode.Visible := True;
     53  {$ELSE}
     54   CheckBoxDevelMode.Visible := False;
     55  {$ENDIF}
    5156end;
    5257

  • trunk/Languages/xtactics.cs.po

    r91 r97  
    7070msgstr "Uložit"
    7171
     72#: tcore.ahelp.caption
     73msgctxt "tcore.ahelp.caption"
     74msgid "Help"
     75msgstr "Nápověda"
     76
    7277#: tcore.asettings.caption
    7378msgctxt "tcore.asettings.caption"
    … …  
    112117msgstr "OK"
    113118
     119#: tformhelp.caption
     120msgctxt "tformhelp.caption"
     121msgid "Help"
     122msgstr "Nápověda"
     123
    114124#: tformmain.astatusbarvisible.caption
    115125msgid "Statusbar visible"
    … …  
    149159
    150160#: tformmain.menuitem16.caption
     161msgctxt "tformmain.menuitem16.caption"
    151162msgid "Help"
    152163msgstr "Nápověda"

  • trunk/Languages/xtactics.po

    r91 r97  
    6161msgstr ""
    6262
     63#: tcore.ahelp.caption
     64msgctxt "TCORE.AHELP.CAPTION"
     65msgid "Help"
     66msgstr ""
     67
    6368#: tcore.asettings.caption
    6469msgctxt "tcore.asettings.caption"
    … …  
    103108msgstr ""
    104109
     110#: tformhelp.caption
     111msgctxt "TFORMHELP.CAPTION"
     112msgid "Help"
     113msgstr ""
     114
    105115#: tformmain.astatusbarvisible.caption
    106116msgid "Statusbar visible"
    … …  
    140150
    141151#: tformmain.menuitem16.caption
     152msgctxt "tformmain.menuitem16.caption"
    142153msgid "Help"
    143154msgstr ""

  • trunk/UCore.lfm

    r94 r97  
    6969      ImageIndex = 2
    7070      OnExecute = AAboutExecute
     71    end
     72    object AHelp: TAction
     73      Caption = 'Help'
     74      OnExecute = AHelpExecute
    7175    end
    7276  end

  • trunk/UCore.lrt

    r43 r97  
    1414TCORE.AGAMELOAD.CAPTION=Load
    1515TCORE.AABOUT.CAPTION=About
     16TCORE.AHELP.CAPTION=Help

  • trunk/UCore.pas

    r95 r97  
    1515  TCore = class(TDataModule)
    1616    AAbout: TAction;
     17    AHelp: TAction;
    1718    AGameSave: TAction;
    1819    AGameLoad: TAction;
    … …  
    4142    procedure AGameRestartExecute(Sender: TObject);
    4243    procedure AGameSaveExecute(Sender: TObject);
     44    procedure AHelpExecute(Sender: TObject);
    4345    procedure ASettingsExecute(Sender: TObject);
    4446    procedure CoolTranslator1Translate(Sender: TObject);
    … …  
    7981
    8082uses
    81   UFormMove, UFormMain, UFormNew, UFormSettings, UFormAbout, UFormPlayer;
     83  UFormMove, UFormMain, UFormNew, UFormSettings, UFormAbout, UFormPlayer,
     84  UFormHelp;
    8285
    8386resourcestring
    … …  
    296299end;
    297300
     301procedure TCore.AHelpExecute(Sender: TObject);
     302begin
     303  FormHelp.ShowModal;
     304end;
     305
    298306procedure TCore.ASettingsExecute(Sender: TObject);
    299307begin

  • trunk/xtactics.lpi

    r94 r97  
    8787      </Item5>
    8888    </RequiredPackages>
    89     <Units Count="9">
     89    <Units Count="10">
    9090      <Unit0>
    9191        <Filename Value="xtactics.lpr"/>
    … …  
    111111        <HasResources Value="True"/>
    112112        <ResourceBaseClass Value="Form"/>
     113        <UnitName Value="UFormPlayer"/>
    113114      </Unit3>
    114115      <Unit4>
    … …  
    134135        <HasResources Value="True"/>
    135136        <ResourceBaseClass Value="Form"/>
     137        <UnitName Value="UFormMove"/>
    136138      </Unit6>
    137139      <Unit7>
    … …  
    141143        <HasResources Value="True"/>
    142144        <ResourceBaseClass Value="Form"/>
     145        <UnitName Value="UFormNew"/>
    143146      </Unit7>
    144147      <Unit8>
    … …  
    149152        <ResourceBaseClass Value="Form"/>
    150153      </Unit8>
     154      <Unit9>
     155        <Filename Value="Forms/UFormHelp.pas"/>
     156        <IsPartOfProject Value="True"/>
     157        <ComponentName Value="FormHelp"/>
     158        <HasResources Value="True"/>
     159        <ResourceBaseClass Value="Form"/>
     160        <UnitName Value="UFormHelp"/>
     161      </Unit9>
    151162    </Units>
    152163  </ProjectOptions>

  • trunk/xtactics.lpr

    r57 r97  
    1111  UFormPlayer
    1212  { you can add units after this },
    13   SysUtils, UFormSettings, UFormMain, UFormMove, UFormNew, UFormAbout;
     13  SysUtils, UFormSettings, UFormMain, UFormMove, UFormNew, UFormAbout,
     14  UFormHelp;
    1415
    1516{$R *.res}
    … …  
    3738  Application.CreateForm(TFormSettings, FormSettings);
    3839  Application.CreateForm(TFormAbout, FormAbout);
     40  Application.CreateForm(TFormHelp, FormHelp);
    3941  Application.Run;
    4042end.
Note: See TracChangeset for help on using the changeset viewer.