Changeset 72 for trunk/Forms

Timestamp:

Aug 1, 2016, 11:00:05 PM (8 years ago)

Author:

chronos

Message:

• Added: Allow enable/disable import source by context menu in import sources list.

Location:

trunk/Forms

Files:

• UFormImportSources.lfm (modified) (4 diffs)
• UFormImportSources.lrt (modified) (1 diff)
• UFormImportSources.pas (modified) (4 diffs)

trunk/Forms/UFormImportSources.lfm

@@ -10 +10 @@
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '1.6.0.4'
+  LCLVersion = '1.7'
   object ListView1: TListView
     Left = 8
@@ -37 +37 @@
       item
         Caption = 'Date'
-        Width = 100
+        Width = 108
       end>
     MultiSelect = True
@@ -108 +108 @@
       ImageIndex = 5
       OnExecute = AProcessExecute
+    end
+    object AEnable: TAction
+      Caption = 'Enable'
+      OnExecute = AEnableExecute
+    end
+    object ADisable: TAction
+      Caption = 'Disable'
+      OnExecute = ADisableExecute
     end
   end
@@ -270 +278 @@
       }
     end
+    object MenuItem6: TMenuItem
+      Action = AEnable
+    end
+    object MenuItem5: TMenuItem
+      Action = ADisable
+    end
   end
   object JobProgressView1: TJobProgressView

trunk/Forms/UFormImportSources.lrt

@@ -10 +10 @@
 TFORMIMPORTSOURCES.AMODIFY.CAPTION=Modify
 TFORMIMPORTSOURCES.APROCESS.CAPTION=Process
+TFORMIMPORTSOURCES.AENABLE.CAPTION=Enable
+TFORMIMPORTSOURCES.ADISABLE.CAPTION=Disable

trunk/Forms/UFormImportSources.pas

@@ -15 +15 @@
   TFormImportSources = class(TForm)
     AAdd: TAction;
+    AEnable: TAction;
+    ADisable: TAction;
     AProcess: TAction;
     ActionList1: TActionList;
@@ -25 +27 @@
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
     PopupMenuImportSource: TPopupMenu;
     ToolBar1: TToolBar;
@@ -32 +36 @@
     ToolButton4: TToolButton;
     procedure AAddExecute(Sender: TObject);
+    procedure ADisableExecute(Sender: TObject);
+    procedure AEnableExecute(Sender: TObject);
     procedure AModifyExecute(Sender: TObject);
     procedure AProcessExecute(Sender: TObject);
@@ -131 +137 @@
   end;
   if Assigned(NewImportSource) then NewImportSource.Free;
+end;
+
+procedure TFormImportSources.ADisableExecute(Sender: TObject);
+var
+  I: Integer;
+begin
+  for I := ListView1.Items.Count - 1 downto 0 do
+  if ListView1.Items[I].Selected then
+    TImportSource(ListView1.Items[I].Data).Enabled := False;
+  UpdateList;
+end;
+
+procedure TFormImportSources.AEnableExecute(Sender: TObject);
+var
+  I: Integer;
+begin
+  for I := ListView1.Items.Count - 1 downto 0 do
+  if ListView1.Items[I].Selected then
+    TImportSource(ListView1.Items[I].Data).Enabled := True;
+  UpdateList;
 end;