source: trunk/Forms/FormMain.lfm

Last change on this file was 227, checked in by chronos, 44 hours ago
  • Modified: Do not reference global Core object if possible.
File size: 15.7 KB
Line 
1object FormMain: TFormMain
2 Left = 417
3 Height = 645
4 Top = 453
5 Width = 1106
6 Caption = 'Acronym Decoder'
7 ClientHeight = 645
8 ClientWidth = 1106
9 DesignTimePPI = 144
10 Menu = MainMenu1
11 OnClose = FormClose
12 OnCloseQuery = FormCloseQuery
13 OnCreate = FormCreate
14 OnDestroy = FormDestroy
15 OnHide = FormHide
16 OnResize = FormResize
17 OnShow = FormShow
18 LCLVersion = '3.6.0.0'
19 object PanelMain: TPanel
20 Left = 0
21 Height = 536
22 Top = 81
23 Width = 1106
24 Align = alClient
25 BevelOuter = bvNone
26 ClientHeight = 536
27 ClientWidth = 1106
28 ParentFont = False
29 TabOrder = 0
30 object ListViewFilter1: TListViewFilter
31 Left = 5
32 Height = 46
33 Top = 5
34 Width = 1095
35 OnChange = ListViewFilter1Change
36 Anchors = [akTop, akLeft, akRight]
37 end
38 object ListViewAcronyms: TListView
39 Left = 5
40 Height = 480
41 Top = 50
42 Width = 1095
43 Anchors = [akTop, akLeft, akRight, akBottom]
44 Columns = <
45 item
46 Caption = 'Name'
47 Width = 150
48 end
49 item
50 Caption = 'Meaning'
51 Width = 450
52 end
53 item
54 Caption = 'Categories'
55 Width = 521
56 end>
57 OwnerData = True
58 ParentFont = False
59 PopupMenu = PopupMenuFilter
60 ReadOnly = True
61 RowSelect = True
62 TabOrder = 1
63 ViewStyle = vsReport
64 OnData = ListViewAcronymsData
65 OnResize = ListViewAcronymsResize
66 OnSelectItem = ListViewAcronymsSelectItem
67 end
68 end
69 object PanelParam: TPanel
70 Left = 0
71 Height = 38
72 Top = 43
73 Width = 1106
74 Align = alTop
75 BevelOuter = bvNone
76 ClientHeight = 38
77 ClientWidth = 1106
78 ParentFont = False
79 TabOrder = 1
80 object CheckBoxExactLength: TCheckBox
81 Left = 8
82 Height = 38
83 Top = 0
84 Width = 132
85 Action = AFilterSameLength
86 Align = alLeft
87 BorderSpacing.Left = 8
88 ParentFont = False
89 TabOrder = 0
90 end
91 object CheckBoxCaseSensitive: TCheckBox
92 Left = 156
93 Height = 38
94 Top = 0
95 Width = 165
96 Action = AFilterSameLetterCase
97 Align = alLeft
98 BorderSpacing.Left = 16
99 ParentFont = False
100 TabOrder = 1
101 end
102 object CheckBoxEnabledCategories: TCheckBox
103 Left = 337
104 Height = 38
105 Top = 0
106 Width = 187
107 Action = AFilterEnabledCategories
108 Align = alLeft
109 BorderSpacing.Left = 16
110 ParentFont = False
111 TabOrder = 2
112 end
113 object CheckBoxShowItemsWithoutFilter: TCheckBox
114 Left = 540
115 Height = 38
116 Top = 0
117 Width = 237
118 Action = AFilterShowItemsWithoutFilter
119 Align = alLeft
120 BorderSpacing.Left = 16
121 ParentFont = False
122 TabOrder = 3
123 end
124 end
125 object CoolBar1: TCoolBar
126 Left = 0
127 Height = 43
128 Top = 0
129 Width = 1106
130 AutoSize = True
131 Bands = <
132 item
133 Break = False
134 Control = ToolBarFile
135 FixedSize = True
136 MinWidth = 40
137 Width = 164
138 end
139 item
140 Break = False
141 Control = ToolBarManage
142 FixedSize = True
143 MinWidth = 40
144 Width = 149
145 end
146 item
147 Break = False
148 Control = ToolBarOther
149 FixedSize = True
150 MinWidth = 40
151 Width = 91
152 end
153 item
154 Break = False
155 Control = ToolBarFilter
156 FixedSize = True
157 MinWidth = 40
158 Width = 120
159 end>
160 Images = Core.ImageListSmall
161 ParentFont = False
162 object ToolBarFile: TToolBar
163 AnchorSideLeft.Control = CoolBar1
164 AnchorSideTop.Control = CoolBar1
165 Left = 24
166 Height = 33
167 Top = 5
168 Width = 159
169 Align = alNone
170 AutoSize = True
171 BorderSpacing.Left = 22
172 BorderSpacing.Top = 3
173 EdgeBorders = []
174 EdgeInner = esNone
175 EdgeOuter = esNone
176 Images = Core.ImageListSmall
177 ParentFont = False
178 ParentShowHint = False
179 ShowHint = True
180 TabOrder = 0
181 Transparent = True
182 object ToolButton1: TToolButton
183 Left = 1
184 Top = 0
185 Action = AFileNew
186 end
187 object ToolButton6: TToolButton
188 Left = 36
189 Top = 0
190 Action = AFileOpen
191 DropdownMenu = PopupMenuOpenRecent
192 Style = tbsDropDown
193 end
194 object ToolButton7: TToolButton
195 Left = 89
196 Top = 0
197 Action = AFileSave
198 end
199 object ToolButton12: TToolButton
200 Left = 124
201 Top = 0
202 Action = AFileClose
203 end
204 end
205 object ToolBarManage: TToolBar
206 AnchorSideLeft.Control = CoolBar1
207 AnchorSideTop.Control = CoolBar1
208 Left = 188
209 Height = 33
210 Top = 5
211 Width = 141
212 Align = alNone
213 AutoSize = True
214 BorderSpacing.Left = 186
215 BorderSpacing.Top = 3
216 EdgeBorders = []
217 EdgeInner = esNone
218 EdgeOuter = esNone
219 Images = Core.ImageListSmall
220 ParentFont = False
221 ParentShowHint = False
222 ShowHint = True
223 TabOrder = 1
224 Transparent = True
225 object ToolButton2: TToolButton
226 Left = 1
227 Top = 0
228 Action = AShowAcronyms
229 end
230 object ToolButton3: TToolButton
231 Left = 36
232 Top = 0
233 Action = AShowCategories
234 end
235 object ToolButton5: TToolButton
236 Left = 71
237 Top = 0
238 Action = AShowImportSources
239 end
240 object ToolButton4: TToolButton
241 Left = 106
242 Top = 0
243 Action = AShowImportFormats
244 end
245 end
246 object ToolBarOther: TToolBar
247 AnchorSideLeft.Control = CoolBar1
248 AnchorSideTop.Control = CoolBar1
249 Left = 337
250 Height = 33
251 Top = 5
252 Width = 71
253 Align = alNone
254 AutoSize = True
255 BorderSpacing.Left = 335
256 BorderSpacing.Top = 3
257 EdgeBorders = []
258 EdgeInner = esNone
259 EdgeOuter = esNone
260 Images = Core.ImageListSmall
261 ParentFont = False
262 ParentShowHint = False
263 ShowHint = True
264 TabOrder = 2
265 Transparent = True
266 object ToolButton11: TToolButton
267 Left = 36
268 Top = 0
269 Action = ASettings
270 end
271 object ToolButton9: TToolButton
272 Left = 1
273 Top = 0
274 Action = AProcessImports
275 end
276 end
277 object ToolBarFilter: TToolBar
278 AnchorSideLeft.Control = CoolBar1
279 AnchorSideTop.Control = CoolBar1
280 Left = 428
281 Height = 33
282 Top = 5
283 Width = 106
284 Align = alNone
285 AutoSize = True
286 BorderSpacing.Left = 426
287 BorderSpacing.Top = 3
288 EdgeBorders = []
289 EdgeInner = esNone
290 EdgeOuter = esNone
291 Images = Core.ImageListSmall
292 ParentFont = False
293 ParentShowHint = False
294 ShowHint = True
295 TabOrder = 3
296 Transparent = True
297 object ToolButton16: TToolButton
298 Left = 1
299 Top = 0
300 Action = AFilterSameLength
301 Style = tbsCheck
302 end
303 object ToolButton13: TToolButton
304 Left = 36
305 Top = 0
306 Action = AFilterSameLetterCase
307 Style = tbsCheck
308 end
309 object ToolButton8: TToolButton
310 Left = 71
311 Top = 0
312 Action = AFilterEnabledCategories
313 Style = tbsCheck
314 end
315 end
316 end
317 object StatusBar1: TStatusBar
318 Left = 0
319 Height = 28
320 Top = 617
321 Width = 1106
322 Panels = <
323 item
324 Width = 300
325 end
326 item
327 Width = 300
328 end>
329 ParentFont = False
330 SimplePanel = False
331 end
332 object ActionList1: TActionList
333 Images = Core.ImageListSmall
334 Left = 708
335 Top = 288
336 object AExit: TAction
337 Category = 'File'
338 Caption = 'Exit'
339 ImageIndex = 2
340 OnExecute = AExitExecute
341 end
342 object AShow: TAction
343 Caption = 'Show'
344 OnExecute = AShowExecute
345 end
346 object AHide: TAction
347 Caption = 'Hide'
348 OnExecute = AHideExecute
349 end
350 object AImport: TAction
351 Category = 'Tools'
352 Caption = 'Import'
353 OnExecute = AImportExecute
354 end
355 object AFileOpen: TAction
356 Category = 'File'
357 Caption = 'Open'
358 ImageIndex = 8
359 OnExecute = AFileOpenExecute
360 ShortCut = 16463
361 end
362 object AFileNew: TAction
363 Category = 'File'
364 Caption = 'New'
365 ImageIndex = 16
366 OnExecute = AFileNewExecute
367 ShortCut = 16462
368 end
369 object AFileSave: TAction
370 Category = 'File'
371 Caption = 'Save'
372 ImageIndex = 10
373 OnExecute = AFileSaveExecute
374 ShortCut = 16467
375 end
376 object AFileClose: TAction
377 Category = 'File'
378 Caption = 'Close'
379 ImageIndex = 12
380 OnExecute = AFileCloseExecute
381 end
382 object AFileSaveAs: TAction
383 Category = 'File'
384 Caption = 'Save as...'
385 ImageIndex = 10
386 OnExecute = AFileSaveAsExecute
387 ShortCut = 24659
388 end
389 object ASettings: TAction
390 Category = 'Tools'
391 Caption = 'Settings'
392 ImageIndex = 6
393 OnExecute = ASettingsExecute
394 ShortCut = 121
395 end
396 object AShowCategories: TAction
397 Category = 'View'
398 Caption = 'Categories'
399 ImageIndex = 11
400 OnExecute = AShowCategoriesExecute
401 ShortCut = 116
402 end
403 object AShowAcronyms: TAction
404 Category = 'View'
405 Caption = 'Acronyms'
406 ImageIndex = 15
407 OnExecute = AShowAcronymsExecute
408 ShortCut = 115
409 end
410 object AShowImportSources: TAction
411 Category = 'View'
412 Caption = 'Import sources'
413 ImageIndex = 13
414 OnExecute = AShowImportSourcesExecute
415 ShortCut = 117
416 end
417 object AShowAbout: TAction
418 Category = 'Help'
419 Caption = 'About'
420 ImageIndex = 7
421 OnExecute = AShowAboutExecute
422 end
423 object AShowImportFormats: TAction
424 Category = 'View'
425 Caption = 'Import formats'
426 ImageIndex = 14
427 OnExecute = AShowImportFormatsExecute
428 ShortCut = 118
429 end
430 object AProcessImports: TAction
431 Category = 'Tools'
432 Caption = 'Process imports'
433 ImageIndex = 5
434 OnExecute = AProcessImportsExecute
435 ShortCut = 119
436 end
437 object AExport: TAction
438 Category = 'Tools'
439 Caption = 'Export'
440 OnExecute = AExportExecute
441 end
442 object AFilterSameLength: TAction
443 AutoCheck = True
444 Caption = 'Same length'
445 ImageIndex = 18
446 OnExecute = AFilterSameLengthExecute
447 end
448 object AFilterSameLetterCase: TAction
449 AutoCheck = True
450 Caption = 'Same letter case'
451 ImageIndex = 17
452 OnExecute = AFilterSameLetterCaseExecute
453 end
454 object AFilterEnabledCategories: TAction
455 AutoCheck = True
456 Caption = 'Enabled categories'
457 ImageIndex = 19
458 OnExecute = AFilterEnabledCategoriesExecute
459 end
460 object AFilterShowItemsWithoutFilter: TAction
461 AutoCheck = True
462 Caption = 'Show items without filter'
463 OnExecute = AFilterShowItemsWithoutFilterExecute
464 end
465 object AManageAcronym: TAction
466 Caption = 'Manage acronym'
467 OnExecute = AManageAcronymExecute
468 end
469 object ADocumentCheck: TAction
470 Category = 'Tools'
471 Caption = 'Document check'
472 ImageIndex = 20
473 OnExecute = ADocumentCheckExecute
474 end
475 object AShowKeyShortCuts: TAction
476 Category = 'Help'
477 Caption = 'Key shortcuts'
478 ImageIndex = 21
479 OnExecute = AShowKeyShortcutsExecute
480 end
481 object AFullScreen: TAction
482 Category = 'View'
483 Caption = 'Full screen'
484 ImageIndex = 22
485 OnExecute = AFullScreenExecute
486 ShortCut = 122
487 end
488 end
489 object MainMenu1: TMainMenu
490 Images = Core.ImageListSmall
491 Left = 712
492 Top = 204
493 object MenuItem8: TMenuItem
494 Caption = 'File'
495 object MenuItem10: TMenuItem
496 Action = AFileNew
497 end
498 object MenuItem11: TMenuItem
499 Action = AFileOpen
500 end
501 object MenuItemOpenRecent: TMenuItem
502 Caption = 'Open recent'
503 end
504 object MenuItem12: TMenuItem
505 Action = AFileSave
506 end
507 object MenuItem13: TMenuItem
508 Action = AFileSaveAs
509 end
510 object MenuItem14: TMenuItem
511 Action = AFileClose
512 end
513 object MenuItem15: TMenuItem
514 Caption = '-'
515 end
516 object MenuItem9: TMenuItem
517 Action = AExit
518 end
519 end
520 object MenuItem20: TMenuItem
521 Caption = 'View'
522 object MenuItem22: TMenuItem
523 Action = AShowAcronyms
524 end
525 object MenuItem21: TMenuItem
526 Action = AShowCategories
527 end
528 object MenuItem4: TMenuItem
529 Action = AShowImportSources
530 end
531 object MenuItem7: TMenuItem
532 Action = AShowImportFormats
533 end
534 object MenuItem24: TMenuItem
535 Caption = '-'
536 end
537 object MenuItem29: TMenuItem
538 Action = AFullScreen
539 end
540 object MenuItemToolbar: TMenuItem
541 Caption = 'Toolbar'
542 OnClick = MenuItemToolbarClick
543 end
544 object MenuItemParam: TMenuItem
545 Caption = 'Filter parameters'
546 OnClick = MenuItemParamClick
547 end
548 object MenuItemStatusBar: TMenuItem
549 Caption = 'Status bar'
550 OnClick = MenuItemStatusBarClick
551 end
552 end
553 object MenuItem16: TMenuItem
554 Caption = 'Tools'
555 object MenuItem18: TMenuItem
556 Action = ASettings
557 end
558 object MenuItem2: TMenuItem
559 Caption = '-'
560 end
561 object MenuItem17: TMenuItem
562 Action = AImport
563 end
564 object MenuItem25: TMenuItem
565 Action = AExport
566 end
567 object MenuItem23: TMenuItem
568 Action = AProcessImports
569 end
570 object MenuItem3: TMenuItem
571 Action = ADocumentCheck
572 end
573 end
574 object MenuItem5: TMenuItem
575 Caption = 'Help'
576 object MenuItem28: TMenuItem
577 Action = AShowKeyShortCuts
578 end
579 object MenuItem6: TMenuItem
580 Action = AShowAbout
581 end
582 end
583 end
584 object OpenDialog1: TOpenDialog
585 DefaultExt = '.adp'
586 Left = 120
587 Top = 312
588 end
589 object SaveDialog1: TSaveDialog
590 DefaultExt = '.adp'
591 Filter = 'Acronym Decoder project (.adp)|*.adp|All files|*.*'
592 Left = 120
593 Top = 216
594 end
595 object LastOpenedList1: TLastOpenedList
596 MaxCount = 10
597 OnChange = LastOpenedList1Change
598 Left = 396
599 Top = 360
600 end
601 object ListViewSort1: TListViewSort
602 ListView = ListViewAcronyms
603 OnCompareItem = ListViewSort1CompareItem
604 OnFilter = ListViewSort1Filter
605 OnColumnWidthChanged = ListViewSort1ColumnWidthChanged
606 Column = 2
607 Order = soDown
608 Left = 708
609 Top = 384
610 end
611 object PopupMenuOpenRecent: TPopupMenu
612 Images = Core.ImageListSmall
613 Left = 120
614 Top = 420
615 end
616 object PopupMenuFilter: TPopupMenu
617 Left = 416
618 Top = 217
619 object MenuItem1: TMenuItem
620 Action = AManageAcronym
621 end
622 object N1: TMenuItem
623 Caption = '-'
624 end
625 object MenuItem26: TMenuItem
626 Action = AFilterSameLength
627 AutoCheck = True
628 end
629 object MenuItem27: TMenuItem
630 Action = AFilterSameLetterCase
631 AutoCheck = True
632 end
633 object MenuItem19: TMenuItem
634 Action = AFilterEnabledCategories
635 AutoCheck = True
636 end
637 object MenuItemShowItemsWithoutFilter: TMenuItem
638 Action = AFilterShowItemsWithoutFilter
639 AutoCheck = True
640 end
641 end
642 object JobProgressView1: TJobProgressView
643 OwnerDraw = False
644 ShowDelay = 0
645 AutoClose = True
646 Left = 708
647 Top = 464
648 end
649end
Note: See TracBrowser for help on using the repository browser.