Changeset 20

Timestamp:

Apr 2, 2016, 10:38:43 PM (8 years ago)

Author:

chronos

Message:

• Added: Ability to select specific file from file system for scanning.

Location:

trunk

Files:

• Form/UFormMain.pas (modified) (2 diffs)
• UPhysDrive.pas (modified) (2 diffs)

trunk/Form/UFormMain.pas

@@ -228 +228 @@
   with Core.Project do
   if (ComboBoxDrive.ItemIndex <> -1) and (DriveInfo.Path <> TDriveInfo(ComboBoxDrive.Items.Objects[ComboBoxDrive.ItemIndex]).Path) then begin
+    with TDriveInfo(ComboBoxDrive.Items.Objects[ComboBoxDrive.ItemIndex]) do
+    if Kind = dkFile then begin
+      OpenDialog1.FileName := Path;
+      if OpenDialog1.Execute and FileExists(OpenDialog1.FileName) then begin
+        Path := OpenDialog1.FileName;
+        Size := FileSize(Path);
+        Model := OpenDialog1.FileName;
+        SectorSize := 4096;
+        SectorCount := Size div SectorSize;
+        Core.DriveList.LoadToStrings(ComboBoxDrive.Items);
+      end;
+    end;
     DriveInfo.Assign(TDriveInfo(ComboBoxDrive.Items.Objects[ComboBoxDrive.ItemIndex]));
     Modified := True;
@@ -485 +497 @@
   Title := '';
   if Assigned(Project) then
-    Title := Title + Project.FileName + ' - ';
+    Title := Title + ExtractFileName(Project.FileName) + ' - ';
   Title := Title + Application.Title;
   if Assigned(Project) and Project.Modified then

trunk/UPhysDrive.pas

@@ -109 +109 @@
   end;
   {$ENDIF}
-{  NewDriveInfo := TDriveInfo.Create;
+  // Drive located using filename
+  NewDriveInfo := TDriveInfo.Create;
   NewDriveInfo.Kind := dkFile;
   NewDriveInfo.Model := 'File';
@@ -117 +118 @@
   NewDriveInfo.Path := '';
   Add(NewDriveInfo);
-  }
 end;