source: trunk/Forms/FormMain.lfm

Last change on this file was 337, checked in by chronos, 3 months ago
  • Added: Game systems action in Tools menu.
  • Modified: TurnStats moved to separate unit.
File size: 5.8 KB
Line 
1object FormMain: TFormMain
2 Left = 534
3 Height = 993
4 Top = 223
5 Width = 1491
6 Caption = 'xTactics'
7 ClientHeight = 993
8 ClientWidth = 1491
9 DesignTimePPI = 144
10 Menu = MainMenu1
11 OnActivate = FormActivate
12 OnClose = FormClose
13 OnCreate = FormCreate
14 OnDestroy = FormDestroy
15 OnKeyUp = FormKeyUp
16 OnResize = FormResize
17 OnShow = FormShow
18 LCLVersion = '3.4.0.0'
19 object ToolBar1: TToolBar
20 Left = 0
21 Height = 40
22 Top = 0
23 Width = 1491
24 ButtonHeight = 32
25 ButtonWidth = 32
26 Images = Core.ImageListSmall
27 ParentFont = False
28 ParentShowHint = False
29 PopupMenu = PopupMenuToolbar
30 ShowHint = True
31 TabOrder = 0
32 object ToolButton1: TToolButton
33 Left = 1
34 Top = 2
35 Action = Core.AGameNew
36 end
37 object ToolButton3: TToolButton
38 Left = 33
39 Top = 2
40 Action = Core.AGameEnd
41 end
42 object ToolButton4: TToolButton
43 Left = 65
44 Top = 2
45 Action = Core.AGameRestart
46 end
47 object ToolButton5: TToolButton
48 Left = 171
49 Top = 2
50 Action = Core.ASettings
51 end
52 object ToolButton9: TToolButton
53 Left = 166
54 Height = 32
55 Top = 2
56 Style = tbsDivider
57 end
58 object ToolButton11: TToolButton
59 Left = 102
60 Top = 2
61 Action = Core.AGameLoad
62 end
63 object ToolButton12: TToolButton
64 Left = 134
65 Top = 2
66 Action = Core.AGameSave
67 end
68 object ToolButton13: TToolButton
69 Left = 203
70 Top = 2
71 Action = Core.AExit
72 end
73 object ToolButton2: TToolButton
74 Left = 97
75 Height = 32
76 Top = 2
77 Style = tbsDivider
78 end
79 end
80 object PanelMain: TPanel
81 Left = 0
82 Height = 953
83 Top = 40
84 Width = 1491
85 Align = alClient
86 BevelOuter = bvNone
87 ParentFont = False
88 TabOrder = 1
89 end
90 object MainMenu1: TMainMenu
91 Images = Core.ImageListSmall
92 Left = 224
93 Top = 48
94 object MenuItem1: TMenuItem
95 Caption = 'Game'
96 object MenuItem2: TMenuItem
97 Action = Core.AGameNew
98 end
99 object MenuItem3: TMenuItem
100 Action = Core.AGameEnd
101 end
102 object MenuItem7: TMenuItem
103 Action = Core.AGameRestart
104 end
105 object MenuItem14: TMenuItem
106 Action = Core.AGameLoad
107 end
108 object MenuItemLoadRecent: TMenuItem
109 Caption = 'Load recent'
110 end
111 object MenuItem15: TMenuItem
112 Action = Core.AGameSave
113 end
114 object MenuItem29: TMenuItem
115 Action = Core.AGameSaveAs
116 end
117 object MenuItem5: TMenuItem
118 Caption = '-'
119 end
120 object MenuItem6: TMenuItem
121 Action = Core.AExit
122 end
123 end
124 object MenuItem10: TMenuItem
125 Caption = 'View'
126 object MenuItem11: TMenuItem
127 Caption = 'Zoom all'
128 ImageIndex = 7
129 ShortCut = 16449
130 end
131 object MenuItem12: TMenuItem
132 Caption = 'Zoom in'
133 ImageIndex = 8
134 ShortCut = 16491
135 end
136 object MenuItem13: TMenuItem
137 Caption = 'Zoom out'
138 ImageIndex = 9
139 ShortCut = 16493
140 end
141 object MenuItem32: TMenuItem
142 Caption = '-'
143 end
144 object MenuItem30: TMenuItem
145 Action = Core.AFullscreen
146 end
147 object MenuItem19: TMenuItem
148 Caption = '-'
149 end
150 object MenuItem33: TMenuItem
151 Action = AMapGridVisible
152 end
153 object MenuItem34: TMenuItem
154 Action = AUnitShapeVisible
155 end
156 object MenuItem35: TMenuItem
157 Caption = '-'
158 end
159 object MenuItem21: TMenuItem
160 Action = AToolBarVisible
161 end
162 object MenuItem20: TMenuItem
163 Action = AToolBarBigIcons
164 end
165 object MenuItem22: TMenuItem
166 Action = AStatusBarVisible
167 end
168 object MenuItem26: TMenuItem
169 Caption = '-'
170 end
171 object MenuItem27: TMenuItem
172 Action = Core.ANewSpectatorClient
173 end
174 end
175 object MenuItem8: TMenuItem
176 Caption = 'Tools'
177 object MenuItem9: TMenuItem
178 Action = Core.ASettings
179 end
180 object MenuItem37: TMenuItem
181 Action = Core.AGameSystems
182 end
183 object Separator1: TMenuItem
184 Caption = '-'
185 end
186 object MenuItem24: TMenuItem
187 Action = Core.AShowCharts
188 end
189 object MenuItem25: TMenuItem
190 Action = Core.AShowUnitMoves
191 end
192 object MenuItem28: TMenuItem
193 Action = Core.APlayersStats
194 end
195 end
196 object MenuItemDebug: TMenuItem
197 Caption = 'Debug'
198 object MenuItem31: TMenuItem
199 Action = Core.AToggleFogOfWar
200 end
201 object MenuItem36: TMenuItem
202 Action = Core.ATests
203 end
204 end
205 object MenuItem16: TMenuItem
206 Caption = 'Help'
207 object MenuItem23: TMenuItem
208 Action = Core.AHelp
209 end
210 object MenuItem4: TMenuItem
211 Action = Core.AShowKeyShortcuts
212 end
213 object MenuItem17: TMenuItem
214 Action = Core.AAbout
215 end
216 end
217 end
218 object Timer1: TTimer
219 Interval = 20
220 OnTimer = Timer1Timer
221 Left = 128
222 Top = 263
223 end
224 object ActionList1: TActionList
225 Images = Core.ImageListSmall
226 Left = 280
227 Top = 152
228 object AToolBarBigIcons: TAction
229 Caption = 'Toolbar big icons'
230 OnExecute = AToolBarBigIconsExecute
231 end
232 object AToolBarVisible: TAction
233 Caption = 'Toolbar visible'
234 OnExecute = AToolBarVisibleExecute
235 end
236 object AStatusBarVisible: TAction
237 Caption = 'Status bar visible'
238 OnExecute = AStatusBarVisibleExecute
239 end
240 object AMapGridVisible: TAction
241 Caption = 'Map grid visible'
242 OnExecute = AMapGridVisibleExecute
243 end
244 object AUnitShapeVisible: TAction
245 Caption = 'Unit shape visible'
246 OnExecute = AUnitShapeVisibleExecute
247 end
248 end
249 object PopupMenuToolbar: TPopupMenu
250 Left = 452
251 Top = 98
252 object MenuItem18: TMenuItem
253 Action = AToolBarBigIcons
254 end
255 end
256end
Note: See TracBrowser for help on using the repository browser.