Changeset 188 for trunk/Components/CustomFileControls.pas

Timestamp:

Jun 5, 2007, 8:28:53 PM (18 years ago)

Author:

RBRi

Message:

refactored, now uses FileUtilsUnit

File:

• trunk/Components/CustomFileControls.pas (modified) (8 diffs)

trunk/Components/CustomFileControls.pas

@@ -7 +7 @@
 
 Uses
-  Dos, SysUtils, Classes, Forms, StdCtrls, CustomListBox, Graphics;
+  Dos,
+  SysUtils,
+  Classes,
+  Forms,
+  StdCtrls,
+  CustomListBox,
+  Graphics;
 
 
@@ -337 +343 @@
 
 Uses
-{$IFDEF OS2}
-  BseDos, OS2Def, DriveInfoUnit,
-  BseDev, BseErr,
-{$ENDIF}
-
-{$IFDEF Win95}
-  WinBase,
-{$ENDIF}
+  BseDos,
+  OS2Def,
+  BseDev,
+  BseErr,
+
   Dialogs,
-  ACLStringUtility, ACLUtility, ACLFileUtility, BitmapUtility;
+  FileUtilsUnit,
+  ACLStringUtility,
+  ACLUtility,
+  BitmapUtility;
 
 var
@@ -864 +870 @@
     Data:= longint( Items.Objects[ Index ] );
     if ( Data and dfSubDir ) = 0 then
-      FullPath:= AddSlash( S ) + FullPath;
+      FullPath:= AddDirectorySeparator( S ) + FullPath;
     dec( Index );
   end;
@@ -918 +924 @@
   SubDirs:= TStringList.Create;
 
-  Status := SysUtils.FindFirst( AddSlash( Directory ) + '*.*', faDirectory, Search);
+  Status := SysUtils.FindFirst( AddDirectorySeparator( Directory ) + '*.*', faDirectory, Search);
   While Status = 0 Do
   Begin
@@ -967 +973 @@
     GetDir(Ord(UpCase(Drive))-Ord('A')+1,s);
     {$I+}
-    S:= RemoveSlash( S );
-    S:= AddSlash( S );
+    S:= RemoveRightDirectorySeparator( S );
+    S:= AddDirectorySeparator( S );
     NewDir:=s+NewDir;
   End;
 
-  NewDir:= RemoveSlash( NewDir );
+  NewDir:= RemoveRightDirectorySeparator( NewDir );
 
   FDirectory := NewDir;
@@ -1116 +1122 @@
       begin
         try
-          DriveLabel := GetVolumeLabel( DriveNumberToLetter( DriveNumber ) );
+          DriveLabel := GetVolumeLabel( DriveNumberToDriveLetter( DriveNumber ) );
           DriveString := DriveString + DriveLabel;
         except
@@ -1142 +1148 @@
     on EInOutError do
       // Current drive inaccessible
-      Drive := GetBootDrive;
+      Drive := GetBootDriveLetter;
   end;
 End;
@@ -1261 +1267 @@
                                 // and the user doesn't want to retry,
                                 // so go back to boot drive.
-                                SetDrive( GetBootDrive );
+                                SetDrive(GetBootDriveLetter);
                                 Screen.Cursor := crDefault;
                                 Exit;