Ignore:
Timestamp:
Feb 8, 2018, 5:32:31 PM (7 years ago)
Author:
chronos
Message:
  • Modified: Client related interface moved from FormMain to FormClient. This code change will later allow to implement network client-server gameplay.
  • Added: Allow to open other spectator client windows.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMain.lfm

    r170 r180  
    11object FormMain: TFormMain
    2   Left = 577
     2  Left = 447
    33  Height = 621
    4   Top = 309
     4  Top = 303
    55  Width = 775
    66  Caption = 'xTactics'
    77  ClientHeight = 596
    88  ClientWidth = 775
     9  DesignTimePPI = 120
    910  Menu = MainMenu1
    1011  OnClose = FormClose
    1112  OnCreate = FormCreate
    1213  OnDestroy = FormDestroy
    13   OnKeyUp = FormKeyUp
    1414  OnShow = FormShow
    15   LCLVersion = '1.6.4.0'
     15  LCLVersion = '1.8.0.6'
    1616  WindowState = wsMaximized
    17   object StatusBar1: TStatusBar
    18     Left = 0
    19     Height = 28
    20     Top = 568
    21     Width = 775
    22     Panels = <   
    23       item
    24         Width = 200
    25       end   
    26       item
    27         Width = 150
    28       end   
    29       item
    30         Width = 100
    31       end>
    32     SimplePanel = False
    33   end
    3417  object ToolBar1: TToolBar
    3518    Left = 0
    36     Height = 568
     19    Height = 40
    3720    Top = 0
    38     Width = 32
    39     Align = alLeft
     21    Width = 775
    4022    ButtonHeight = 32
    4123    ButtonWidth = 32
    … …  
    4426    PopupMenu = PopupMenuToolbar
    4527    ShowHint = True
    46     TabOrder = 1
     28    TabOrder = 0
    4729    object ToolButton1: TToolButton
    4830      Left = 1
    … …  
    5032      Action = Core.AGameNew
    5133    end
     34    object ToolButton3: TToolButton
     35      Left = 33
     36      Top = 2
     37      Action = Core.AGameEnd
     38    end
     39    object ToolButton4: TToolButton
     40      Left = 65
     41      Top = 2
     42      Action = Core.AGameRestart
     43    end
     44    object ToolButton5: TToolButton
     45      Left = 171
     46      Top = 2
     47      Action = Core.ASettings
     48    end
     49    object ToolButton9: TToolButton
     50      Left = 166
     51      Height = 32
     52      Top = 2
     53      Style = tbsDivider
     54    end
     55    object ToolButton11: TToolButton
     56      Left = 102
     57      Top = 2
     58      Action = Core.AGameLoad
     59    end
     60    object ToolButton12: TToolButton
     61      Left = 134
     62      Top = 2
     63      Action = Core.AGameSave
     64    end
     65    object ToolButton13: TToolButton
     66      Left = 203
     67      Top = 2
     68      Action = Core.AExit
     69    end
    5270    object ToolButton2: TToolButton
    53       Left = 1
    54       Top = 34
    55       Action = Core.AGameEndTurn
    56     end
    57     object ToolButton3: TToolButton
    58       Left = 1
    59       Top = 66
    60       Action = Core.AGameEnd
    61     end
    62     object ToolButton4: TToolButton
    63       Left = 1
    64       Top = 98
    65       Action = Core.AGameRestart
    66     end
    67     object ToolButton5: TToolButton
    68       Left = 1
    69       Top = 130
    70       Action = Core.ASettings
    71     end
    72     object ToolButton6: TToolButton
    73       Left = 1
    74       Top = 194
    75       Action = AZoomIn
    76     end
    77     object ToolButton7: TToolButton
    78       Left = 1
    79       Top = 226
    80       Action = AZoomOut
    81     end
    82     object ToolButton8: TToolButton
    83       Left = 1
    84       Top = 258
    85       Action = AZoomAll
    86     end
    87     object ToolButton9: TToolButton
    88       Left = 1
     71      Left = 97
    8972      Height = 32
    90       Top = 162
    91       Width = 32
    92       Style = tbsSeparator
    93     end
    94     object ToolButton10: TToolButton
    95       Left = 1
    96       Height = 32
    97       Top = 290
    98       Width = 32
    99       Style = tbsSeparator
    100     end
    101     object ToolButton11: TToolButton
    102       Left = 1
    103       Top = 322
    104       Action = Core.AGameLoad
    105     end
    106     object ToolButton12: TToolButton
    107       Left = 1
    108       Top = 354
    109       Action = Core.AGameSave
    110     end
    111     object ToolButton13: TToolButton
    112       Left = 1
    113       Top = 386
    114       Action = Core.AExit
    115     end
    116   end
    117   object PaintBox1: TPaintBox
    118     Left = 32
    119     Height = 568
    120     Top = 0
    121     Width = 743
     73      Top = 2
     74      Caption = 'ToolButton2'
     75      Style = tbsDivider
     76    end
     77  end
     78  object PanelMain: TPanel
     79    Left = 0
     80    Height = 556
     81    Top = 40
     82    Width = 775
    12283    Align = alClient
    123     OnMouseDown = PaintBox1MouseDown
    124     OnMouseLeave = PaintBox1MouseLeave
    125     OnMouseMove = PaintBox1MouseMove
    126     OnMouseUp = PaintBox1MouseUp
    127     OnMouseWheelDown = PaintBox1MouseWheelDown
    128     OnMouseWheelUp = PaintBox1MouseWheelUp
    129     OnPaint = PaintBox1Paint
    130     OnResize = PaintBox1Resize
     84    BevelOuter = bvNone
     85    TabOrder = 1
    13186  end
    13287  object MainMenu1: TMainMenu
    … …  
    167122      Caption = 'View'
    168123      object MenuItem11: TMenuItem
    169         Action = AZoomAll
     124        Caption = 'Zoom all'
     125        ImageIndex = 7
     126        ShortCut = 16449
    170127      end
    171128      object MenuItem12: TMenuItem
    172         Action = AZoomIn
     129        Caption = 'Zoom in'
     130        ImageIndex = 8
     131        ShortCut = 16491
    173132      end
    174133      object MenuItem13: TMenuItem
    175         Action = AZoomOut
     134        Caption = 'Zoom out'
     135        ImageIndex = 9
     136        ShortCut = 16493
    176137      end
    177138      object MenuItem19: TMenuItem
    … …  
    185146      end
    186147      object MenuItem22: TMenuItem
    187         Action = AStatusBarVisible
     148        Caption = 'Statusbar visible'
     149      end
     150      object MenuItem26: TMenuItem
     151        Caption = '-'
     152      end
     153      object MenuItem27: TMenuItem
     154        Action = Core.ANewSpectatorClient
    188155      end
    189156    end
    … …  
    220187    left = 280
    221188    top = 152
    222     object AZoomIn: TAction
    223       Caption = 'Zoom in'
    224       ImageIndex = 8
    225       OnExecute = AZoomInExecute
    226       ShortCut = 16491
    227     end
    228     object AZoomOut: TAction
    229       Caption = 'Zoom out'
    230       ImageIndex = 9
    231       OnExecute = AZoomOutExecute
    232       ShortCut = 16493
    233     end
    234     object AZoomAll: TAction
    235       Caption = 'Zoom all'
    236       ImageIndex = 7
    237       OnExecute = AZoomAllExecute
    238       ShortCut = 16449
    239     end
    240189    object AToolBarBigIcons: TAction
    241190      Caption = 'Toolbar big icons'
    … …  
    245194      Caption = 'Toolbar visible'
    246195      OnExecute = AToolBarVisibleExecute
    247     end
    248     object AStatusBarVisible: TAction
    249       Caption = 'Statusbar visible'
    250       OnExecute = AStatusBarVisibleExecute
    251196    end
    252197  end
Note: See TracChangeset for help on using the changeset viewer.