Changeset 229 for trunk/Forms


Ignore:
Timestamp:
Sep 18, 2018, 6:11:18 PM (6 years ago)
Author:
chronos
Message:
  • Added: Support for cyclic map. Movement across map borders will take player units to opposite map border.
Location:
trunk/Forms
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormNew.lfm

    r221 r229  
    11object FormNew: TFormNew
    2   Left = 554
     2  Left = 365
    33  Height = 748
    4   Top = 149
     4  Top = 167
    55  Width = 1154
    66  Caption = 'New game'
    … …  
    2121    Top = 4
    2222    Width = 749
    23     ActivePage = TabSheetMode
     23    ActivePage = TabSheetMap
    2424    Align = alClient
    2525    BorderSpacing.Around = 4
    26     TabIndex = 0
     26    TabIndex = 2
    2727    TabOrder = 0
    2828    object TabSheetMode: TTabSheet
    … …  
    459459        Caption = 'Max units per cell:'
    460460        ParentColor = False
     461      end
     462      object CheckBoxCyclicMap: TCheckBox
     463        Left = 472
     464        Height = 27
     465        Top = 137
     466        Width = 253
     467        Anchors = [akTop, akLeft, akRight]
     468        AutoSize = False
     469        Caption = 'Cyclic map'
     470        TabOrder = 16
    461471      end
    462472    end

  • trunk/Forms/UFormNew.pas

    r221 r229  
    3535    CheckBoxCity: TCheckBox;
    3636    CheckBoxSymetricMap: TCheckBox;
     37    CheckBoxCyclicMap: TCheckBox;
    3738    CheckBoxVoid: TCheckBox;
    3839    ComboBoxGridType: TComboBox;
    … …  
    510511  with Core.GameSettings do begin
    511512    CheckBoxSymetricMap.Checked := SymetricMap;
     513    CheckBoxCyclicMap.Checked := CyclicMap;
    512514    CheckBoxVoid.Checked := VoidEnabled;
    513515    SpinEditVoidPercent.Value := VoidPercentage;
    … …  
    554556  with Core.GameSettings do begin
    555557    SymetricMap := CheckBoxSymetricMap.Checked;
     558    CyclicMap := CheckBoxCyclicMap.Checked;
    556559    VoidEnabled := CheckBoxVoid.Checked;
    557560    VoidPercentage := SpinEditVoidPercent.Value;

  • trunk/Forms/UFormPlayersStats.lfm

    r208 r229  
    11object FormPlayersStats: TFormPlayersStats
    2   Left = 709
     2  Left = 468
    33  Height = 300
    4   Top = 637
     4  Top = 477
    55  Width = 746
    66  Caption = 'Players stats'

  • trunk/Forms/UFormUnitMoves.lfm

    r150 r229  
    77  ClientHeight = 418
    88  ClientWidth = 802
     9  DesignTimePPI = 120
    910  OnClose = FormClose
    1011  OnShow = FormShow
    11   LCLVersion = '1.8.0.4'
     12  LCLVersion = '1.8.2.0'
    1213  object ListView1: TListView
    1314    Left = 0
Note: See TracChangeset for help on using the changeset viewer.