Changeset 110 for branches/generator/Forms/UFormRule.pas

Timestamp:

Aug 8, 2017, 11:15:41 PM (7 years ago)

Author:

chronos

Message:

• Added: Rule items can be managed.
• Added: Show BNF syntax on main form.

File:

• branches/generator/Forms/UFormRule.pas (modified) (5 diffs)

branches/generator/Forms/UFormRule.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  URules;
+  ComCtrls, ActnList, Menus, URules;
 
 type
@@ -14 +14 @@
 
   TFormRule = class(TForm)
+    AAdd: TAction;
+    AModify: TAction;
+    ARemove: TAction;
+    ActionList1: TActionList;
     ButtonOk: TButton;
     ButtonCancel: TButton;
     EditName: TEdit;
     Label1: TLabel;
+    ListView: TListView;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    PopupMenu1: TPopupMenu;
+    procedure AAddExecute(Sender: TObject);
+    procedure AModifyExecute(Sender: TObject);
+    procedure ARemoveExecute(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure ListViewData(Sender: TObject; Item: TListItem);
+    procedure ListViewDblClick(Sender: TObject);
+    procedure ListViewKeyPress(Sender: TObject; var Key: char);
+    procedure ListViewSelectItem(Sender: TObject; Item: TListItem;
+      Selected: Boolean);
   private
     { private declarations }
   public
+    RuleItems: TRuleItems;
+    procedure UpdateInterface;
+    procedure ReloadList;
     procedure LoadData(Rule: TRule);
     procedure SaveData(Rule: TRule);
@@ -29 +49 @@
   FormRule: TFormRule;
 
+
 implementation
 
 {$R *.lfm}
+
+uses
+  UFormRuleItem;
 
 { TFormRule }
@@ -38 +62 @@
 begin
   EditName.SetFocus;
+  ReloadList;
+  UpdateInterface;
+end;
+
+procedure TFormRule.ListViewData(Sender: TObject; Item: TListItem);
+begin
+  if (Item.Index >= 0) and (Item.Index < RuleItems.Count) then begin
+    Item.Caption := RuleItems[Item.Index].Name;
+    Item.Data := RuleItems[Item.Index];
+  end;
+end;
+
+procedure TFormRule.ListViewDblClick(Sender: TObject);
+begin
+  AModify.Execute;
+end;
+
+procedure TFormRule.ListViewKeyPress(Sender: TObject; var Key: char);
+begin
+  if Key = #13 then AModify.Execute;
+end;
+
+procedure TFormRule.ListViewSelectItem(Sender: TObject; Item: TListItem;
+  Selected: Boolean);
+begin
+  UpdateInterface;
+end;
+
+procedure TFormRule.AAddExecute(Sender: TObject);
+var
+  NewRuleItem: TRuleItem;
+begin
+  NewRuleItem := TRuleItem.Create;
+  FormRuleItem.LoadData(NewRuleItem);
+  if FormRuleItem.ShowModal = mrOk then begin
+    FormRuleItem.SaveData(NewRuleItem);
+    RuleItems.Add(NewRuleItem);
+    ReloadList;
+  end else FreeAndNil(NewRuleItem);
+end;
+
+procedure TFormRule.AModifyExecute(Sender: TObject);
+var
+  RuleItem: TRuleItem;
+begin
+  RuleItem := TRuleItem(ListView.Selected.Data);
+  FormRuleItem.LoadData(RuleItem);
+  if FormRuleItem.ShowModal = mrOk then begin
+    FormRuleItem.SaveData(RuleItem);
+    ReloadList;
+  end;
+end;
+
+procedure TFormRule.ARemoveExecute(Sender: TObject);
+var
+  Item: TListItem;
+begin
+  for Item in ListView.Items do
+  if Item.Selected then
+    RuleItems.Remove(TRuleItem(Item.Data));
+  ReloadList;
+end;
+
+procedure TFormRule.UpdateInterface;
+begin
+  AModify.Enabled := Assigned(ListView.Selected);
+  ARemove.Enabled := Assigned(ListView.Selected);
+end;
+
+procedure TFormRule.ReloadList;
+begin
+  ListView.Items.Count := RuleItems.Count;
+  ListView.Refresh;
 end;
 
@@ -43 +140 @@
 begin
   EditName.Text := Rule.Name;
+  RuleItems := Rule.Items;
 end;