Ignore:
Timestamp:
Sep 20, 2021, 11:36:06 AM (3 years ago)
Author:
chronos
Message:
  • Modified: Show items without active filter text active by default to show supported acronyms immediatelly after application start.
  • Added: Snap package definition file.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMain.lfm

    r207 r208  
    11object FormMain: TFormMain
    2   Left = 395
    3   Height = 722
    4   Top = 261
    5   Width = 1016
     2  Left = 417
     3  Height = 747
     4  Top = 453
     5  Width = 1106
    66  Caption = 'Acronym Decoder'
    7   ClientHeight = 688
    8   ClientWidth = 1016
     7  ClientHeight = 713
     8  ClientWidth = 1106
    99  DesignTimePPI = 144
    1010  Menu = MainMenu1
    … …  
    1919  object PanelMain: TPanel
    2020    Left = 0
    21     Height = 580
     21    Height = 605
    2222    Top = 81
    23     Width = 1016
     23    Width = 1106
    2424    Align = alClient
    2525    BevelOuter = bvNone
    26     ClientHeight = 580
    27     ClientWidth = 1016
     26    ClientHeight = 605
     27    ClientWidth = 1106
    2828    ParentFont = False
    2929    TabOrder = 0
    … …  
    3232      Height = 46
    3333      Top = 5
    34       Width = 1005
     34      Width = 1095
    3535      OnChange = ListViewFilter1Change
    3636      Anchors = [akTop, akLeft, akRight]
    … …  
    3838    object ListViewAcronyms: TListView
    3939      Left = 5
    40       Height = 524
     40      Height = 549
    4141      Top = 50
    42       Width = 1005
     42      Width = 1095
    4343      Anchors = [akTop, akLeft, akRight, akBottom]
    4444      Columns = <     
    … …  
    7171    Height = 38
    7272    Top = 43
    73     Width = 1016
     73    Width = 1106
    7474    Align = alTop
    7575    BevelOuter = bvNone
    7676    ClientHeight = 38
    77     ClientWidth = 1016
     77    ClientWidth = 1106
    7878    ParentFont = False
    7979    TabOrder = 1
    8080    object CheckBoxExactLength: TCheckBox
    81       Left = 12
    82       Height = 30
    83       Top = 5
     81      Left = 8
     82      Height = 38
     83      Top = 0
    8484      Width = 132
    8585      Action = AFilterSameLength
     86      Align = alLeft
     87      BorderSpacing.Left = 8
    8688      ParentFont = False
    8789      TabOrder = 0
    8890    end
    8991    object CheckBoxCaseSensitive: TCheckBox
    90       Left = 240
    91       Height = 30
    92       Top = 5
     92      Left = 156
     93      Height = 38
     94      Top = 0
    9395      Width = 165
    9496      Action = AFilterSameLetterCase
     97      Align = alLeft
     98      BorderSpacing.Left = 16
    9599      ParentFont = False
    96100      TabOrder = 1
    97101    end
    98102    object CheckBoxEnabledCategories: TCheckBox
    99       Left = 540
    100       Height = 30
    101       Top = 5
     103      Left = 337
     104      Height = 38
     105      Top = 0
    102106      Width = 187
    103107      Action = AFilterEnabledCategories
     108      Align = alLeft
     109      BorderSpacing.Left = 16
    104110      ParentFont = False
    105111      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
    106123    end
    107124  end
    … …  
    110127    Height = 43
    111128    Top = 0
    112     Width = 1016
     129    Width = 1106
    113130    AutoSize = True
    114131    Bands = <   
    … …  
    301318    Left = 0
    302319    Height = 27
    303     Top = 661
    304     Width = 1016
     320    Top = 686
     321    Width = 1106
    305322    Panels = <   
    306323      item
    … …  
    426443      OnExecute = AFilterEnabledCategoriesExecute
    427444    end
     445    object AFilterShowItemsWithoutFilter: TAction
     446      AutoCheck = True
     447      Caption = 'Show items without filter'
     448      OnExecute = AFilterShowItemsWithoutFilterExecute
     449    end
    428450    object AManageAcronym: TAction
    429451      Caption = 'Manage acronym'
    … …  
    438460  object MainMenu1: TMainMenu
    439461    Images = Core.ImageList1
    440     Left = 708
     462    Left = 712
    441463    Top = 204
    442464    object MenuItem8: TMenuItem
    … …  
    558580  end
    559581  object PopupMenuFilter: TPopupMenu
    560     Left = 414
     582    Left = 416
    561583    Top = 217
    562584    object MenuItem1: TMenuItem
    563585      Action = AManageAcronym
    564586    end
     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
    565602    object MenuItemShowItemsWithoutFilter: TMenuItem
    566       Caption = 'Show items without filter'
    567       OnClick = MenuItemShowItemsWithoutFilterClick
     603      Action = AFilterShowItemsWithoutFilter
     604      AutoCheck = True
    568605    end
    569606  end
Note: See TracChangeset for help on using the changeset viewer.