Changeset 72

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

Files:

• Forms/UFormImportSources.lfm (modified) (4 diffs)
• Forms/UFormImportSources.lrt (modified) (1 diff)
• Forms/UFormImportSources.pas (modified) (4 diffs)
• Languages/AcronymDecoder.cs.po (modified) (2 diffs)
• Languages/AcronymDecoder.po (modified) (1 diff)

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;
 

trunk/Languages/AcronymDecoder.cs.po

@@ -10 +10 @@
 "Content-Transfer-Encoding: 8bit\n"
 "Language: cs\n"
-"X-Generator: Poedit 1.8.8\n"
+"X-Generator: Poedit 1.8.7.1\n"
 
 #: tformabout.buttonclose.caption
@@ -407 +407 @@
 msgstr "Přidat"
 
+#: tformimportsources.adisable.caption
+msgid "Disable"
+msgstr "Zakázat"
+
+#: tformimportsources.aenable.caption
+msgid "Enable"
+msgstr "Povolit"
+
 #: tformimportsources.amodify.caption
 msgctxt "tformimportsources.amodify.caption"

trunk/Languages/AcronymDecoder.po

@@ -397 +397 @@
 msgstr ""
 
+#: tformimportsources.adisable.caption
+msgid "Disable"
+msgstr ""
+
+#: tformimportsources.aenable.caption
+msgid "Enable"
+msgstr ""
+
 #: tformimportsources.amodify.caption
 msgctxt "TFORMIMPORTSOURCES.AMODIFY.CAPTION"