Changeset 31 for trunk/Form/UFormProject.pas

Timestamp:

Apr 30, 2016, 12:16:19 AM (8 years ago)

Author:

chronos

Message:

• Added: TFileStreamEx experimental class to support flags O_DIRECT and O_SYNC under Linux.

File:

• trunk/Form/UFormProject.pas (modified) (4 diffs)

trunk/Form/UFormProject.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Spin,
-  StdCtrls, UProject;
+  StdCtrls, UProject, Math;
 
 type
@@ -22 +22 @@
     Label3: TLabel;
     Label4: TLabel;
+    Label5: TLabel;
+    Label6: TLabel;
     LabelSectorCount: TLabel;
     SpinEditSectorSize: TSpinEdit;
+    procedure SpinEditSectorSizeChange(Sender: TObject);
   private
+    procedure UpdateSectorSize;
   public
     procedure Load(Project: TProject);
@@ -42 +46 @@
 { TFormProject }
 
+procedure TFormProject.SpinEditSectorSizeChange(Sender: TObject);
+begin
+  UpdateSectorSize;
+end;
+
+procedure TFormProject.UpdateSectorSize;
+begin
+  Label6.Caption := '= ' + IntToStr(Trunc(IntPower(2, SpinEditSectorSize.Value))) + ' bytes';
+end;
+
 procedure TFormProject.Load(Project: TProject);
 begin
   Core.DriveList.LoadToStrings(ComboBoxDrive.Items);
   EditName.Text := Project.Name;
-  SpinEditSectorSize.Value := Project.DriveInfo.SectorSize;
+  SpinEditSectorSize.Value := Trunc(Log2(Project.DriveInfo.SectorSize));
   ComboBoxDrive.ItemIndex := Core.DriveList.IndexOf(Core.DriveList.FindByModel(Project.DriveInfo.Model));
+  UpdateSectorSize;
 end;
 
@@ -53 +68 @@
 begin
   Project.Name := EditName.Text;
-  Project.DriveInfo.SectorSize := SpinEditSectorSize.Value;
+  Project.DriveInfo.SectorSize := Trunc(IntPower(2, SpinEditSectorSize.Value));
 end;