Class TExtProgressBar (unit ExtProgressBar) |
Inherits from
TProgressBar
The new class
constructor Create(AOwner: TComponent);
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);
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
FColor : TColor;
FMax : integer;
FMin : integer;
FPBExtendedStyles : TPBExtendedStyles;
Internal property variables
FPosition : integer;
FSelectionColor : TColor;
constructor Create(AOwner: TComponent);
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);
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
FColor : TColor;
FMax : integer;
FMin : integer;
FPBExtendedStyles : TPBExtendedStyles;
Internal property variables
FPosition : integer;
FSelectionColor : TColor;