Changeset 208 for trunk/Forms


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.
Location:
trunk/Forms
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormImport.lfm

    r203 r208  
    11object FormImport: TFormImport
    22  Left = 575
    3   Height = 507
     3  Height = 608
    44  Top = 256
    5   Width = 652
     5  Width = 782
    66  Caption = 'Import'
    7   ClientHeight = 507
    8   ClientWidth = 652
    9   DesignTimePPI = 120
     7  ClientHeight = 608
     8  ClientWidth = 782
     9  DesignTimePPI = 144
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
    1212  OnShow = FormShow
    1313  Position = poScreenCenter
    14   LCLVersion = '2.0.2.0'
     14  LCLVersion = '2.0.12.0'
    1515  object ButtonProcess: TButton
    16     Left = 16
    17     Height = 25
    18     Top = 8
    19     Width = 107
     16    Left = 19
     17    Height = 30
     18    Top = 10
     19    Width = 128
    2020    Caption = 'Process'
    2121    OnClick = ButtonProcessClick
     22    ParentFont = False
    2223    TabOrder = 0
    2324  end
    2425  object Memo1: TMemo
    25     Left = 8
    26     Height = 458
    27     Top = 40
    28     Width = 638
     26    Left = 10
     27    Height = 549
     28    Top = 48
     29    Width = 765
    2930    Anchors = [akTop, akLeft, akRight, akBottom]
     31    ParentFont = False
    3032    ScrollBars = ssAutoBoth
    3133    TabOrder = 3
    3234  end
    3335  object ComboBoxDataFormat: TComboBox
    34     Left = 264
    35     Height = 28
    36     Top = 5
    37     Width = 140
    38     ItemHeight = 20
     36    Left = 317
     37    Height = 38
     38    Top = 6
     39    Width = 168
     40    ItemHeight = 0
    3941    ItemIndex = 0
    4042    Items.Strings = (
    … …  
    4244      'MediaWiki'
    4345    )
     46    ParentFont = False
    4447    Style = csDropDownList
    4548    TabOrder = 1
    … …  
    4750  end
    4851  object Label1: TLabel
    49     Left = 153
    50     Height = 20
    51     Top = 9
    52     Width = 84
     52    Left = 184
     53    Height = 24
     54    Top = 11
     55    Width = 106
    5356    Caption = 'Data format:'
    5457    ParentColor = False
     58    ParentFont = False
    5559  end
    5660  object ButtonLoadFromFile: TButton
    57     Left = 504
    58     Height = 25
    59     Top = 8
    60     Width = 139
     61    Left = 604
     62    Height = 30
     63    Top = 10
     64    Width = 167
    6165    Anchors = [akTop, akRight]
    6266    Caption = 'Load from file'
    6367    OnClick = ButtonLoadFromFileClick
     68    ParentFont = False
    6469    TabOrder = 2
    6570  end
    6671  object OpenDialog1: TOpenDialog
    67     left = 331
    68     top = 187
     72    Left = 397
     73    Top = 224
    6974  end
    7075end

  • trunk/Forms/UFormImport.pas

    r207 r208  
    8888  Meaning: TAcronymMeaning;
    8989begin
     90  AcronymName := '';
    9091  AddedCount := 0;
    9192  for I := 0 to Memo1.Lines.Count - 1 do begin

  • 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

  • trunk/Forms/UFormMain.lrj

    r207 r208  
    2424{"hash":187812613,"name":"tformmain.afiltersamelettercase.caption","sourcebytes":[83,97,109,101,32,108,101,116,116,101,114,32,99,97,115,101],"value":"Same letter case"},
    2525{"hash":75787843,"name":"tformmain.afilterenabledcategories.caption","sourcebytes":[69,110,97,98,108,101,100,32,99,97,116,101,103,111,114,105,101,115],"value":"Enabled categories"},
     26{"hash":87266866,"name":"tformmain.afiltershowitemswithoutfilter.caption","sourcebytes":[83,104,111,119,32,105,116,101,109,115,32,119,105,116,104,111,117,116,32,102,105,108,116,101,114],"value":"Show items without filter"},
    2627{"hash":267425709,"name":"tformmain.amanageacronym.caption","sourcebytes":[77,97,110,97,103,101,32,97,99,114,111,110,121,109],"value":"Manage acronym"},
    2728{"hash":63286139,"name":"tformmain.adocumentcheck.caption","sourcebytes":[68,111,99,117,109,101,110,116,32,99,104,101,99,107],"value":"Document check"},
    … …  
    3334{"hash":197181954,"name":"tformmain.menuitemstatusbar.caption","sourcebytes":[83,116,97,116,117,115,32,98,97,114],"value":"Status bar"},
    3435{"hash":5989939,"name":"tformmain.menuitem16.caption","sourcebytes":[84,111,111,108,115],"value":"Tools"},
    35 {"hash":322608,"name":"tformmain.menuitem5.caption","sourcebytes":[72,101,108,112],"value":"Help"},
    36 {"hash":87266866,"name":"tformmain.menuitemshowitemswithoutfilter.caption","sourcebytes":[83,104,111,119,32,105,116,101,109,115,32,119,105,116,104,111,117,116,32,102,105,108,116,101,114],"value":"Show items without filter"}
     36{"hash":322608,"name":"tformmain.menuitem5.caption","sourcebytes":[72,101,108,112],"value":"Help"}
    3737]}

  • trunk/Forms/UFormMain.pas

    r207 r208  
    1717  TFormMain = class(TForm)
    1818    AboutDialog1: TAboutDialog;
     19    AFilterShowItemsWithoutFilter: TAction;
    1920    ADocumentCheck: TAction;
    2021    AFilterEnabledCategories: TAction;
    … …  
    4142    ActionList1: TActionList;
    4243    CheckBoxEnabledCategories: TCheckBox;
     44    CheckBoxShowItemsWithoutFilter: TCheckBox;
    4345    CheckBoxExactLength: TCheckBox;
    4446    CheckBoxCaseSensitive: TCheckBox;
    … …  
    5052    MainMenu1: TMainMenu;
    5153    MenuItem1: TMenuItem;
     54    MenuItem19: TMenuItem;
    5255    MenuItem2: TMenuItem;
     56    MenuItem26: TMenuItem;
     57    MenuItem27: TMenuItem;
     58    N1: TMenuItem;
    5359    MenuItem3: TMenuItem;
    5460    MenuItemShowItemsWithoutFilter: TMenuItem;
    … …  
    113119    procedure AFilterSameLetterCaseExecute(Sender: TObject);
    114120    procedure AFilterSameLengthExecute(Sender: TObject);
     121    procedure AFilterShowItemsWithoutFilterExecute(Sender: TObject);
    115122    procedure AHideExecute(Sender: TObject);
    116123    procedure AImportExecute(Sender: TObject);
    … …  
    142149    procedure ListViewSort1Filter(ListViewSort: TListViewSort);
    143150    procedure MenuItemParamClick(Sender: TObject);
    144     procedure MenuItemShowItemsWithoutFilterClick(Sender: TObject);
    145151    procedure MenuItemStatusBarClick(Sender: TObject);
    146152    procedure MenuItemToolbarClick(Sender: TObject);
    … …  
    181187uses
    182188  UFormImport, UFormSettings, UFormCategories, UFormAcronyms, UFormExport,
    183   UFormImportSources, UFormAbout, UFormImportFormats, UCore, UFormCheck;
     189  UFormImportSources, UFormImportFormats, UCore, UFormCheck;
    184190
    185191resourcestring
    … …  
    365371end;
    366372
     373procedure TFormMain.AFilterShowItemsWithoutFilterExecute(Sender: TObject);
     374begin
     375  UpdateAcronymsList;
     376end;
     377
    367378procedure TFormMain.AHideExecute(Sender: TObject);
    368379begin
    … …  
    586597end;
    587598
    588 procedure TFormMain.MenuItemShowItemsWithoutFilterClick(Sender: TObject);
    589 begin
    590   MenuItemShowItemsWithoutFilter.Checked :=
    591     not MenuItemShowItemsWithoutFilter.Checked;
    592   UpdateAcronymsList;
    593   UpdateInterface;
    594 end;
    595 
    596599procedure TFormMain.MenuItemStatusBarClick(Sender: TObject);
    597600begin
    … …  
    662665         with ListViewFilter1 do
    663666         if Visible and ((EnteredCount > 0) or ((EnteredCount = 0) and
    664          (MenuItemShowItemsWithoutFilter.Checked))) then begin
     667         (AFilterShowItemsWithoutFilter.Checked))) then begin
    665668           FoundCount := 0;
    666669           if TextEnteredColumn(0) and (FilterCell(StringGrid.Cells[0, 0],
    … …  
    768771    MenuItemStatusBar.Checked := ReadBoolWithDefault('StatusBarVisible', True);
    769772    MenuItemParam.Checked := ReadBoolWithDefault('FilterParamVisible', True);
    770     MenuItemShowItemsWithoutFilter.Checked :=
    771       ReadBoolWithDefault('ShowItemsWithoutFilter', False);
     773    AFilterShowItemsWithoutFilter.Checked :=
     774      ReadBoolWithDefault('ShowItemsWithoutFilter', True);
    772775  finally
    773776    Free;
    … …  
    799802    WriteBool('StatusBarVisible', MenuItemStatusBar.Checked);
    800803    WriteBool('FilterParamVisible', MenuItemParam.Checked);
    801     WriteBool('ShowItemsWithoutFilter', MenuItemShowItemsWithoutFilter.Checked);
     804    WriteBool('ShowItemsWithoutFilter', AFilterShowItemsWithoutFilter.Checked);
    802805  finally
    803806    Free;
Note: See TracChangeset for help on using the changeset viewer.