Changeset 27 for trunk/Forms


Ignore:
Timestamp:
Jun 7, 2016, 3:56:46 PM (9 years ago)
Author:
chronos
Message:
  • Modified: Now import format supports multiple more generic rules for parsing source content.
  • Added: Show total and filtered number of acronyms in acronyms list.
Location:
trunk/Forms
Files:
3 added
7 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormAcronyms.lfm

    r22 r27  
    1111  object ListViewAcronyms: TListView
    1212    Left = 8
    13     Height = 510
     13    Height = 480
    1414    Top = 40
    1515    Width = 725
    … …  
    4747    OnChange = ListViewFilter1Change
    4848    Anchors = [akTop, akLeft, akRight]
     49  end
     50  object StatusBar1: TStatusBar
     51    Left = 0
     52    Height = 28
     53    Top = 530
     54    Width = 740
     55    Panels = <   
     56      item
     57        Width = 100
     58      end   
     59      item
     60        Width = 100
     61      end>
     62    SimplePanel = False
    4963  end
    5064  object ListViewSort1: TListViewSort

  • trunk/Forms/UFormAcronyms.pas

    r22 r27  
    2727    MenuItem7: TMenuItem;
    2828    PopupMenuAcronym: TPopupMenu;
     29    StatusBar1: TStatusBar;
    2930    procedure AAddExecute(Sender: TObject);
    3031    procedure AModifyExecute(Sender: TObject);
    … …  
    4142    procedure ListViewSort1Filter(ListViewSort: TListViewSort);
    4243  private
     44    MeaningCount: Integer;
    4345    procedure FilterList(List: TListObject);
    4446    procedure UpdateAcronymsList;
    … …  
    211213  FormMain.AcronymDb.Acronyms.Sort(AcronymComparer);
    212214  FormMain.AcronymDb.AssignToList(ListViewSort1.List);
     215  MeaningCount := ListViewSort1.List.Count;
    213216  FilterList(ListViewSort1.List);
    214217end;
    … …  
    247250  ListViewSort1.Refresh;
    248251  UpdateInterface;
     252  StatusBar1.Panels[0].Text := 'Total: ' + IntToStr(MeaningCount);
     253  StatusBar1.Panels[1].Text := 'Filtered: ' + IntToStr(ListViewAcronyms.Items.Count);
    249254end;
    250255

  • trunk/Forms/UFormImportFormat.lfm

    r25 r27  
    77  ClientHeight = 433
    88  ClientWidth = 664
    9   LCLVersion = '1.7'
     9  OnShow = FormShow
     10  LCLVersion = '1.6.0.4'
    1011  object ButtonOk: TButton
    1112    Left = 560
    … …  
    1314    Top = 384
    1415    Width = 75
     16    Anchors = [akRight, akBottom]
    1517    Caption = 'Ok'
    1618    ModalResult = 1
    … …  
    2224    Top = 384
    2325    Width = 75
     26    Anchors = [akRight, akBottom]
    2427    Caption = 'Cancel'
    2528    ModalResult = 2
    … …  
    2831  object Label1: TLabel
    2932    Left = 20
    30     Height = 22
     33    Height = 20
    3134    Top = 16
    32     Width = 49
     35    Width = 43
    3336    Caption = 'Name:'
    3437    ParentColor = False
    … …  
    3639  object EditName: TEdit
    3740    Left = 179
    38     Height = 32
     41    Height = 28
    3942    Top = 11
    4043    Width = 461
    … …  
    4245    TabOrder = 2
    4346  end
    44   object Label2: TLabel
     47  object Label8: TLabel
    4548    Left = 20
    46     Height = 22
    47     Top = 133
    48     Width = 112
    49     Caption = 'Acronym start:'
    50     ParentColor = False
    51   end
    52   object EditAcronymStart: TEdit
    53     Left = 179
    54     Height = 32
    55     Top = 128
    56     Width = 461
    57     Anchors = [akTop, akLeft, akRight]
    58     TabOrder = 3
    59   end
    60   object Label3: TLabel
    61     Left = 20
    62     Height = 22
    63     Top = 173
    64     Width = 105
    65     Caption = 'Acronym end:'
    66     ParentColor = False
    67   end
    68   object EditAcronymEnd: TEdit
    69     Left = 179
    70     Height = 32
    71     Top = 168
    72     Width = 461
    73     Anchors = [akTop, akLeft, akRight]
    74     TabOrder = 4
    75   end
    76   object Label4: TLabel
    77     Left = 20
    78     Height = 22
    79     Top = 213
    80     Width = 111
    81     Caption = 'Meaning start:'
    82     ParentColor = False
    83   end
    84   object EditMeaningStart: TEdit
    85     Left = 179
    86     Height = 32
    87     Top = 208
    88     Width = 461
    89     Anchors = [akTop, akLeft, akRight]
    90     TabOrder = 5
    91   end
    92   object Label5: TLabel
    93     Left = 20
    94     Height = 22
    95     Top = 253
    96     Width = 104
    97     Caption = 'Meaning end:'
    98     ParentColor = False
    99   end
    100   object EditMeaningEnd: TEdit
    101     Left = 179
    102     Height = 32
    103     Top = 248
    104     Width = 461
    105     Anchors = [akTop, akLeft, akRight]
    106     TabOrder = 6
    107   end
    108   object Label6: TLabel
    109     Left = 20
    110     Height = 22
    111     Top = 293
    112     Width = 132
    113     Caption = 'Description start:'
    114     ParentColor = False
    115   end
    116   object EditDescriptionStart: TEdit
    117     Left = 179
    118     Height = 32
    119     Top = 288
    120     Width = 461
    121     Anchors = [akTop, akLeft, akRight]
    122     TabOrder = 7
    123   end
    124   object Label7: TLabel
    125     Left = 20
    126     Height = 22
    127     Top = 333
    128     Width = 125
    129     Caption = 'Description end:'
    130     ParentColor = False
    131   end
    132   object EditDescriptionEnd: TEdit
    133     Left = 179
    134     Height = 32
    135     Top = 328
    136     Width = 461
    137     Anchors = [akTop, akLeft, akRight]
    138     TabOrder = 8
    139   end
    140   object Label8: TLabel
    141     Left = 24
    142     Height = 22
     49    Height = 20
    14350    Top = 53
    144     Width = 85
     51    Width = 72
    14552    Caption = 'Block start:'
    14653    ParentColor = False
    … …  
    14855  object EditBlockStart: TEdit
    14956    Left = 179
    150     Height = 32
     57    Height = 28
    15158    Top = 48
    15259    Width = 461
    15360    Anchors = [akTop, akLeft, akRight]
    154     TabOrder = 9
     61    TabOrder = 3
    15562  end
    15663  object Label9: TLabel
    157     Left = 24
    158     Height = 22
     64    Left = 20
     65    Height = 20
    15966    Top = 93
    160     Width = 78
     67    Width = 68
    16168    Caption = 'Block end:'
    16269    ParentColor = False
    … …  
    16471  object EditBlockEnd: TEdit
    16572    Left = 179
    166     Height = 32
     73    Height = 28
    16774    Top = 88
    16875    Width = 461
    16976    Anchors = [akTop, akLeft, akRight]
    170     TabOrder = 10
     77    TabOrder = 4
     78  end
     79  object ListViewItemRules: TListView
     80    Left = 20
     81    Height = 230
     82    Top = 144
     83    Width = 620
     84    Anchors = [akTop, akLeft, akRight, akBottom]
     85    Columns = <   
     86      item
     87        Caption = 'Start string'
     88        Width = 100
     89      end   
     90      item
     91        Caption = 'End string'
     92        Width = 100
     93      end   
     94      item
     95        Caption = 'Action'
     96        Width = 100
     97      end   
     98      item
     99        Caption = 'Variable'
     100        Width = 100
     101      end>
     102    OwnerData = True
     103    PopupMenu = PopupMenu1
     104    ReadOnly = True
     105    RowSelect = True
     106    TabOrder = 5
     107    ViewStyle = vsReport
     108    OnData = ListViewItemRulesData
     109    OnDblClick = AModifyExecute
     110  end
     111  object Label2: TLabel
     112    Left = 20
     113    Height = 20
     114    Top = 120
     115    Width = 68
     116    Caption = 'Item rules:'
     117    ParentColor = False
     118  end
     119  object PopupMenu1: TPopupMenu
     120    Images = FormMain.ImageList1
     121    left = 181
     122    top = 240
     123    object MenuItem1: TMenuItem
     124      Action = AAdd
     125    end
     126    object MenuItem2: TMenuItem
     127      Action = AModify
     128    end
     129    object MenuItem3: TMenuItem
     130      Action = ARemove
     131    end
     132    object MenuItem4: TMenuItem
     133      Action = AMoveUp
     134    end
     135    object MenuItem5: TMenuItem
     136      Action = AMoveDown
     137    end
     138  end
     139  object ActionList1: TActionList
     140    Images = FormMain.ImageList1
     141    left = 383
     142    top = 245
     143    object AAdd: TAction
     144      Caption = 'Add'
     145      OnExecute = AAddExecute
     146      ShortCut = 45
     147    end
     148    object AModify: TAction
     149      Caption = 'Modify'
     150      OnExecute = AModifyExecute
     151      ShortCut = 13
     152    end
     153    object ARemove: TAction
     154      Caption = 'Remove'
     155      OnExecute = ARemoveExecute
     156      ShortCut = 46
     157    end
     158    object AMoveUp: TAction
     159      Caption = 'Move up'
     160      OnExecute = AMoveUpExecute
     161    end
     162    object AMoveDown: TAction
     163      Caption = 'Move down'
     164      OnExecute = AMoveDownExecute
     165    end
    171166  end
    172167end

  • trunk/Forms/UFormImportFormat.lrt

    r25 r27  
    33TFORMIMPORTFORMAT.BUTTONCANCEL.CAPTION=Cancel
    44TFORMIMPORTFORMAT.LABEL1.CAPTION=Name:
    5 TFORMIMPORTFORMAT.LABEL2.CAPTION=Acronym start:
    6 TFORMIMPORTFORMAT.LABEL3.CAPTION=Acronym end:
    7 TFORMIMPORTFORMAT.LABEL4.CAPTION=Meaning start:
    8 TFORMIMPORTFORMAT.LABEL5.CAPTION=Meaning end:
    9 TFORMIMPORTFORMAT.LABEL6.CAPTION=Description start:
    10 TFORMIMPORTFORMAT.LABEL7.CAPTION=Description end:
    115TFORMIMPORTFORMAT.LABEL8.CAPTION=Block start:
    126TFORMIMPORTFORMAT.LABEL9.CAPTION=Block end:
     7TFORMIMPORTFORMAT.LISTVIEWITEMRULES.COLUMNS[0].CAPTION=Start string
     8TFORMIMPORTFORMAT.LISTVIEWITEMRULES.COLUMNS[1].CAPTION=End string
     9TFORMIMPORTFORMAT.LISTVIEWITEMRULES.COLUMNS[2].CAPTION=Action
     10TFORMIMPORTFORMAT.LISTVIEWITEMRULES.COLUMNS[3].CAPTION=Variable
     11TFORMIMPORTFORMAT.LABEL2.CAPTION=Item rules:
     12TFORMIMPORTFORMAT.AADD.CAPTION=Add
     13TFORMIMPORTFORMAT.AMODIFY.CAPTION=Modify
     14TFORMIMPORTFORMAT.AREMOVE.CAPTION=Remove
     15TFORMIMPORTFORMAT.AMOVEUP.CAPTION=Move up
     16TFORMIMPORTFORMAT.AMOVEDOWN.CAPTION=Move down

  • trunk/Forms/UFormImportFormat.pas

    r25 r27  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   UAcronym;
     9  ComCtrls, Menus, ActnList, UAcronym;
    1010
    1111type
    … …  
    1414
    1515  TFormImportFormat = class(TForm)
     16    AAdd: TAction;
     17    AMoveUp: TAction;
     18    AMoveDown: TAction;
     19    AModify: TAction;
     20    ARemove: TAction;
     21    ActionList1: TActionList;
    1622    ButtonOk: TButton;
    1723    ButtonCancel: TButton;
    … …  
    1925    EditBlockStart: TEdit;
    2026    EditName: TEdit;
    21     EditAcronymStart: TEdit;
    22     EditAcronymEnd: TEdit;
    23     EditMeaningStart: TEdit;
    24     EditMeaningEnd: TEdit;
    25     EditDescriptionStart: TEdit;
    26     EditDescriptionEnd: TEdit;
    2727    Label1: TLabel;
    2828    Label2: TLabel;
    29     Label3: TLabel;
    30     Label4: TLabel;
    31     Label5: TLabel;
    32     Label6: TLabel;
    33     Label7: TLabel;
    3429    Label8: TLabel;
    3530    Label9: TLabel;
     31    ListViewItemRules: TListView;
     32    MenuItem1: TMenuItem;
     33    MenuItem2: TMenuItem;
     34    MenuItem3: TMenuItem;
     35    MenuItem4: TMenuItem;
     36    MenuItem5: TMenuItem;
     37    PopupMenu1: TPopupMenu;
     38    procedure AAddExecute(Sender: TObject);
     39    procedure AModifyExecute(Sender: TObject);
     40    procedure AMoveDownExecute(Sender: TObject);
     41    procedure AMoveUpExecute(Sender: TObject);
     42    procedure ARemoveExecute(Sender: TObject);
     43    procedure FormShow(Sender: TObject);
     44    procedure ListViewItemRulesData(Sender: TObject; Item: TListItem);
    3645  private
    3746    { private declarations }
    3847  public
     48    ImportFormat: TImportFormat;
    3949    procedure Load(ImportFormat: TImportFormat);
    4050    procedure Save(ImportFormat: TImportFormat);
     51    procedure ReloadList;
    4152  end;
    4253
    … …  
    4455  FormImportFormat: TFormImportFormat;
    4556
     57
    4658implementation
     59
     60uses
     61  UFormImportPattern;
    4762
    4863{$R *.lfm}
    4964
     65resourcestring
     66  SRemoveImportPattern = 'Remove import pattern';
     67  SRemoveImportPatternQuery = 'Do you really want to remove selected import patterns?';
     68
     69
    5070{ TFormImportFormat }
     71
     72procedure TFormImportFormat.AAddExecute(Sender: TObject);
     73var
     74  NewImportPattern: TImportPattern;
     75begin
     76  NewImportPattern := TImportPattern.Create;
     77  FormImportPattern.Load(NewImportPattern);
     78  if FormImportPattern.ShowModal = mrOk then begin
     79    FormImportPattern.Save(NewImportPattern);
     80    ImportFormat.ItemPatterns.Add(NewImportPattern);
     81    NewImportPattern := nil;
     82    ReloadList;
     83  end;
     84  if Assigned(NewImportPattern) then NewImportPattern.Free;
     85end;
     86
     87procedure TFormImportFormat.AModifyExecute(Sender: TObject);
     88var
     89  NewImportPattern: TImportPattern;
     90begin
     91  if Assigned(ListViewItemRules.Selected) then begin
     92    NewImportPattern := TImportPattern.Create;
     93    NewImportPattern.Assign(ListViewItemRules.Selected.Data);
     94    FormImportPattern.Load(NewImportPattern);
     95    if FormImportPattern.ShowModal = mrOk then begin
     96      FormImportPattern.Save(NewImportPattern);
     97      TImportPattern(ListViewItemRules.Selected.Data).Assign(NewImportPattern);
     98      ReloadList;
     99    end;
     100    if Assigned(NewImportPattern) then NewImportPattern.Free;
     101  end;
     102end;
     103
     104procedure TFormImportFormat.AMoveDownExecute(Sender: TObject);
     105begin
     106  if ListViewItemRules.Selected.Index < (ImportFormat.ItemPatterns.Count - 1) then
     107  with ImportFormat do
     108    ItemPatterns.Exchange(ListViewItemRules.Selected.Index,
     109      ListViewItemRules.Selected.Index + 1);
     110  ReloadList;
     111end;
     112
     113procedure TFormImportFormat.AMoveUpExecute(Sender: TObject);
     114begin
     115  if ListViewItemRules.Selected.Index > 0 then
     116  with ImportFormat do
     117    ItemPatterns.Exchange(ListViewItemRules.Selected.Index,
     118      ListViewItemRules.Selected.Index - 1);
     119  ReloadList;
     120end;
     121
     122procedure TFormImportFormat.ARemoveExecute(Sender: TObject);
     123var
     124  I: Integer;
     125begin
     126  if Assigned(ListViewItemRules.Selected) then begin
     127    if MessageDlg(SRemoveImportPattern, SRemoveImportPatternQuery,
     128    TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
     129      for I := ListViewItemRules.Items.Count - 1 downto 0 do
     130      if ListViewItemRules.Items[I].Selected then
     131        ImportFormat.ItemPatterns.Remove(ListViewItemRules.Items[I].Data);
     132      ReloadList;
     133    end;
     134  end;
     135end;
     136
     137procedure TFormImportFormat.FormShow(Sender: TObject);
     138begin
     139  ReloadList;
     140end;
     141
     142procedure TFormImportFormat.ListViewItemRulesData(Sender: TObject;
     143  Item: TListItem);
     144begin
     145  if Item.Index < ImportFormat.ItemPatterns.Count then
     146  with TImportPattern(ImportFormat.ItemPatterns[Item.Index]) do begin
     147    Item.Caption := StartString;
     148    Item.SubItems.Add(EndString);
     149    Item.SubItems.Add(ImportPatternFlagString[Flag]);
     150    Item.SubItems.Add(ImportVariableString[Variable]);
     151    Item.Data := ImportFormat.ItemPatterns[Item.Index];
     152  end;
     153end;
    51154
    52155procedure TFormImportFormat.Load(ImportFormat: TImportFormat);
    53156begin
     157  Self.ImportFormat := ImportFormat;
    54158  EditName.Text := ImportFormat.Name;
    55159  EditBlockStart.Text := ImportFormat.Block.StartString;
    56160  EditBlockEnd.Text := ImportFormat.Block.EndString;
    57   EditAcronymStart.Text := ImportFormat.Acronym.StartString;
    58   EditAcronymEnd.Text := ImportFormat.Acronym.EndString;
    59   EditMeaningStart.Text := ImportFormat.Meaning.StartString;
    60   EditMeaningEnd.Text := ImportFormat.Meaning.EndString;
    61   EditDescriptionStart.Text := ImportFormat.Description.StartString;
    62   EditDescriptionEnd.Text := ImportFormat.Description.EndString;
     161  ReloadList;
    63162end;
    64163
    … …  
    68167  ImportFormat.Block.StartString := EditBlockStart.Text;
    69168  ImportFormat.Block.EndString := EditBlockEnd.Text;
    70   ImportFormat.Acronym.StartString := EditAcronymStart.Text;
    71   ImportFormat.Acronym.EndString := EditAcronymEnd.Text;
    72   ImportFormat.Meaning.StartString := EditMeaningStart.Text;
    73   ImportFormat.Meaning.EndString := EditMeaningEnd.Text;
    74   ImportFormat.Description.StartString := EditDescriptionStart.Text;
    75   ImportFormat.Description.EndString := EditDescriptionEnd.Text;
     169end;
     170
     171procedure TFormImportFormat.ReloadList;
     172begin
     173  ListViewItemRules.Items.Count := ImportFormat.ItemPatterns.Count;
     174  ListViewItemRules.Refresh;
    76175end;
    77176

  • trunk/Forms/UFormMain.lfm

    r22 r27  
    55  Width = 631
    66  Caption = 'Acronym Decoder'
    7   ClientHeight = 414
     7  ClientHeight = 421
    88  ClientWidth = 631
    99  Menu = MainMenu1
    … …  
    1616  object ListViewAcronyms: TListView
    1717    Left = 8
    18     Height = 333
     18    Height = 340
    1919    Top = 64
    2020    Width = 613
    … …  
    5151  object CheckBoxExactMath: TCheckBox
    5252    Left = 8
    53     Height = 28
     53    Height = 24
    5454    Top = 3
    55     Width = 129
     55    Width = 104
    5656    Caption = 'Exact match'
    5757    OnChange = CheckBoxExactMathChange

  • trunk/Forms/UFormMain.pas

    r26 r27  
    274274begin
    275275  FormAcronyms.ShowModal;
     276  UpdateInterface;
    276277end;
    277278
Note: See TracChangeset for help on using the changeset viewer.