working.pas

wbs43open-src.zip 数字隐藏工具

unit working;

interface

uses
  SysUtils, Classes
{$IFDEF CLX}
  ,QForms, QStdCtrls, QControls, QComCtrls
{$ELSE}
  , Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls
{$ENDIF}
  , CarrierFile, BMPReplace, ASCIIReplace,
  ASCIIInsert, PDFInsert, MultiLang
  ;

type
  TForm11 = class(TForm)
    Label1: TLabel;
    ProgressBar1: TProgressBar;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    Cancel:   Boolean;
  public
    procedure ActionUpdate(Sender: TObject; Action: String); virtual;
    procedure PercentUpdate(Sender: TObject; Percent: Integer);
    procedure WantCancel(Sender: TObject; var Cancel: Boolean);
  end;

var
  Form11: TForm11;

implementation

{$R *.dfm}

procedure TForm11.FormShow(Sender: TObject);
begin
  ProgressBar1.Position:=0;
  Label1.Caption:='';
  Cancel:=False;
end;

procedure TForm11.ActionUpdate(Sender: TObject; Action: String);
begin
  Label1.Caption:=Action;
end;

procedure TForm11.PercentUpdate(Sender: TObject; Percent: Integer);
begin
  ProgressBar1.Position:=Percent;
end;

procedure TForm11.WantCancel(Sender: TObject; var Cancel: Boolean);
begin
  Cancel:=self.Cancel;
end;

procedure TForm11.FormCreate(Sender: TObject);
begin
  Form11.Caption:=ml.GetComponentString('working.Form11.Caption');
  Button1.Caption:=ml.GetComponentString('working.Button1.Caption');
end;

procedure TForm11.Button1Click(Sender: TObject);
begin
  Cancel:=True;
end;

end.