Changeset 29 for trunk/Form/UFormMain.pas

Timestamp:

Apr 7, 2016, 11:08:31 PM (8 years ago)

Author:

chronos

Message:

• Added: Random data pattern write operation.
• Modified: Reversed list of operations so new ones are placed at top of the list.
• Fixed: Error on openning recent file which not exists.

File:

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

trunk/Form/UFormMain.pas

@@ -176 +176 @@
   LoadConfig;
   Core.PersistentForm1.Load(Self);
-  if (LastOpenedList1.Items.Count > 0) then
+  if (LastOpenedList1.Items.Count > 0) and FileExists(LastOpenedList1.Items[0]) then
     ProjectOpen(LastOpenedList1.Items[0])
   else begin
@@ -195 +195 @@
   with Core.Project do
   if (Item.Index >= 0) and (Item.Index < Scans.Count) then
-  with TDriveScan(Scans[Item.Index]) do begin
+  with TDriveScan(Scans[Scans.Count - 1 - Item.Index]) do begin
     Item.Caption := GetName;
-    Item.Data := TDriveScan(Scans[Item.Index]);
+    Item.Data := TDriveScan(Scans[Scans.Count - 1 - Item.Index]);
     Item.SubItems.Add(DateTimeToStr(TimeStart));
     Item.SubItems.Add(DateTimeToStr(TimeEnd));