ADD: Implement TODO

Author: PascalCorpsman

unit1.pas

@@ -1,7 +1,7 @@
 (******************************************************************************)
 (* CopyCommander2                                                  15.02.2022 *)
 (*                                                                            *)
-(* Version     : 0.09                                                         *)
+(* Version     : 0.10                                                         *)
 (*                                                                            *)
 (* Author      : Uwe Schächterle (Corpsman)                                   *)
 (*                                                                            *)
@@ -74,7 +74,7 @@
 (*                      es werden die letzten 10 [maxDirs=10] gemerkt und in  *)
 (*                        einer Drop-Down-Liste angeboten,                    *)
 (*                      Die Liste kann via contextmenü gelöscht werden        *)
-(*               0.10 =                                                       *)
+(*               0.10 = TODO im STRG+S Dialog implementiert                   *)
 (*                                                                            *)
 (******************************************************************************)
 (*  Silk icon set 1.3 used                                                    *)
@@ -528,7 +528,10 @@
 
 Procedure TForm1.FormCreate(Sender: TObject);
 Begin
-  Caption := 'Copycommander2 ver. 0.09';
+  (*
+   * Historie : Siehe ganz oben
+   *)
+  Caption := 'Copycommander2 ver. 0.10';
   (*
    * Mindest Anforderungen:
    *  - Alle "Todo's" erledigt

unit3.pas

@@ -294,7 +294,6 @@
     exit;
   End;
   UpdatePanelInfo;
-
 End;
 
 Procedure TForm3.MenuItem1Click(Sender: TObject);
@@ -325,17 +324,69 @@
 End;
 
 Procedure TForm3.MenuItem4Click(Sender: TObject);
+Var
+  j, i, k: Integer;
+  sel: TGridRect;
+  fn: String;
 Begin
   // Del Left
-  // TODO: Implementieren
-  showmessage('Todo');
+  For i := StringGrid1.SelectedRangeCount - 1 Downto 0 Do Begin
+    sel := StringGrid1.SelectedRange[i];
+    For j := sel.Bottom Downto sel.Top Do Begin
+      fn := fLeftRootDirectory + fListViewData[j - 1].Left;
+      If DeleteFileUTF8(fn) Then Begin
+        fListViewData[j - 1].Left := '';
+        // Rechts ists auch Leer -> Die Zeile kann Weg
+        If fListViewData[j - 1].Right = '' Then Begin
+          StringGrid1.DeleteRow(j);
+          For k := j - 1 To high(fListViewData) - 1 Do Begin
+            fListViewData[k] := fListViewData[k + 1];
+          End;
+          setlength(fListViewData, high(fListViewData));
+        End
+        Else Begin
+          // Rechts gibt es -> die Zeile bleibt da
+          StringGrid1.Cells[0, j] := '';
+          StringGrid1.Cells[1, j] := inttostr(IndexRightToLeft);
+        End;
+      End;
+    End;
+  End;
+  StringGrid1.ClearSelections;
+  UpdatePanelInfo;
 End;
 
 Procedure TForm3.MenuItem5Click(Sender: TObject);
+Var
+  j, i, k: Integer;
+  sel: TGridRect;
+  fn: String;
 Begin
   // Del Right
-  // TODO: Implementieren
-  showmessage('Todo');
+  For i := StringGrid1.SelectedRangeCount - 1 Downto 0 Do Begin
+    sel := StringGrid1.SelectedRange[i];
+    For j := sel.Bottom Downto sel.Top Do Begin
+      fn := fRightRootDirectory + fListViewData[j - 1].Right;
+      If DeleteFileUTF8(fn) Then Begin
+        fListViewData[j - 1].Right := '';
+        // Links ists auch Leer -> Die Zeile kann Weg
+        If fListViewData[j - 1].Left = '' Then Begin
+          StringGrid1.DeleteRow(j);
+          For k := j - 1 To high(fListViewData) - 1 Do Begin
+            fListViewData[k] := fListViewData[k + 1];
+          End;
+          setlength(fListViewData, high(fListViewData));
+        End
+        Else Begin
+          // Links gibt es -> die Zeile bleibt da
+          StringGrid1.Cells[2, j] := '';
+          StringGrid1.Cells[1, j] := inttostr(IndexLeftToRight);
+        End;
+      End;
+    End;
+  End;
+  StringGrid1.ClearSelections;
+  UpdatePanelInfo;
 End;
 
 Procedure TForm3.MenuItem7Click(Sender: TObject);