source: trunk/Forms/FormMain.lfm

Last change on this file was 177, checked in by chronos, 3 months ago
  • Added: Keyboard shortcuts form accessible from Help menu.
File size: 5.9 KB
Line 
1object FormMain: TFormMain
2 Left = 534
3 Height = 1061
4 Top = 223
5 Width = 1491
6 AllowDropFiles = True
7 Caption = 'vCard Studio'
8 ClientHeight = 1061
9 ClientWidth = 1491
10 DesignTimePPI = 144
11 Menu = MainMenu1
12 OnActivate = FormActivate
13 OnClose = FormClose
14 OnCloseQuery = FormCloseQuery
15 OnCreate = FormCreate
16 OnDestroy = FormDestroy
17 OnDropFiles = FormDropFiles
18 OnResize = FormResize
19 OnShow = FormShow
20 LCLVersion = '3.4.0.0'
21 object CoolBar1: TCoolBar
22 Left = 0
23 Height = 43
24 Top = 0
25 Width = 1491
26 AutoSize = True
27 Bands = <
28 item
29 Break = False
30 Control = ToolBarFile
31 Width = 164
32 end
33 item
34 Break = False
35 Control = ToolBarOther
36 MinWidth = 64
37 Width = 64
38 end>
39 ParentFont = False
40 object ToolBarFile: TToolBar
41 AnchorSideLeft.Control = CoolBar1
42 AnchorSideTop.Control = CoolBar1
43 Left = 24
44 Height = 33
45 Top = 5
46 Width = 159
47 Align = alNone
48 AutoSize = True
49 BorderSpacing.Left = 22
50 BorderSpacing.Top = 3
51 EdgeInner = esNone
52 EdgeOuter = esNone
53 Images = Core.ImageList1
54 ParentFont = False
55 ParentShowHint = False
56 ShowHint = True
57 TabOrder = 0
58 Transparent = True
59 object ToolButton1: TToolButton
60 Left = 1
61 Top = 0
62 Action = Core.AFileNew
63 end
64 object ToolButton2: TToolButton
65 Left = 36
66 Top = 0
67 Action = Core.AFileOpen
68 DropdownMenu = PopupMenuOpenRecent
69 Style = tbsDropDown
70 end
71 object ToolButton3: TToolButton
72 Left = 89
73 Top = 0
74 Action = Core.AFileSave
75 end
76 object ToolButton4: TToolButton
77 Left = 124
78 Top = 0
79 Action = Core.AFileClose
80 end
81 end
82 object ToolBarOther: TToolBar
83 AnchorSideLeft.Control = CoolBar1
84 AnchorSideTop.Control = CoolBar1
85 Left = 188
86 Height = 33
87 Top = 5
88 Width = 141
89 Align = alNone
90 AutoSize = True
91 BorderSpacing.Left = 186
92 BorderSpacing.Top = 3
93 EdgeInner = esNone
94 EdgeOuter = esNone
95 Images = Core.ImageList1
96 ParentFont = False
97 ParentShowHint = False
98 ShowHint = True
99 TabOrder = 1
100 Transparent = True
101 object ToolButton5: TToolButton
102 Left = 106
103 Top = 0
104 Action = Core.ASettings
105 end
106 object ToolButton6: TToolButton
107 Left = 36
108 Top = 0
109 Action = Core.AFindDuplicate
110 end
111 object ToolButton7: TToolButton
112 Left = 1
113 Top = 0
114 Action = Core.AFind
115 end
116 object ToolButton8: TToolButton
117 Left = 71
118 Top = 0
119 Action = Core.AFileCompare
120 end
121 end
122 end
123 object MainMenu1: TMainMenu
124 Images = Core.ImageList1
125 Left = 192
126 Top = 120
127 object MenuItemFile: TMenuItem
128 Caption = 'File'
129 object MenuItemFileNew: TMenuItem
130 Action = Core.AFileNew
131 end
132 object MenuItemFileOpen: TMenuItem
133 Action = Core.AFileOpen
134 end
135 object MenuItemFileOpenRecent: TMenuItem
136 Caption = 'Open recent'
137 end
138 object MenuItemFileSave: TMenuItem
139 Action = Core.AFileSave
140 end
141 object MenuItemFileSaveAs: TMenuItem
142 Action = Core.AFileSaveAs
143 end
144 object MenuItemFileClose: TMenuItem
145 Action = Core.AFileClose
146 end
147 object MenuItem1: TMenuItem
148 Caption = '-'
149 end
150 object MenuItem12: TMenuItem
151 Action = Core.AFileCompare
152 end
153 object Separator1: TMenuItem
154 Caption = '-'
155 end
156 object MenuItem3: TMenuItem
157 Action = Core.AFileCombine
158 end
159 object MenuItem6: TMenuItem
160 Action = Core.AFileSplit
161 end
162 object Separator2: TMenuItem
163 Caption = '-'
164 end
165 object MenuItem16: TMenuItem
166 Action = Core.AFileImport
167 end
168 object MenuItem15: TMenuItem
169 Action = Core.AFileExport
170 end
171 object MenuItem2: TMenuItem
172 Caption = '-'
173 end
174 object MenuItemExit: TMenuItem
175 Action = Core.AExit
176 end
177 end
178 object MenuItem7: TMenuItem
179 Caption = 'Find'
180 object MenuItem8: TMenuItem
181 Action = Core.AFind
182 end
183 object MenuItem9: TMenuItem
184 Action = Core.AFindDuplicate
185 end
186 end
187 object MenuItemView: TMenuItem
188 Caption = 'View'
189 object MenuItemToolbar: TMenuItem
190 AutoCheck = True
191 Caption = 'Main toolbar'
192 OnClick = MenuItemToolbarClick
193 end
194 object MenuItemColumns: TMenuItem
195 Caption = 'Columns'
196 OnClick = MenuItemColumnsClick
197 end
198 object MenuItem17: TMenuItem
199 Action = Core.AFullScreen
200 end
201 end
202 object MenuItemTools: TMenuItem
203 Caption = 'Tools'
204 object MenuItemSettings: TMenuItem
205 Action = Core.ASettings
206 end
207 object MenuItem10: TMenuItem
208 Caption = '-'
209 end
210 object MenuItem14: TMenuItem
211 Action = Core.ANormalize
212 end
213 object MenuItem13: TMenuItem
214 Action = Core.ARemoveExactDuplicates
215 end
216 object MenuItem5: TMenuItem
217 Action = Core.AGenerate
218 end
219 object MenuItem4: TMenuItem
220 Action = Core.ATest
221 end
222 object MenuItem11: TMenuItem
223 Action = Core.AViewSource
224 end
225 end
226 object MenuItemHelp: TMenuItem
227 Caption = 'Help'
228 object MenuItemHomePage: TMenuItem
229 Action = Core.AHomePage
230 end
231 object MenuItem18: TMenuItem
232 Action = Core.AKeyShortcuts
233 end
234 object MenuItemAbout: TMenuItem
235 Action = Core.AAbout
236 end
237 end
238 end
239 object PopupMenuOpenRecent: TPopupMenu
240 Left = 420
241 Top = 120
242 end
243end
Note: See TracBrowser for help on using the repository browser.