bottleclient/HtmlOutputProgress.pas

   1 unit HtmlOutputProgress;
   2
   3 interface
   4
   5 uses
   6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   7   Dialogs, StdCtrls, ComCtrls;
   8
   9 type
  10   TfrmHTMLOutputProgress = class(TForm)
  11     btnCancel: TButton;
  12     ProgressBar: TProgressBar;
  13     lblSaving: TLabel;
  14     procedure FormCreate(Sender: TObject);
  15     procedure btnCancelClick(Sender: TObject);
  16   private
  17     FCanceled: boolean;
  18     { Private \90é\8c¾ }
  19   public
  20     { Public \90é\8c¾ }
  21     property Canceled: boolean read FCanceled;
  22   end;
  23
  24 var
  25   frmHTMLOutputProgress: TfrmHTMLOutputProgress;
  26
  27 implementation
  28
  29 {$R *.dfm}
  30
  31 procedure TfrmHTMLOutputProgress.FormCreate(Sender: TObject);
  32 begin
  33   FCanceled := false;
  34 end;
  35
  36 procedure TfrmHTMLOutputProgress.btnCancelClick(Sender: TObject);
  37 begin
  38   FCanceled := true;
  39 end;
  40
  41 end.