source: trunk/Forms/UFormMain.lfm@ 209

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