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;