www.pudn.com > DriveRescuev1.8.zip > FATdlg.pas

unit FATdlg; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, ExtCtrls; 
 
type 
  TFATSelectDialog = class(TForm) 
    Label4: TLabel; 
    ComboBoxFAT: TComboBox; 
    Label5: TLabel; 
    Panel1: TPanel; 
    Button1: TButton; 
    Button2: TButton; 
  private 
    { Private declarations } 
  public 
    FATno: byte; 
    { Public declarations } 
    function execute: boolean; 
  end; 
 
var 
  FATSelectDialog: TFATSelectDialog; 
 
implementation 
 
{$R *.dfm} 
 
function TfatSelectDialog.execute: boolean; 
var 
  res: integer; 
begin 
  res:=showmodal; 
  if res = mrOK then 
  begin 
    FATno:=ComboBoxFAT.itemindex; 
  end; 
  result:=(res = mrOK); 
end; 
 
end.