MCKfakeClasses.inc

   1 unit fmtmain;\r
   2 \r
   3 // Test program for Magenta Check Disk and Format Disk component\r
   4 // 20th October 2005 - Release 1.0 (C) Magenta Systems Ltd, 2005\r
   5 \r
   6 // Copyright by Angus Robertson, Magenta Systems Ltd, England\r
   7 // delphi@magsys.co.uk, http://www.magsys.co.uk/delphi/\r
   8 \r
   9 interface\r
  10 \r
  11 uses\r
  12   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r
  13   Dialogs, StdCtrls, ExtCtrls, magfmtdisk, FileCtrl, ComCtrls ;\r
  14 \r
  15 type\r
  16   TMainForm = class(TForm)\r
  17     Log: TMemo;\r
  18     Panel1: TPanel;\r
  19     doChkDsk: TButton;\r
  20     doExit: TButton;\r
  21     DriveBox: TDriveComboBox;\r
  22     OptCorrectErrors: TCheckBox;\r
  23     OptVerbose: TCheckBox;\r
  24     OptCheckDirty: TCheckBox;\r
  25     OptScanDrive: TCheckBox;\r
  26     OptQuickFmt: TCheckBox;\r
  27     doAbort: TButton;\r
  28     doFrmtDsk: TButton;\r
  29     ProgressBar: TProgressBar;\r
  30     FileSystem: TComboBox;\r
  31     Label1: TLabel;\r
  32     VolumeLabel: TEdit;\r
  33     procedure FormDestroy(Sender: TObject);\r
  34     procedure FormCreate(Sender: TObject);\r
  35     procedure doChkDskClick(Sender: TObject);\r
  36     procedure doExitClick(Sender: TObject);\r
  37     procedure doAbortClick(Sender: TObject);\r
  38     procedure doFrmtDskClick(Sender: TObject);\r
  39   private\r
  40     { Private declarations }\r
  41     procedure LogInfo (Info: String) ;\r
  42     procedure ProgressEvent (Percent: integer; var Cancel: boolean) ;\r
  43     procedure InfoEvent (Info: string; var Cancel: boolean) ;\r
  44   public\r
  45     { Public declarations }\r
  46   end;\r
  47 \r
  48 var\r
  49   MainForm: TMainForm;\r
  50   MagFmtChkDsk: TMagFmtChkDsk ;\r
  51   CancelFlag: boolean ;\r
  52 \r
  53 implementation\r
  54 \r
  55 {$R *.dfm}\r
  56 \r
  57 procedure TMainForm.FormDestroy(Sender: TObject);\r
  58 begin\r
  59     FreeAndNil (MagFmtChkDsk) ;\r
  60 end;\r
  61 \r
  62 procedure TMainForm.FormCreate(Sender: TObject);\r
  63 begin\r
  64     MagFmtChkDsk := TMagFmtChkDsk.Create (self) ;\r
  65     MagFmtChkDsk.onProgressEvent := ProgressEvent ;\r
  66     MagFmtChkDsk.onInfoEvent := InfoEvent ;\r
  67 end;\r
  68 \r
  69 procedure TMainForm.LogInfo (Info: String) ;\r
  70 begin\r
  71     Log.Lines.Add (Info) ;\r
  72 end ;\r
  73 \r
  74 procedure