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

Timestamp:

Aug 9, 2017, 10:14:31 PM (7 years ago)

Author:

chronos

Message:

• Added: Allow to move up/down rule items.
• Fixed: Store rule operator to XML file.

File:

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

branches/generator/Forms/UFormRule.pas

@@ -15 +15 @@
   TFormRule = class(TForm)
     AAdd: TAction;
+    AMoveUp: TAction;
+    AMoveDown: TAction;
     AModify: TAction;
     ARemove: TAction;
@@ -28 +30 @@
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
     PopupMenu1: TPopupMenu;
     ToolBar1: TToolBar;
@@ -33 +37 @@
     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);
     procedure FormShow(Sender: TObject);
@@ -123 +131 @@
 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
@@ -137 +161 @@
   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;