| Class TProgress (unit TLProgFm) |
TForm
| Constructors |
| Functions |
procedure AnyKey(Sender: TObject; var Key: Char);
procedure cmStopClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SetValue(Value: Longint);
procedure ShutUp;
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;