SCDiskSpaceForm.pas

{
    This file is part of SuperCopier.

    SuperCopier is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    SuperCopier is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.
}

unit SCDiskSpaceForm;

{$MODE Delphi}

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,  ComCtrls,  ExtCtrls,
  SCCommon, ScPopupButton,SCLocEngine;

type
  TDiskSpaceForm = class(TForm)
    llDiskSpaceText1: TLabel;
    lvDiskSpace: TListView;
    llDiskSpaceText2: TLabel;
    imIcon: TImage;
    btCancel: TScPopupButton;
    btForce: TScPopupButton;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure btForceClick(Sender: TObject; ItemIndex: Integer);
    procedure btCancelClick(Sender: TObject; ItemIndex: Integer);
  private
    { Dйclarations privйes }
    procedure DisableButtons;
  public
    { Dйclarations publiques }
    Action:TDiskSpaceAction;
  end;

var
  DiskSpaceForm: TDiskSpaceForm;

implementation

{$R *.lfm}

procedure TDiskSpaceForm.DisableButtons;
begin
  btCancel.Enabled:=False;
  btForce.Enabled:=False;
end;

procedure TDiskSpaceForm.FormCreate(Sender: TObject);
begin
  LocEngine.TranslateForm(Self);

  Action:=dsaNone;
end;

procedure TDiskSpaceForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose:=False;

  Action:=dsaCancel;
  DisableButtons;
end;

procedure TDiskSpaceForm.btForceClick(Sender: TObject; ItemIndex: Integer);
begin
  Action:=dsaForce;
  DisableButtons;
end;

procedure TDiskSpaceForm.btCancelClick(Sender: TObject;
  ItemIndex: Integer);
begin
  Action:=dsaCancel;
  DisableButtons;
end;

end.