dfsetup.pas

来自「diskfree is tools for calculate free siz」· PAS 代码 · 共 70 行

unit DfSetup;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, Menus, ExtCtrls;

type
  TSetupForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label5: TLabel;
    CheckBox1: TCheckBox;
    Label6: TLabel;
    GroupBox3: TGroupBox;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    Label2: TLabel;
    TrackBar1: TTrackBar;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  end;

var
  SetupForm: TSetupForm;

implementation

uses
  DfMain, DfAbout;

{$R *.DFM}

{-------------------- TSetupForm ----------------------}

procedure TSetupForm.FormActivate(Sender: TObject);
begin
  ActiveControl := Button1;  // Just to add some consistency
  TrackBar1.Position := MainForm.Decimals;
  if not MainForm.ShowAllDrives then
    RadioButton1.Checked := True
  else
    RadioButton2.Checked := True;
  CheckBox1.Checked := MainForm.Qualified;
  case MainForm.Measure of
    0: Radiobutton3.Checked := True;
    1: Radiobutton4.Checked := True;
    2: Radiobutton5.Checked := True;
  end;
end;


procedure TSetupForm.Button3Click(Sender: TObject);
begin
  AboutBox.ShowModal;
end;

end.