Changeset 104 for trunk/NewView

Timestamp:

Mar 26, 2007, 8:36:16 PM (19 years ago)

Author:

RBRi

Message:

Source cleanup

File:

• trunk/NewView/SearchDirectoriesFormUnit.pas (modified) (3 diffs)

trunk/NewView/SearchDirectoriesFormUnit.pas

@@ -136 +136 @@
     if DirectoriesListBox.Selected[ i ] then
     begin
-      SelectedFolders.Add( DirectoriesListBox.Items[ i ] );
+      LogEvent(LogDebug, 'Adding directory ' + DirectoriesListBox.Items[i]);
+      SelectedFolders.Add( DirectoriesListBox.Items[i] );
     end;
   end;
@@ -145 +146 @@
   i: longint;
 Begin
-//  AddButton.Visible := true;
   CustomDirAdded := false;
   OKButton.Default := true;
@@ -157 +157 @@
       DirectoriesListBox.Selected[ i ] := true;
   end;
-  // SelectedFolders
-//  DriveListBox.Clear;
-//   SetAllCheckListItems( DirectoriesListBox, true );
-//  End;
 End;