Class TExtProgressBar (unit ExtProgressBar)

Inherits from

TProgressBar

The new class

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure CreateParams(var Params: TCreateParams);

CreateParams is responsible for providing all the parameters for describing the window to create.

procedure CreateWnd;

Overriden methods

CreateWnd is responsible for actually creating the window (value of Handle).


procedure Loaded;

Loaded is called immediately after a component has been loaded from a stream, i.

function GetPosition: integer;

Read the current position of the progress bar.

function GetVersion: TDFSVersion;


procedure SetColor(Val: TColor);

Set the bar background color.

procedure SetExtendedStyles(Val: TPBExtendedStyles);

Set (or remove) the extended styles.

procedure SetMax(Val: integer);

Update the Max property.

procedure SetMin(Val: integer);

Property methods

Update the Min property.


procedure SetParams(AMin, AMax: integer);

Utility function used by both SetMin and SetMax methods.

procedure SetPosition(Val: integer);

Set the current position of the progress bar.

procedure SetSelectionColor(val: TColor);

Set the bar background color.

procedure SetVersion(const Val: TDFSVersion);


procedure WMEraseBkGnd(var Msg: TWMEraseBkGnd);


Properties

property Color : TColor


property ExtendedStyles : TPBExtendedStyles

Property for new styles

property Max : integer


property Min : integer

Properties overriden from the ancestor.

property Position : integer


property SelectionColor : TColor


property Version : TDFSVersion


Events

Variables

FColor : TColor;


FMax : integer;


FMin : integer;


FPBExtendedStyles : TPBExtendedStyles;

Internal property variables

FPosition : integer;


FSelectionColor : TColor;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure CreateParams(var Params: TCreateParams);

CreateParams is responsible for providing all the parameters for describing the window to create. The new vertical and smooth styles are window sytle flags, so we need to supply them here.


procedure CreateWnd;

Overriden methods

CreateWnd is responsible for actually creating the window (value of Handle). As soon as the window is created, we need to set it to our values.


procedure Loaded;

Loaded is called immediately after a component has been loaded from a stream, i.e a form (.DFM) file.


function GetPosition: integer;

Read the current position of the progress bar.


function GetVersion: TDFSVersion;


procedure SetColor(Val: TColor);

Set the bar background color.


procedure SetExtendedStyles(Val: TPBExtendedStyles);

Set (or remove) the extended styles.


procedure SetMax(Val: integer);

Update the Max property.


procedure SetMin(Val: integer);

Property methods

Update the Min property.


procedure SetParams(AMin, AMax: integer);

Utility function used by both SetMin and SetMax methods.


procedure SetPosition(Val: integer);

Set the current position of the progress bar.


procedure SetSelectionColor(val: TColor);

Set the bar background color.


procedure SetVersion(const Val: TDFSVersion);


procedure WMEraseBkGnd(var Msg: TWMEraseBkGnd);


Properties


property Color : TColor


property ExtendedStyles : TPBExtendedStyles

Property for new styles


property Max : integer


property Min : integer

Properties overriden from the ancestor.


property Position : integer


property SelectionColor : TColor


property Version : TDFSVersion


Events


Variables


FColor : TColor;


FMax : integer;


FMin : integer;


FPBExtendedStyles : TPBExtendedStyles;

Internal property variables


FPosition : integer;


FSelectionColor : TColor;