mirror of
https://github.com/rejetto/hfs2.git
synced 2025-12-19 10:03:56 +01:00
31 lines
466 B
ObjectPascal
31 lines
466 B
ObjectPascal
unit purgeDlg;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls;
|
|
|
|
type
|
|
TpurgeFrm = class(TForm)
|
|
rmFilesChk: TCheckBox;
|
|
Label1: TLabel;
|
|
rmRealFoldersChk: TCheckBox;
|
|
rmEmptyFoldersChk: TCheckBox;
|
|
Button1: TButton;
|
|
Button2: TButton;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
purgeFrm: TpurgeFrm;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
end.
|