//---------------------------------------------------------------------
#include <vcl.h>
#include <stdio.h>
#pragma hdrstop

#include "RWDisk.h"
#include "DiskAccess.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
//---------------------------------------------------------------------
__fastcall TDiskForm::TDiskForm(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------------
void __fastcall TDiskForm::FormCreate(TObject *Sender)
{
  int iDrive, n = 0;
  char str[25];

  cbDrive->Items->Clear();
  for (iDrive = 1; iDrive <= 2; ++iDrive) {
    DWORD dwFF = GetDriveFormFactor(iDrive);
    if (dwFF == 525) {
      sprintf(str, "%c : 5.25\" floppy drive", 64+iDrive);
      if (n == 0) n = iDrive;
    } else if (dwFF == 350) {
      sprintf(str, "%c : 3.5\" floppy drive", 64+iDrive);
    } else {
      sprintf(str, "%c : no drive", 64+iDrive);
    }
    cbDrive->Items->Add(str);
  }
  cbDrive->ItemIndex = n - 1;
}
//---------------------------------------------------------------------
void __fastcall TDiskForm::btnReadClick(TObject *Sender)
{
  Method = 0;
}
//---------------------------------------------------------------------------
void __fastcall TDiskForm::btnWriteClick(TObject *Sender)
{
  Method = 1;
}
//---------------------------------------------------------------------------