| Class TExtProgressBar (unit ExtProgressBar) |
TProgressBar
The new class
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure CreateParams(var Params: TCreateParams);
procedure CreateWnd;CreateWnd is responsible for actually creating the window (value of Handle).
procedure Loaded;
function GetPosition: integer;
function GetVersion: TDFSVersion;
procedure SetColor(Val: TColor);
procedure SetExtendedStyles(Val: TPBExtendedStyles);
procedure SetMax(Val: integer);
procedure SetMin(Val: integer);Update the Min property.
procedure SetParams(AMin, AMax: integer);
procedure SetPosition(Val: integer);
procedure SetSelectionColor(val: TColor);
procedure SetVersion(const Val: TDFSVersion);
procedure WMEraseBkGnd(var Msg: TWMEraseBkGnd);| Properties |
property Color : TColor
property ExtendedStyles : TPBExtendedStyles
property Max : integer
property Min : integer
property Position : integer
property SelectionColor : TColor
property Version : TDFSVersion| Events |
| Variables |
FColor : TColor;
FMax : integer;
FMin : integer;
FPBExtendedStyles : TPBExtendedStyles;
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 : TPBExtendedStylesProperty for new styles
property Max : integer
property Min : integerProperties 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;