40 lines
792 B
ObjectPascal
40 lines
792 B
ObjectPascal
unit BPRfixScanForm;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, ComCtrls, JclFileUtils;
|
|
|
|
type
|
|
TFormScan = class(TForm)
|
|
Animate1: TAnimate;
|
|
ButtonCancel: TButton;
|
|
LabelDirectory: TLabel;
|
|
private
|
|
{ Déclarations privées }
|
|
public
|
|
procedure ChangeDirectory(const FileName: string);
|
|
procedure TaskFinished (const ID: TFileSearchTaskID; const Aborted: Boolean);
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TFormScan }
|
|
|
|
procedure TFormScan.ChangeDirectory(const FileName: string);
|
|
begin
|
|
LabelDirectory.Caption := FileName;
|
|
end;
|
|
|
|
procedure TFormScan.TaskFinished(const ID: TFileSearchTaskID;
|
|
const Aborted: Boolean);
|
|
begin
|
|
ModalResult := mrCancel;
|
|
end;
|
|
|
|
end.
|
|
|