Changeset 335


Ignore:
Timestamp:
Sep 7, 2024, 11:53:58 AM (4 months ago)
Author:
chronos
Message:
  • Modified: End turn with space key.
  • Modified: Code cleanup.
Location:
trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/Core.lfm

    r328 r335  
    4343      ShortCut = 16466
    4444    end
    45     object ASettings: TAction
    46       Caption = 'Settings'
    47       Hint = 'Application settings'
    48       ImageIndex = 6
    49       OnExecute = ASettingsExecute
    50       ShortCut = 120
     45    object AGameSave: TAction
     46      Category = 'Game'
     47      Caption = 'Save'
     48      ImageIndex = 11
     49      OnExecute = AGameSaveExecute
    5150    end
    5251    object AGameSaveAs: TAction
     
    6362      OnExecute = AGameLoadExecute
    6463      ShortCut = 16463
     64    end
     65    object ASettings: TAction
     66      Caption = 'Settings'
     67      Hint = 'Application settings'
     68      ImageIndex = 6
     69      OnExecute = ASettingsExecute
     70      ShortCut = 120
    6571    end
    6672    object AAbout: TAction
     
    9096      ImageIndex = 15
    9197      OnExecute = APlayersStatsExecute
    92     end
    93     object AGameSave: TAction
    94       Category = 'Game'
    95       Caption = 'Save'
    96       ImageIndex = 11
    97       OnExecute = AGameSaveExecute
    9898    end
    9999    object AShowKeyShortcuts: TAction
  • trunk/Core.lrj

    r330 r335  
    88{"hash":147499204,"name":"tcore.agamerestart.caption","sourcebytes":[82,101,115,116,97,114,116],"value":"Restart"},
    99{"hash":216694453,"name":"tcore.agamerestart.hint","sourcebytes":[82,101,115,116,97,114,116,32,103,97,109,101],"value":"Restart game"},
     10{"hash":366789,"name":"tcore.agamesave.caption","sourcebytes":[83,97,118,101],"value":"Save"},
     11{"hash":124639694,"name":"tcore.agamesaveas.caption","sourcebytes":[83,97,118,101,32,97,115,46,46,46],"value":"Save as..."},
     12{"hash":341364,"name":"tcore.agameload.caption","sourcebytes":[76,111,97,100],"value":"Load"},
    1013{"hash":213582195,"name":"tcore.asettings.caption","sourcebytes":[83,101,116,116,105,110,103,115],"value":"Settings"},
    1114{"hash":19013235,"name":"tcore.asettings.hint","sourcebytes":[65,112,112,108,105,99,97,116,105,111,110,32,115,101,116,116,105,110,103,115],"value":"Application settings"},
    12 {"hash":124639694,"name":"tcore.agamesaveas.caption","sourcebytes":[83,97,118,101,32,97,115,46,46,46],"value":"Save as..."},
    13 {"hash":341364,"name":"tcore.agameload.caption","sourcebytes":[76,111,97,100],"value":"Load"},
    1415{"hash":4691652,"name":"tcore.aabout.caption","sourcebytes":[65,98,111,117,116],"value":"About"},
    1516{"hash":322608,"name":"tcore.ahelp.caption","sourcebytes":[72,101,108,112],"value":"Help"},
     
    1819{"hash":12447716,"name":"tcore.anewspectatorclient.caption","sourcebytes":[78,101,119,32,115,112,101,99,116,97,116,111,114,32,99,108,105,101,110,116],"value":"New spectator client"},
    1920{"hash":120556259,"name":"tcore.aplayersstats.caption","sourcebytes":[80,108,97,121,101,114,115,32,115,116,97,116,105,115,116,105,99,115],"value":"Players statistics"},
    20 {"hash":366789,"name":"tcore.agamesave.caption","sourcebytes":[83,97,118,101],"value":"Save"},
    2121{"hash":122803571,"name":"tcore.ashowkeyshortcuts.caption","sourcebytes":[75,101,121,32,115,104,111,114,116,99,117,116,115],"value":"Key shortcuts"},
    2222{"hash":91608562,"name":"tcore.atogglefogofwar.caption","sourcebytes":[84,111,103,103,108,101,32,102,111,103,32,111,102,32,119,97,114],"value":"Toggle fog of war"},
  • trunk/Forms/FormClient.lfm

    r317 r335  
    11object FormClient: TFormClient
    2   Left = 887
     2  Left = 882
    33  Height = 621
    4   Top = 404
     4  Top = 399
    55  Width = 775
    66  Caption = 'Client'
     
    143143      ImageIndex = 0
    144144      OnExecute = AGameEndTurnExecute
    145       ShortCut = 16468
     145      ShortCut = 32
    146146    end
    147147    object ASurrender: TAction
  • trunk/Player.pas

    r322 r335  
    584584  I: Integer;
    585585begin
     586  Result := Default(TPlayerArray);
    586587  SetLength(Result, 0);
    587588  for I := 0 to Count - 1 do
     
    596597  I: Integer;
    597598begin
     599  Result := Default(TPlayerArray);
    598600  SetLength(Result, 0);
    599601  for I := 0 to Count - 1 do
     
    642644    NewNode := Node.OwnerDocument.CreateElement('UnitMove');
    643645    Node.AppendChild(NewNode);
    644     TUnitMove(Items[I]).SaveToNode(NewNode);
     646    Items[I].SaveToNode(NewNode);
    645647  end;
    646648end;
Note: See TracChangeset for help on using the changeset viewer.