source: trunk/Forms/FormMain.lfm

Last change on this file was 414, checked in by chronos, 6 months ago
  • Modified: Lowered idle CPU consumption.
File size: 6.1 KB
Line 
1object FormMain: TFormMain
2 Left = 534
3 Height = 925
4 Top = 223
5 Width = 1491
6 Caption = 'xTactics'
7 ClientHeight = 925
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.6.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 = 189
49 Top = 2
50 Action = Core.ASettings
51 end
52 object ToolButton9: TToolButton
53 Left = 184
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 DropdownMenu = PopupMenuOpenRecent
63 Style = tbsDropDown
64 end
65 object ToolButton12: TToolButton
66 Left = 152
67 Top = 2
68 Action = Core.AGameSave
69 end
70 object ToolButton13: TToolButton
71 Left = 221
72 Top = 2
73 Action = Core.AExit
74 end
75 object ToolButton2: TToolButton
76 Left = 97
77 Height = 32
78 Top = 2
79 Style = tbsDivider
80 end
81 object ToolButton6: TToolButton
82 Left = 253
83 Top = 2
84 Action = Core.APlayersStats
85 end
86 object ToolButton7: TToolButton
87 Left = 285
88 Top = 2
89 Action = Core.AShowUnitMoves
90 end
91 object ToolButton8: TToolButton
92 Left = 317
93 Top = 2
94 Action = Core.AShowCharts
95 end
96 end
97 object PanelMain: TPanel
98 Left = 0
99 Height = 885
100 Top = 40
101 Width = 1491
102 Align = alClient
103 BevelOuter = bvNone
104 ParentFont = False
105 TabOrder = 1
106 end
107 object MainMenu1: TMainMenu
108 Images = Core.ImageListSmall
109 Left = 88
110 Top = 112
111 object MenuItem1: TMenuItem
112 Caption = 'Game'
113 object MenuItem2: TMenuItem
114 Action = Core.AGameNew
115 end
116 object MenuItem3: TMenuItem
117 Action = Core.AGameEnd
118 end
119 object MenuItem7: TMenuItem
120 Action = Core.AGameRestart
121 end
122 object MenuItem14: TMenuItem
123 Action = Core.AGameLoad
124 end
125 object MenuItemLoadRecent: TMenuItem
126 Caption = 'Load recent'
127 end
128 object MenuItem15: TMenuItem
129 Action = Core.AGameSave
130 end
131 object MenuItem29: TMenuItem
132 Action = Core.AGameSaveAs
133 end
134 object MenuItem5: TMenuItem
135 Caption = '-'
136 end
137 object MenuItem6: TMenuItem
138 Action = Core.AExit
139 end
140 end
141 object MenuItem10: TMenuItem
142 Caption = 'View'
143 object MenuItem11: TMenuItem
144 Caption = 'Zoom all'
145 ImageIndex = 7
146 ShortCut = 16449
147 end
148 object MenuItem12: TMenuItem
149 Caption = 'Zoom in'
150 ImageIndex = 8
151 ShortCut = 16491
152 end
153 object MenuItem13: TMenuItem
154 Caption = 'Zoom out'
155 ImageIndex = 9
156 ShortCut = 16493
157 end
158 object MenuItem32: TMenuItem
159 Caption = '-'
160 end
161 object MenuItem30: TMenuItem
162 Action = Core.AFullscreen
163 end
164 object MenuItem19: TMenuItem
165 Caption = '-'
166 end
167 object MenuItem33: TMenuItem
168 Action = AMapGridVisible
169 end
170 object MenuItem34: TMenuItem
171 Action = AUnitShapeVisible
172 end
173 object MenuItem35: TMenuItem
174 Caption = '-'
175 end
176 object MenuItem21: TMenuItem
177 Action = AToolBarVisible
178 end
179 object MenuItem20: TMenuItem
180 Action = AToolBarBigIcons
181 end
182 object MenuItem22: TMenuItem
183 Action = AStatusBarVisible
184 end
185 object MenuItem26: TMenuItem
186 Caption = '-'
187 end
188 object MenuItem27: TMenuItem
189 Action = Core.ANewSpectatorClient
190 end
191 end
192 object MenuItem8: TMenuItem
193 Caption = 'Tools'
194 object MenuItem9: TMenuItem
195 Action = Core.ASettings
196 end
197 object MenuItem37: TMenuItem
198 Action = Core.AGameSystems
199 end
200 object Separator1: TMenuItem
201 Caption = '-'
202 end
203 object MenuItem24: TMenuItem
204 Action = Core.AShowCharts
205 end
206 object MenuItem25: TMenuItem
207 Action = Core.AShowUnitMoves
208 end
209 object MenuItem28: TMenuItem
210 Action = Core.APlayersStats
211 end
212 end
213 object MenuItemDebug: TMenuItem
214 Caption = 'Debug'
215 object MenuItem31: TMenuItem
216 Action = Core.AToggleFogOfWar
217 end
218 object MenuItem36: TMenuItem
219 Action = Core.ATests
220 end
221 end
222 object MenuItem16: TMenuItem
223 Caption = 'Help'
224 object MenuItem23: TMenuItem
225 Action = Core.AHelp
226 end
227 object MenuItem4: TMenuItem
228 Action = Core.AShowKeyShortcuts
229 end
230 object MenuItem17: TMenuItem
231 Action = Core.AAbout
232 end
233 end
234 end
235 object ActionList1: TActionList
236 Images = Core.ImageListSmall
237 Left = 88
238 Top = 184
239 object AToolBarBigIcons: TAction
240 Caption = 'Toolbar big icons'
241 OnExecute = AToolBarBigIconsExecute
242 end
243 object AToolBarVisible: TAction
244 Caption = 'Toolbar visible'
245 OnExecute = AToolBarVisibleExecute
246 end
247 object AStatusBarVisible: TAction
248 Caption = 'Status bar visible'
249 OnExecute = AStatusBarVisibleExecute
250 end
251 object AMapGridVisible: TAction
252 Caption = 'Map grid visible'
253 OnExecute = AMapGridVisibleExecute
254 end
255 object AUnitShapeVisible: TAction
256 Caption = 'Unit shape visible'
257 OnExecute = AUnitShapeVisibleExecute
258 end
259 end
260 object PopupMenuToolbar: TPopupMenu
261 Left = 432
262 Top = 112
263 object MenuItem18: TMenuItem
264 Action = AToolBarBigIcons
265 end
266 end
267 object PopupMenuOpenRecent: TPopupMenu
268 Left = 432
269 Top = 184
270 end
271end
Note: See TracBrowser for help on using the repository browser.