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

Timestamp:

Nov 27, 2017, 10:04:52 AM (7 years ago)

Author:

chronos

Message:

• Modified: Rule items interface moved to separate unit UFormRuleItems.

File:

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

branches/generator/Forms/UFormRule.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, ActnList, Menus, URules;
+  ComCtrls, ActnList, Menus, URules, UFormRuleItems;
 
 type
@@ -14 +14 @@
 
   TFormRule = class(TForm)
-    AAdd: TAction;
-    AMoveUp: TAction;
-    AMoveDown: TAction;
-    AModify: TAction;
-    ARemove: TAction;
-    ActionList1: TActionList;
     ButtonOk: TButton;
     ButtonCancel: TButton;
-    ComboBox1: TComboBox;
     EditName: TEdit;
     Label1: TLabel;
-    Label2: TLabel;
-    ListView: TListView;
-    MenuItem1: TMenuItem;
-    MenuItem2: TMenuItem;
-    MenuItem3: TMenuItem;
-    MenuItem4: TMenuItem;
-    MenuItem5: TMenuItem;
-    PopupMenu1: TPopupMenu;
-    ToolBar1: TToolBar;
-    ToolButton1: TToolButton;
-    ToolButton2: TToolButton;
-    ToolButton3: TToolButton;
-    ToolButton4: TToolButton;
-    ToolButton5: TToolButton;
-    procedure AAddExecute(Sender: TObject);
-    procedure AModifyExecute(Sender: TObject);
-    procedure AMoveDownExecute(Sender: TObject);
-    procedure AMoveUpExecute(Sender: TObject);
-    procedure ARemoveExecute(Sender: TObject);
+    PageControl1: TPageControl;
+    TabSheet1: TTabSheet;
+    TabSheet2: TTabSheet;
+    procedure FormCreate(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 }
+    FormRuleItems: TFormRuleItems;
   public
     Rule: TRule;
-    procedure UpdateInterface;
-    procedure ReloadList;
     procedure LoadData(Rule: TRule);
     procedure SaveData(Rule: TRule);
@@ -76 +47 @@
 begin
   EditName.SetFocus;
-  ReloadList;
-  UpdateInterface;
 end;
 
-procedure TFormRule.ListViewData(Sender: TObject; Item: TListItem);
+procedure TFormRule.FormCreate(Sender: TObject);
 begin
-  if (Item.Index >= 0) and (Item.Index < Rule.Items.Count) then begin
-    Item.Caption := Rule.Items[Item.Index].GetBNF;
-    Item.Data := Rule.Items[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;
-  NewRuleItem.Grammer := Rule.Grammer;
-  FormRuleItem.LoadData(NewRuleItem);
-  if FormRuleItem.ShowModal = mrOk then begin
-    FormRuleItem.SaveData(NewRuleItem);
-    NewRuleItem.ParentRule := Rule;
-    Rule.Items.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.AMoveDownExecute(Sender: TObject);
-begin
-  Rule.Items.Move(ListView.Selected.Index, ListView.Selected.Index + 1);
-//  ShowMessage(IntToStr(ListView.ItemIndex));
-  ListView.ItemIndex := ListView.Selected.Index + 1;
-//  ShowMessage(IntToStr(ListView.ItemIndex));
-  ReloadList;
-end;
-
-procedure TFormRule.AMoveUpExecute(Sender: TObject);
-begin
-  Rule.Items.Move(ListView.Selected.Index, ListView.Selected.Index - 1);
-  ListView.ItemIndex := ListView.Selected.Index - 1;
-  ReloadList;
-end;
-
-procedure TFormRule.ARemoveExecute(Sender: TObject);
-var
-  Item: TListItem;
-begin
-  for Item in ListView.Items do
-  if Item.Selected then
-    Rule.Items.Remove(TRuleItem(Item.Data));
-  ReloadList;
-end;
-
-procedure TFormRule.UpdateInterface;
-begin
-  AModify.Enabled := Assigned(ListView.Selected);
-  ARemove.Enabled := Assigned(ListView.Selected);
-  AMoveUp.Enabled := Assigned(ListView.Selected) and (ListView.Selected.Index > 0);
-  AMoveDown.Enabled := Assigned(ListView.Selected) and (ListView.Selected.Index < (ListView.Items.Count - 1));
-end;
-
-procedure TFormRule.ReloadList;
-begin
-  ListView.Items.Count := Rule.Items.Count;
-  ListView.Refresh;
+  FormRuleItems := TFormRuleItems.Create(nil);
+  FormRuleItems.ManualDock(TabSheet1);
+  FormRuleItems.Align := alClient;
+  FormRuleItems.Show;
 end;
 
@@ -174 +60 @@
 begin
   Self.Rule := Rule;
-  ComboBox1.ItemIndex := Integer(Rule.RuleType);
   EditName.Text := Rule.Name;
-  Rule.Items := Rule.Items;
+  FormRuleItems.LoadData(Rule.Items);
 end;
 
 procedure TFormRule.SaveData(Rule: TRule);
 begin
-  Rule.RuleType := TRuleType(ComboBox1.ItemIndex);
   Rule.Name := EditName.Text;
+  FormRuleItems.SaveData(Rule.Items);
 end;