Changeset 27 for trunk/Forms/UFormImportFormat.pas

Timestamp:

Jun 7, 2016, 3:56:46 PM (8 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.

File:

• trunk/Forms/UFormImportFormat.pas (modified) (5 diffs)

trunk/Forms/UFormImportFormat.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  UAcronym;
+  ComCtrls, Menus, ActnList, UAcronym;
 
 type
@@ -14 +14 @@
 
   TFormImportFormat = class(TForm)
+    AAdd: TAction;
+    AMoveUp: TAction;
+    AMoveDown: TAction;
+    AModify: TAction;
+    ARemove: TAction;
+    ActionList1: TActionList;
     ButtonOk: TButton;
     ButtonCancel: TButton;
@@ -19 +25 @@
     EditBlockStart: TEdit;
     EditName: TEdit;
-    EditAcronymStart: TEdit;
-    EditAcronymEnd: TEdit;
-    EditMeaningStart: TEdit;
-    EditMeaningEnd: TEdit;
-    EditDescriptionStart: TEdit;
-    EditDescriptionEnd: TEdit;
     Label1: TLabel;
     Label2: TLabel;
-    Label3: TLabel;
-    Label4: TLabel;
-    Label5: TLabel;
-    Label6: TLabel;
-    Label7: TLabel;
     Label8: TLabel;
     Label9: TLabel;
+    ListViewItemRules: TListView;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    PopupMenu1: TPopupMenu;
+    procedure AAddExecute(Sender: TObject);
+    procedure AModifyExecute(Sender: TObject);
+    procedure AMoveDownExecute(Sender: TObject);
+    procedure AMoveUpExecute(Sender: TObject);
+    procedure ARemoveExecute(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure ListViewItemRulesData(Sender: TObject; Item: TListItem);
   private
     { private declarations }
   public
+    ImportFormat: TImportFormat;
     procedure Load(ImportFormat: TImportFormat);
     procedure Save(ImportFormat: TImportFormat);
+    procedure ReloadList;
   end;
 
@@ -44 +55 @@
   FormImportFormat: TFormImportFormat;
 
+
 implementation
+
+uses
+  UFormImportPattern;
 
 {$R *.lfm}
 
+resourcestring
+  SRemoveImportPattern = 'Remove import pattern';
+  SRemoveImportPatternQuery = 'Do you really want to remove selected import patterns?';
+
+
 { TFormImportFormat }
+
+procedure TFormImportFormat.AAddExecute(Sender: TObject);
+var
+  NewImportPattern: TImportPattern;
+begin
+  NewImportPattern := TImportPattern.Create;
+  FormImportPattern.Load(NewImportPattern);
+  if FormImportPattern.ShowModal = mrOk then begin
+    FormImportPattern.Save(NewImportPattern);
+    ImportFormat.ItemPatterns.Add(NewImportPattern);
+    NewImportPattern := nil;
+    ReloadList;
+  end;
+  if Assigned(NewImportPattern) then NewImportPattern.Free;
+end;
+
+procedure TFormImportFormat.AModifyExecute(Sender: TObject);
+var
+  NewImportPattern: TImportPattern;
+begin
+  if Assigned(ListViewItemRules.Selected) then begin
+    NewImportPattern := TImportPattern.Create;
+    NewImportPattern.Assign(ListViewItemRules.Selected.Data);
+    FormImportPattern.Load(NewImportPattern);
+    if FormImportPattern.ShowModal = mrOk then begin
+      FormImportPattern.Save(NewImportPattern);
+      TImportPattern(ListViewItemRules.Selected.Data).Assign(NewImportPattern);
+      ReloadList;
+    end;
+    if Assigned(NewImportPattern) then NewImportPattern.Free;
+  end;
+end;
+
+procedure TFormImportFormat.AMoveDownExecute(Sender: TObject);
+begin
+  if ListViewItemRules.Selected.Index < (ImportFormat.ItemPatterns.Count - 1) then
+  with ImportFormat do
+    ItemPatterns.Exchange(ListViewItemRules.Selected.Index,
+      ListViewItemRules.Selected.Index + 1);
+  ReloadList;
+end;
+
+procedure TFormImportFormat.AMoveUpExecute(Sender: TObject);
+begin
+  if ListViewItemRules.Selected.Index > 0 then
+  with ImportFormat do
+    ItemPatterns.Exchange(ListViewItemRules.Selected.Index,
+      ListViewItemRules.Selected.Index - 1);
+  ReloadList;
+end;
+
+procedure TFormImportFormat.ARemoveExecute(Sender: TObject);
+var
+  I: Integer;
+begin
+  if Assigned(ListViewItemRules.Selected) then begin
+    if MessageDlg(SRemoveImportPattern, SRemoveImportPatternQuery,
+    TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
+      for I := ListViewItemRules.Items.Count - 1 downto 0 do
+      if ListViewItemRules.Items[I].Selected then
+        ImportFormat.ItemPatterns.Remove(ListViewItemRules.Items[I].Data);
+      ReloadList;
+    end;
+  end;
+end;
+
+procedure TFormImportFormat.FormShow(Sender: TObject);
+begin
+  ReloadList;
+end;
+
+procedure TFormImportFormat.ListViewItemRulesData(Sender: TObject;
+  Item: TListItem);
+begin
+  if Item.Index < ImportFormat.ItemPatterns.Count then
+  with TImportPattern(ImportFormat.ItemPatterns[Item.Index]) do begin
+    Item.Caption := StartString;
+    Item.SubItems.Add(EndString);
+    Item.SubItems.Add(ImportPatternFlagString[Flag]);
+    Item.SubItems.Add(ImportVariableString[Variable]);
+    Item.Data := ImportFormat.ItemPatterns[Item.Index];
+  end;
+end;
 
 procedure TFormImportFormat.Load(ImportFormat: TImportFormat);
 begin
+  Self.ImportFormat := ImportFormat;
   EditName.Text := ImportFormat.Name;
   EditBlockStart.Text := ImportFormat.Block.StartString;
   EditBlockEnd.Text := ImportFormat.Block.EndString;
-  EditAcronymStart.Text := ImportFormat.Acronym.StartString;
-  EditAcronymEnd.Text := ImportFormat.Acronym.EndString;
-  EditMeaningStart.Text := ImportFormat.Meaning.StartString;
-  EditMeaningEnd.Text := ImportFormat.Meaning.EndString;
-  EditDescriptionStart.Text := ImportFormat.Description.StartString;
-  EditDescriptionEnd.Text := ImportFormat.Description.EndString;
+  ReloadList;
 end;
 
@@ -68 +167 @@
   ImportFormat.Block.StartString := EditBlockStart.Text;
   ImportFormat.Block.EndString := EditBlockEnd.Text;
-  ImportFormat.Acronym.StartString := EditAcronymStart.Text;
-  ImportFormat.Acronym.EndString := EditAcronymEnd.Text;
-  ImportFormat.Meaning.StartString := EditMeaningStart.Text;
-  ImportFormat.Meaning.EndString := EditMeaningEnd.Text;
-  ImportFormat.Description.StartString := EditDescriptionStart.Text;
-  ImportFormat.Description.EndString := EditDescriptionEnd.Text;
+end;
+
+procedure TFormImportFormat.ReloadList;
+begin
+  ListViewItemRules.Items.Count := ImportFormat.ItemPatterns.Count;
+  ListViewItemRules.Refresh;
 end;