source: trunk/Forms/FormMain.lfm

Last change on this file was 107, checked in by chronos, 17 months ago
  • Fixed: Full screen mode switching on Windows.
  • Modified: Updated Common package.
File size: 2.6 KB
Line 
1object FormMain: TFormMain
2 Left = 692
3 Height = 617
4 Top = 479
5 Width = 770
6 Caption = 'Tunneler'
7 ClientHeight = 617
8 ClientWidth = 770
9 DesignTimePPI = 144
10 Menu = MainMenu1
11 OnCreate = FormCreate
12 OnDeactivate = FormDeactivate
13 OnDestroy = FormDestroy
14 OnKeyDown = FormKeyDown
15 OnKeyUp = FormKeyUp
16 OnShow = FormShow
17 LCLVersion = '3.4.0.0'
18 object StatusBar1: TStatusBar
19 Left = 0
20 Height = 36
21 Top = 581
22 Width = 770
23 Panels = <
24 item
25 Width = 74
26 end
27 item
28 Width = 74
29 end
30 item
31 Width = 74
32 end
33 item
34 Width = 74
35 end
36 item
37 Width = 74
38 end
39 item
40 Width = 74
41 end
42 item
43 Width = 74
44 end>
45 ParentFont = False
46 SimplePanel = False
47 Visible = False
48 end
49 object Image1: TImage
50 Left = 0
51 Height = 581
52 Top = 0
53 Width = 770
54 Align = alClient
55 OnResize = Image1Resize
56 end
57 object TimerDraw: TTimer
58 Interval = 50
59 OnTimer = TimerDrawTimer
60 Left = 149
61 Top = 76
62 end
63 object MainMenu1: TMainMenu
64 Left = 276
65 Top = 24
66 object MenuItem1: TMenuItem
67 Caption = 'Game'
68 object MenuItem3: TMenuItem
69 Action = ANewGame
70 end
71 object MenuItem2: TMenuItem
72 Action = AExit
73 end
74 end
75 object MenuItem4: TMenuItem
76 Caption = 'View'
77 object MenuItem5: TMenuItem
78 Action = AShowMap
79 end
80 object MenuItem6: TMenuItem
81 Action = AFullScreen
82 end
83 object MenuItem8: TMenuItem
84 Action = AShowRawImageDesc
85 end
86 end
87 object MenuItem7: TMenuItem
88 Caption = 'Help'
89 object MenuItem9: TMenuItem
90 Action = AAbout
91 end
92 end
93 end
94 object TimerEngineTick: TTimer
95 Interval = 20
96 Left = 144
97 Top = 156
98 end
99 object ActionList1: TActionList
100 Left = 432
101 Top = 48
102 object AFullScreen: TAction
103 Caption = 'Fullscreen mode'
104 OnExecute = AFullScreenExecute
105 ShortCut = 122
106 end
107 object AExit: TAction
108 Caption = 'Exit'
109 OnExecute = AExitExecute
110 ShortCut = 121
111 end
112 object ANewGame: TAction
113 Caption = 'New game'
114 OnExecute = ANewGameExecute
115 ShortCut = 16462
116 Visible = False
117 end
118 object AShowMap: TAction
119 Caption = 'Show map'
120 OnExecute = AShowMapExecute
121 ShortCut = 123
122 Visible = False
123 end
124 object AAbout: TAction
125 Caption = 'About'
126 OnExecute = AAboutExecute
127 end
128 object AShowRawImageDesc: TAction
129 Caption = 'Show RawImage Description'
130 OnExecute = AShowRawImageDescExecute
131 Visible = False
132 end
133 end
134end
Note: See TracBrowser for help on using the repository browser.