source: trunk/Forms/UFormProject.pas

unit UFormProject;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Spin,
  StdCtrls, UProject, Math;

type

  { TFormProject }

  TFormProject = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ComboBoxDrive: TComboBox;
    EditName: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    LabelSectorCount: TLabel;
    SpinEditSectorSize: TSpinEdit;
    procedure SpinEditSectorSizeChange(Sender: TObject);
  private
    procedure UpdateSectorSize;
  public
    procedure Load(Project: TProject);
    procedure Save(Project: TProject);
  end;

var
  FormProject: TFormProject;

implementation

{$R *.lfm}

uses
  UCore;

{ 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 := Trunc(Log2(Project.DriveInfo.SectorSize));
  ComboBoxDrive.ItemIndex := Core.DriveList.IndexOf(Core.DriveList.FindByModel(Project.DriveInfo.Model));
  UpdateSectorSize;
end;

procedure TFormProject.Save(Project: TProject);
begin
  Project.Name := EditName.Text;
  Project.DriveInfo.SectorSize := Trunc(IntPower(2, SpinEditSectorSize.Value));
end;

end.