Class TProgress (unit progressfrm)
Inherits from
TForm
Constructors
Functions
procedure CancelBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure PaintBox1Paint(Sender: TObject);
procedure EndTransfer;
procedure Progress(bytes: integer; time: integer);
procedure StartNewTransfer(filename: string; filesize: integer;Sending: Boolean);
Properties
Events
Variables
BMP : TImage;
CancelBtn : TButton;
GroupBox1 : TGroupBox;
GroupBox2 : TGroupBox;
Image1 : TImage;
Image2 : TImage;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
PaintBox1 : TPaintBox;
ProgressBar : TProgressBar;
TimeLbl : TLabel;
TimeLeftLbl : TLabel;
TotTimeLbl : TLabel;
TotTransferLbl : TLabel;
TransferLbl : TLabel;
TransferRateLbl : TLabel;
CancelProc : TCancelProc;
anicycle : integer;
send : Boolean;
ThisTime : integer;
ThisTransferred : integer;
Todo : integer;
TotalTime : integer;
TotalTransferred : integer;
Constructors
Functions
procedure CancelBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure PaintBox1Paint(Sender: TObject);
procedure EndTransfer;
procedure Progress(bytes: integer; time: integer);
procedure StartNewTransfer(filename: string; filesize: integer;Sending: Boolean);
Properties
Events
Variables
BMP : TImage;
CancelBtn : TButton;
GroupBox1 : TGroupBox;
GroupBox2 : TGroupBox;
Image1 : TImage;
Image2 : TImage;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
PaintBox1 : TPaintBox;
ProgressBar : TProgressBar;
TimeLbl : TLabel;
TimeLeftLbl : TLabel;
TotTimeLbl : TLabel;
TotTransferLbl : TLabel;
TransferLbl : TLabel;
TransferRateLbl : TLabel;
CancelProc : TCancelProc;
anicycle : integer;
send : Boolean;
ThisTime : integer;
ThisTransferred : integer;
Todo : integer;
TotalTime : integer;
TotalTransferred : integer;