Changeset 100 for trunk/Forms


Ignore:
Timestamp:
Dec 26, 2014, 8:10:40 PM (10 years ago)
Author:
chronos
Message:
  • Added: Support for autogeneration of bridges between separated areas.
Location:
trunk/Forms
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMain.lfm

    r97 r100  
    55  Width = 775
    66  Caption = 'xTactics'
    7   ClientHeight = 592
     7  ClientHeight = 595
    88  ClientWidth = 775
    99  Menu = MainMenu1
    … …  
    1818  object StatusBar1: TStatusBar
    1919    Left = 0
    20     Height = 29
    21     Top = 563
     20    Height = 26
     21    Top = 569
    2222    Width = 775
    2323    Panels = <   
    … …  
    3535  object ToolBar1: TToolBar
    3636    Left = 0
    37     Height = 563
     37    Height = 569
    3838    Top = 0
    3939    Width = 40
    … …  
    7373    object ToolButton6: TToolButton
    7474      Left = 1
    75       Top = 172
     75      Top = 194
    7676      Action = AZoomIn
    7777    end
    7878    object ToolButton7: TToolButton
    7979      Left = 1
    80       Top = 204
     80      Top = 226
    8181      Action = AZoomOut
    8282    end
    8383    object ToolButton8: TToolButton
    8484      Left = 1
    85       Top = 236
     85      Top = 258
    8686      Action = AZoomAll
    8787    end
    8888    object ToolButton9: TToolButton
    8989      Left = 1
     90      Height = 32
    9091      Top = 162
    9192      Width = 32
    … …  
    9495    object ToolButton10: TToolButton
    9596      Left = 1
    96       Top = 268
     97      Height = 32
     98      Top = 290
    9799      Width = 32
    98100      Style = tbsSeparator
    … …  
    100102    object ToolButton11: TToolButton
    101103      Left = 1
    102       Top = 278
     104      Top = 322
    103105      Action = Core.AGameLoad
    104106    end
    105107    object ToolButton12: TToolButton
    106108      Left = 1
    107       Top = 310
     109      Top = 354
    108110      Action = Core.AGameSave
    109111    end
    110112    object ToolButton13: TToolButton
    111113      Left = 1
    112       Top = 342
     114      Top = 386
    113115      Action = Core.AExit
    114116    end
    … …  
    116118  object PaintBox1: TPaintBox
    117119    Left = 40
    118     Height = 563
     120    Height = 569
    119121    Top = 0
    120122    Width = 735
    121123    Align = alClient
    122124    OnMouseDown = PaintBox1MouseDown
     125    OnMouseLeave = PaintBox1MouseLeave
    123126    OnMouseMove = PaintBox1MouseMove
    124127    OnMouseUp = PaintBox1MouseUp
    125     OnMouseLeave = PaintBox1MouseLeave
    126128    OnMouseWheelDown = PaintBox1MouseWheelDown
    127129    OnMouseWheelUp = PaintBox1MouseWheelUp

  • trunk/Forms/UFormMain.pas

    r97 r100  
    171171    PaintBox1.Repaint;
    172172    StatusBar1.Panels[1].Text := IntToStr(Trunc(DrawDuration / OneMillisecond)) + ' / ' +
    173       IntToStr(Trunc(TimerPeriod / OneMillisecond)) + ' ms';
     173      IntToStr(Trunc(TimerPeriod / OneMillisecond)) + ' ms' +
     174      ' ' + IntToStr(Core.Game.Map.CellLinks.Count);
    174175    NewCaption := 'xTactics';
    175176    if Assigned(Core.Game.CurrentPlayer) then

  • trunk/Forms/UFormNew.lfm

    r98 r100  
    4949      object ListView1: TListView
    5050        Left = 4
    51         Height = 364
     51        Height = 367
    5252        Top = 4
    5353        Width = 1207
    … …  
    8888        Left = 224
    8989        Height = 25
    90         Top = 376
     90        Top = 379
    9191        Width = 83
    9292        Action = APlayerRemove
    … …  
    9797        Left = 16
    9898        Height = 25
    99         Top = 376
     99        Top = 379
    100100        Width = 83
    101101        Action = APlayerAdd
    … …  
    106106        Left = 120
    107107        Height = 25
    108         Top = 376
     108        Top = 379
    109109        Width = 83
    110110        Action = APlayerModify
    … …  
    330330        Caption = 'Image file:'
    331331        ParentColor = False
     332      end
     333      object CheckBoxBridges: TCheckBox
     334        Left = 8
     335        Height = 24
     336        Top = 310
     337        Width = 204
     338        Caption = 'Bridges between cells'
     339        TabOrder = 14
    332340      end
    333341    end
    … …  
    361369      object Label6: TLabel
    362370        Left = 8
    363         Height = 25
     371        Height = 22
    364372        Top = 248
    365         Width = 129
     373        Width = 116
    366374        Caption = 'Win objective:'
    367375        ParentColor = False
    … …  
    369377      object ComboBoxWinObjective: TComboBox
    370378        Left = 232
    371         Height = 33
     379        Height = 30
    372380        Top = 240
    373381        Width = 328

  • trunk/Forms/UFormNew.lrt

    r82 r100  
    2121TFORMNEW.BUTTONIMAGEBROWSE.CAPTION=Browse
    2222TFORMNEW.LABEL9.CAPTION=Image file:
     23TFORMNEW.CHECKBOXBRIDGES.CAPTION=Bridges between cells
    2324TFORMNEW.TABSHEET3.CAPTION=Rules
    2425TFORMNEW.RADIOGROUPGROWCELLS.CAPTION=Growing cells

  • trunk/Forms/UFormNew.pas

    r91 r100  
    2424    ButtonPlayerModify: TButton;
    2525    ButtonPlayerRemove: TButton;
     26    CheckBoxBridges: TCheckBox;
    2627    CheckBoxFogOfWar: TCheckBox;
    2728    CheckBoxCity: TCheckBox;
    … …  
    354355  EditImageFile.Text := Game.MapImageFileName;
    355356  CheckBoxFogOfWar.Checked := Game.FogOfWar;
     357  CheckBoxBridges.Checked := Game.BridgeEnabled;
    356358end;
    357359
    … …  
    383385  Game.MapImageFileName := EditImageFile.Text;
    384386  Game.FogOfWar := CheckBoxFogOfWar.Checked;
     387  Game.BridgeEnabled := CheckBoxBridges.Checked;
    385388end;
    386389
Note: See TracChangeset for help on using the changeset viewer.