Merge pull request #50 from cybertec-postgresql/29-implement-pop-up-editor-for-task-command

[+] implement pop-up editor for task command, resolves #29

Author: pashagolub

.github/workflows/build.yml

@@ -19,7 +19,7 @@ jobs:
       uses: gcarreno/setup-lazarus@v3.2
       with:
         lazarus-version: ${{ matrix.lazarus-versions }}
-        # include-packages: "Synapse 40.1"
+        with-cache: false
 
     - name: Build the application
       if: ${{ matrix.operating-system != 'macos-latest' }}

.github/workflows/daily-build.yml

@@ -27,7 +27,7 @@ jobs:
       uses: gcarreno/setup-lazarus@v3.2
       with:
         lazarus-version: ${{ matrix.lazarus-versions }}
-        # include-packages: "Synapse 40.1"
+        with-cache: false
 
     - name: Build the application
       if: ${{ matrix.operating-system != 'macos-latest' }}

.github/workflows/release.yml

@@ -20,7 +20,7 @@ jobs:
       uses: gcarreno/setup-lazarus@v3.2
       with:
         lazarus-version: ${{ matrix.lazarus-versions }}
-        # include-packages: "Synapse 40.1"
+        with-cache: false
 
     - name: Build the application
       if: ${{ matrix.operating-system != 'macos-latest' }}

forms/fmmain.lfm

@@ -9,7 +9,7 @@ object fmMain: TfmMain
   DesignTimePPI = 144
   Menu = menuMain
   OnCloseQuery = FormCloseQuery
-  LCLVersion = '2.2.0.4'
+  LCLVersion = '2.2.4.0'
   object pcEditors: TPageControl
     Left = 0
     Height = 1024
@@ -82,8 +82,6 @@ object fmMain: TfmMain
                 FieldName = 'live'
               end            
               item
-                MinSize = 10
-                MaxSize = 200
                 PickList.Strings = (
                   '* * * * *'
                   '@every <interval>'
@@ -96,43 +94,33 @@ object fmMain: TfmMain
                 FieldName = 'run_at'
               end            
               item
-                MinSize = 10
-                MaxSize = 200
                 Title.Alignment = taCenter
                 Title.Caption = 'Client'
                 Width = 264
                 FieldName = 'client_name'
               end            
               item
-                MinSize = 10
-                MaxSize = 200
                 SizePriority = 0
                 Title.Alignment = taCenter
                 Title.Caption = 'Exclusive'
                 Width = 150
                 FieldName = 'exclusive_execution'
               end            
               item
-                MinSize = 10
-                MaxSize = 200
                 SizePriority = 0
                 Title.Alignment = taCenter
                 Title.Caption = 'Self Destruct'
                 Width = 150
                 FieldName = 'self_destruct'
               end            
               item
-                MinSize = 10
-                MaxSize = 200
                 SizePriority = 0
                 Title.Alignment = taCenter
                 Title.Caption = 'Max Instances'
                 Width = 150
                 FieldName = 'max_instances'
               end            
               item
-                MinSize = 10
-                MaxSize = 200
                 SizePriority = 0
                 Title.Alignment = taCenter
                 Title.Caption = 'Timeout (ms)'
@@ -281,8 +269,6 @@ object fmMain: TfmMain
             Color = clWindow
             Columns = <            
               item
-                MinSize = 10
-                MaxSize = 200
                 Title.Caption = 'Task Name'
                 Width = 339
                 FieldName = 'task_name'
@@ -361,6 +347,7 @@ object fmMain: TfmMain
             ShowHint = True
             TabOrder = 0
             OnDrawColumnCell = gridTasksDrawColumnCell
+            OnEditButtonClick = gridTasksEditButtonClick
             OnSelectEditor = gridTasksSelectEditor
           end
           object toolbarTasks: TToolBar

forms/fmmain.pas

@@ -6,7 +6,8 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, Menus,
-  StdCtrls, DBGrids, DBCtrls, ExtCtrls, uObjects, DB, Grids, ActnList, Buttons;
+  StdCtrls, DBGrids, DBCtrls, ExtCtrls, uObjects, DB, Grids, ActnList, Buttons,
+  frameTaskCommand;
 
 type
 
@@ -96,12 +97,14 @@   TfmMain = class(TForm)
     procedure gridChainsTitleClick(Column: TColumn);
     procedure gridTasksDrawColumnCell(Sender: TObject; const Rect: TRect;
       DataCol: integer; Column: TColumn; State: TGridDrawState);
+    procedure gridTasksEditButtonClick(Sender: TObject);
     procedure gridTasksSelectEditor(Sender: TObject; Column: TColumn;
       var Editor: TWinControl);
     procedure miCloseClick(Sender: TObject);
     procedure miLogClick(Sender: TObject);
   private
     FLastColumn: TColumn; //last sorted grid column
+    FTaskCmd: TfrmTaskCommand;
   public
     procedure UpdateSortIndication(ACol: TColumn);
   end;
@@ -208,15 +211,27 @@ procedure TfmMain.gridTasksDrawColumnCell(Sender: TObject; const Rect: TRect;
   imglGrids.Draw(gridTasks.Canvas, aLeft, aTop, ImgIdx);
 end;
 
+procedure TfmMain.gridTasksEditButtonClick(Sender: TObject);
+begin
+  if not Assigned(FTaskCmd) then
+  begin
+    FTaskCmd := TfrmTaskCommand.Create(Self);
+    FTaskCmd.Parent := gridTasks;
+  end;
+  FTaskCmd.ShowEditor(gridTasks.SelectedField, gridTasks.SelectedFieldRect.TopLeft);
+end;
+
 procedure TfmMain.gridTasksSelectEditor(Sender: TObject; Column: TColumn;
   var Editor: TWinControl);
 begin
-  if Column.FieldName = 'kind' then
+  case Column.FieldName of
+  'kind':
     with Editor as TCustomComboBox do
     begin
       Style := csDropDownList;
       AutoDropDown := True;
     end;
+  end;
 end;
 
 procedure TfmMain.miCloseClick(Sender: TObject);