Merge pull request #31 from cybertec-postgresql/27_task_up_down

[+] implement moving tasks up and down in a chain, closes #27

Author: pashagolub

forms/fmmain.lfm

@@ -784,6 +784,7 @@ object fmMain: TfmMain
       DisableIfNoHandler = False
       Hint = 'Move selected task up'
       ImageIndex = 2
+      OnExecute = acMoveTaskUpExecute
       OnUpdate = acTaskToolbarUpdate
     end
     object acMoveTaskDown: TAction
@@ -792,6 +793,7 @@ object fmMain: TfmMain
       DisableIfNoHandler = False
       Hint = 'Move selected task down'
       ImageIndex = 1
+      OnExecute = acMoveTaskDownExecute
       OnUpdate = acTaskToolbarUpdate
     end
     object acTaskDelete: TAction

forms/fmmain.pas

@@ -73,6 +73,8 @@   TfmMain = class(TForm)
     procedure acChainPostExecute(Sender: TObject);
     procedure acChainRefreshExecute(Sender: TObject);
     procedure acChainToolbarUpdate(Sender: TObject);
+    procedure acMoveTaskDownExecute(Sender: TObject);
+    procedure acMoveTaskUpExecute(Sender: TObject);
     procedure acTaskAddExecute(Sender: TObject);
     procedure acTaskCancelExecute(Sender: TObject);
     procedure acTaskDeleteExecute(Sender: TObject);
@@ -235,6 +237,40 @@ procedure TfmMain.acChainToolbarUpdate(Sender: TObject);
   acChainRefresh.Enabled := CanModify;
 end;
 
+procedure TfmMain.acMoveTaskDownExecute(Sender: TObject);
+var idx: integer;
+begin
+  with dmPgEngine do
+  begin
+    gridTasks.BeginUpdate;
+    try
+      idx := qryTasks.RecNo;
+      MoveTaskDown(qryTasks.FieldByName('task_id').AsInteger);
+      qryTasks.Refresh;
+      qryTasks.RecNo := idx + 1;
+    finally
+      gridTasks.EndUpdate();
+    end;
+  end;
+end;
+
+procedure TfmMain.acMoveTaskUpExecute(Sender: TObject);
+var idx: integer;
+begin
+  with dmPgEngine do
+  begin
+    gridTasks.BeginUpdate;
+    try
+      idx := qryTasks.RecNo;
+      MoveTaskUp(qryTasks.FieldByName('task_id').AsInteger);
+      qryTasks.Refresh;
+      qryTasks.RecNo := idx - 1;
+    finally
+      gridTasks.EndUpdate();
+    end;
+  end;
+end;
+
 procedure TfmMain.acChainAddExecute(Sender: TObject);
 begin
   dmPgEngine.qryChains.Append;

udatamodule.pas

@@ -37,6 +37,8 @@   TdmPgEngine = class(TDataModule)
     function IsCronValueValid(const S: string): boolean;
     function IsConnected: boolean;
     function SelectSQL(const sql: string): string;
+    procedure MoveTaskUp(const ATaskID: integer);
+    procedure MoveTaskDown(const ATaskID: integer);
   end;
 
 var
@@ -205,4 +207,14 @@ function TdmPgEngine.SelectSQL(const sql: string): string;
   end;
 end;
 
+procedure TdmPgEngine.MoveTaskUp(const ATaskID: integer);
+begin
+  PQConn.ExecuteDirect(Format('SELECT timetable.move_task_up(%d)', [ATaskID]));
+end;
+
+procedure TdmPgEngine.MoveTaskDown(const ATaskID: integer);
+begin
+  PQConn.ExecuteDirect(Format('SELECT timetable.move_task_down(%d)', [ATaskID]));
+end;
+
 end.