source: trunk/Forms/FormMain.lfm

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