Class TProgress (unit TLProgFm)

Inherits from

TForm

Constructors



Functions

procedure AnyKey(Sender: TObject; var Key: Char);


procedure cmStopClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure SetValue(Value: Longint);


procedure ShutUp;

Gauge.

procedure Start(Title: ShortString; Max: Longint);


procedure Step(n: Longint);


procedure Step1;


Properties

Events

Variables

cmStop : TBitBtn;


fdElapsed : TLabel;


fdMax : TLabel;


fdRest : TLabel;


fdVal : TLabel;


Gauge : TGauge;


lbE1 : TLabel;


lbE2 : TLabel;


lbR1 : TLabel;


lbR2 : TLabel;


Panel : TPanel;


Caller : TForm;


StartTime : TDateTime;


Stopped : Boolean;



Constructors


Functions


procedure AnyKey(Sender: TObject; var Key: Char);


procedure cmStopClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure SetValue(Value: Longint);


procedure ShutUp;

Gauge.MinValue := 0;


procedure Start(Title: ShortString; Max: Longint);


procedure Step(n: Longint);


procedure Step1;


Properties


Events


Variables


cmStop : TBitBtn;


fdElapsed : TLabel;


fdMax : TLabel;


fdRest : TLabel;


fdVal : TLabel;


Gauge : TGauge;


lbE1 : TLabel;


lbE2 : TLabel;


lbR1 : TLabel;


lbR2 : TLabel;


Panel : TPanel;


Caller : TForm;


StartTime : TDateTime;


Stopped : Boolean;