ADD: complete features ..

Author: PascalCorpsman

src/CopyCommander2.lpi

@@ -131,13 +131,15 @@
         <Filename Value="unit7.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="Form7"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit7"/>
       </Unit16>
       <Unit17>
         <Filename Value="unit8.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="Form8"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit8"/>
       </Unit17>

src/how_to_use.md

@@ -6,6 +6,10 @@ This Programm is orientated on the "Total Commander" application for Windows.
 
 The main porpuse of this programm is copying and moveing files / directories, in a queue.
 
+### "open"
+
+If set in the settings, this can call a external programm with the actual selected file.
+
 ### "diff viewer" folder feature
 
 Navigate to two different folders that you want to be synchronized. Press CTRL + S to open the diff viewer folder dialog.

src/unit1.pas

@@ -324,7 +324,7 @@
 {$R *.lfm}
 
 Uses LazFileUtils, LCLType, math, process, UTF8Process
-  , urestapi // Rest-API
+  , urestapi
   , unit2 // Progress Dialog
   , Unit3 // Diff Dialog
   , unit4 // Errorlog

src/unit7.lfm

@@ -85,6 +85,7 @@ object Form7: TForm7
       Width = 75
       Caption = 'Edit'
       TabOrder = 2
+      OnClick = Button4Click
     end
     object Button5: TButton
       Left = 640
@@ -93,6 +94,7 @@ object Form7: TForm7
       Width = 75
       Caption = 'Del'
       TabOrder = 3
+      OnClick = Button5Click
     end
   end
 end

src/unit7.pas

@@ -35,6 +35,8 @@
     GroupBox1: TGroupBox;
     StringGrid1: TStringGrid;
     Procedure Button3Click(Sender: TObject);
+    Procedure Button4Click(Sender: TObject);
+    Procedure Button5Click(Sender: TObject);
     Procedure FormCreate(Sender: TObject);
   private
 
@@ -70,6 +72,7 @@
     StringGrid1.Cells[1, i + 1] := inifile.ReadString('FileAssociations', 'cmd' + inttostr(i), '');
     StringGrid1.Cells[2, i + 1] := inifile.ReadString('FileAssociations', 'Params' + inttostr(i), '');
   End;
+  StringGrid1.AutoSizeColumns;
 End;
 
 Procedure TForm7.SaveTo(Const Inifile: TIniFile);
@@ -105,8 +108,32 @@
     StringGrid1.Cells[0, index] := form8.Edit1.Text;
     StringGrid1.Cells[1, index] := form8.Edit2.Text;
     StringGrid1.Cells[2, index] := form8.Edit3.Text;
+    StringGrid1.AutoSizeColumns;
   End;
 End;
 
+Procedure TForm7.Button4Click(Sender: TObject);
+Begin
+  // Edit
+  If StringGrid1.Selection.Top > 0 Then Begin
+    form8.InitWith(StringGrid1.Cells[0, StringGrid1.Selection.Top],
+      StringGrid1.Cells[1, StringGrid1.Selection.Top],
+      StringGrid1.Cells[2, StringGrid1.Selection.Top]
+      );
+    If form8.ShowModal = mrOK Then Begin
+      StringGrid1.Cells[0, StringGrid1.Selection.Top] := form8.Edit1.Text;
+      StringGrid1.Cells[1, StringGrid1.Selection.Top] := form8.Edit2.Text;
+      StringGrid1.Cells[2, StringGrid1.Selection.Top] := form8.Edit3.Text;
+      StringGrid1.AutoSizeColumns;
+    End;
+  End;
+End;
+
+Procedure TForm7.Button5Click(Sender: TObject);
+Begin
+  If StringGrid1.Selection.Top > 0 Then
+    StringGrid1.DeleteRow(StringGrid1.Selection.Top);
+End;
+
 End.
 

src/unit8.lfm

@@ -19,8 +19,12 @@ object Form8: TForm8
   object Edit1: TEdit
     Left = 64
     Height = 26
+    Hint = 'Multiple entries allowed, separate them with '';'''
     Top = 8
-    Width = 80
+    Width = 248
+    Anchors = [akTop, akLeft, akRight]
+    ParentShowHint = False
+    ShowHint = True
     TabOrder = 0
     Text = 'Edit1'
   end
@@ -50,9 +54,12 @@ object Form8: TForm8
   object Edit3: TEdit
     Left = 64
     Height = 26
+    Hint = '%f stands for the actual selected file / folder'
     Top = 70
     Width = 248
     Anchors = [akTop, akLeft, akRight]
+    ParentShowHint = False
+    ShowHint = True
     TabOrder = 2
     Text = 'Edit3'
   end
@@ -64,6 +71,7 @@ object Form8: TForm8
     Anchors = [akTop, akRight]
     Caption = 'Set'
     TabOrder = 3
+    OnClick = Button1Click
   end
   object Button2: TButton
     Left = 320
@@ -85,4 +93,8 @@ object Form8: TForm8
     ModalResult = 2
     TabOrder = 5
   end
+  object OpenDialog1: TOpenDialog
+    Left = 155
+    Top = 54
+  end
 end

src/unit8.pas

@@ -35,6 +35,8 @@
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
+    OpenDialog1: TOpenDialog;
+    Procedure Button1Click(Sender: TObject);
     Procedure FormCreate(Sender: TObject);
   private
 
@@ -57,6 +59,11 @@
   caption := 'File ext association editor';
 End;
 
+Procedure TForm8.Button1Click(Sender: TObject);
+Begin
+  If OpenDialog1.Execute Then edit2.text := OpenDialog1.FileName;
+End;
+
 Procedure TForm8.InitWith(ext, cmd, params: String);
 Begin
   edit1.text := ext; // ; liste erlaubt