Changeset 62 for trunk/Forms


Ignore:
Timestamp:
Sep 26, 2014, 1:58:41 PM (10 years ago)
Author:
chronos
Message:
  • Modified: Show one bigger arrow between two cells on unit move.
  • Added: New move clear existing counter move.
  • Modified: Move toolbar to left to have more space on top.
Location:
trunk/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMain.lfm

    r58 r62  
    1616  WindowState = wsMaximized
    1717  object PaintBox1: TPaintBox
    18     Left = 0
    19     Height = 547
    20     Top = 32
    21     Width = 775
     18    Left = 40
     19    Height = 579
     20    Top = 0
     21    Width = 735
    2222    Align = alClient
    2323    OnMouseDown = PaintBox1MouseDown
    … …  
    4949  object ToolBar1: TToolBar
    5050    Left = 0
     51    Height = 579
    5152    Top = 0
    52     Width = 775
     53    Width = 40
     54    Align = alLeft
    5355    ButtonHeight = 32
    5456    ButtonWidth = 32
    … …  
    6466    end
    6567    object ToolButton2: TToolButton
    66       Left = 33
    67       Top = 2
     68      Left = 1
     69      Top = 34
    6870      Action = Core.AGameEndTurn
    6971    end
    7072    object ToolButton3: TToolButton
    71       Left = 65
    72       Top = 2
     73      Left = 1
     74      Top = 66
    7375      Action = Core.AGameEnd
    7476    end
    7577    object ToolButton4: TToolButton
    76       Left = 97
    77       Top = 2
     78      Left = 1
     79      Top = 98
    7880      Action = Core.AGameRestart
    7981    end
    8082    object ToolButton5: TToolButton
    81       Left = 129
    82       Top = 2
     83      Left = 1
     84      Top = 130
    8385      Action = Core.ASettings
    8486    end
    8587    object ToolButton6: TToolButton
    86       Left = 171
    87       Top = 2
     88      Left = 1
     89      Top = 194
    8890      Action = AZoomIn
    8991    end
    9092    object ToolButton7: TToolButton
    91       Left = 203
    92       Top = 2
     93      Left = 1
     94      Top = 226
    9395      Action = AZoomOut
    9496    end
    9597    object ToolButton8: TToolButton
    96       Left = 235
    97       Top = 2
     98      Left = 1
     99      Top = 258
    98100      Action = AZoomAll
    99101    end
    100102    object ToolButton9: TToolButton
    101       Left = 161
    102       Top = 2
    103       Width = 10
     103      Left = 1
     104      Top = 162
     105      Width = 32
    104106      Caption = 'ToolButton9'
    105107      Style = tbsSeparator

  • trunk/Forms/UFormMain.pas

    r58 r62  
    180180    ToolBar1.ButtonHeight := 32 + 6;
    181181    ToolBar1.Height := 32 + 10;
     182    ToolBar1.Width := 32 + 10;
    182183  end else begin
    183184    ToolBar1.ButtonWidth := 16 + 7;
    184185    ToolBar1.ButtonHeight := 16 + 6;
    185186    ToolBar1.Height := 16 + 10;
     187    ToolBar1.Width := 16 + 10;
    186188    ToolBar1.Images := Core.ImageListSmall;
    187189  end;
Note: See TracChangeset for help on using the changeset viewer.