Class TMDHProgress (unit Prgrss)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;

set defaults

procedure Nudge;


procedure Paint;


procedure TimerComplete(sender: TObject);


procedure DrawStripe(i: integer);


procedure SetProgressBackColor(value: TColor);


procedure SetProgressForeColor(value: TColor);

with

procedure SetProgressInterval(value: word);


procedure SetProgressStatus(value: TProgressStatus);


Properties

property BackColor : TColor


property ForeColor : TColor


property Interval : word


property Status : TProgressStatus


Events

Variables

NudgeCounter : word;


FProgressActive : Boolean;


FProgressBackColor : TColor;


FProgressCurrent : integer;


FProgressForeColor : TColor;


FProgressInterval : word;


FProgressStatus : TProgressStatus;

Private declarations

FProgressTimer : TTimer;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;

set defaults


procedure Nudge;


procedure Paint;


procedure TimerComplete(sender: TObject);


procedure DrawStripe(i: integer);


procedure SetProgressBackColor(value: TColor);


procedure SetProgressForeColor(value: TColor);

with


procedure SetProgressInterval(value: word);


procedure SetProgressStatus(value: TProgressStatus);


Properties


property BackColor : TColor


property ForeColor : TColor


property Interval : word


property Status : TProgressStatus


Events


Variables


NudgeCounter : word;


FProgressActive : Boolean;


FProgressBackColor : TColor;


FProgressCurrent : integer;


FProgressForeColor : TColor;


FProgressInterval : word;


FProgressStatus : TProgressStatus;

Private declarations


FProgressTimer : TTimer;