Changeset 113 for branches/generator/Forms

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.

Location:

branches/generator/Forms

Files:

• UFormRule.lfm (modified) (3 diffs)
• UFormRule.pas (modified) (5 diffs)

branches/generator/Forms/UFormRule.lfm

@@ -114 +114 @@
       Action = ARemove
     end
+    object ToolButton4: TToolButton
+      Left = 70
+      Top = 2
+      Action = AMoveUp
+    end
+    object ToolButton5: TToolButton
+      Left = 93
+      Top = 2
+      Action = AMoveDown
+    end
   end
   object ActionList1: TActionList
@@ -134 +144 @@
       OnExecute = ARemoveExecute
     end
+    object AMoveUp: TAction
+      Caption = 'Move up'
+      ImageIndex = 7
+      OnExecute = AMoveUpExecute
+    end
+    object AMoveDown: TAction
+      Caption = 'Move down'
+      ImageIndex = 6
+      OnExecute = AMoveDownExecute
+    end
   end
   object PopupMenu1: TPopupMenu
     Images = Core.ImageList1
     left = 118
-    top = 185
+    top = 187
     object MenuItem1: TMenuItem
       Action = AAdd
@@ -148 +168 @@
       Action = ARemove
     end
+    object MenuItem4: TMenuItem
+      Action = AMoveUp
+    end
+    object MenuItem5: TMenuItem
+      Action = AMoveDown
+    end
   end
 end

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;