| Class TmProgressWnd (unit mProgressForm) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Hide;---------------------------------------------------------------------------
procedure Show;---------------------------------------------------------------------------
function CalculateCenterPos: TPoint;
function ReadHeight: integer;
procedure SetCaption(const NewCaption: string);
procedure SetPosition(const NewPos: integer);| Properties |
property Caption : string
property Max : integer
property Min : integer
property Width : integer
property Height : integer
property Position : integer| Events |
event OnPositionWindow : TWindowPositionEvent| Variables |
FCaption : string;
FMax : integer;
FMin : integer;
FOnWindowPosition : TWindowPositionEvent;
FPosition : integer;
FShowing : boolean;
FWidth : integer;| Constructors |
constructor Create(AOwner: TComponent);---------------------------------------------------------------------------} {-- mProgressWnd component implementation ----------------------------------} {---------------------------------------------------------------------------
| Functions |
procedure Hide;closes and destroys form
---------------------------------------------------------------------------
procedure Show;creates and shows progress form
---------------------------------------------------------------------------
function CalculateCenterPos: TPoint;---------------------------------------------------------------------------
function ReadHeight: integer;---------------------------------------------------------------------------
procedure SetCaption(const NewCaption: string);---------------------------------------------------------------------------
procedure SetPosition(const NewPos: integer);---------------------------------------------------------------------------
| Properties |
property Caption : stringproperty Step: integer read FStep write FStep default 10; window caption, can be updated on runtime
property Max : integer
property Min : integermin, max & step values of progressbar
property Width : integerwindow width
property Height : integerread-only property to read form height useful for setting form position in OnPositionWindow event handler
property Position : integersets surrent progressbar position
| Events |
event OnPositionWindow : TWindowPositionEventevent handler to use custom form position default is centered to owner values are in screen coordinates
| Variables |
FCaption : string;FStep: integer;
FMax : integer;
FMin : integer;
FOnWindowPosition : TWindowPositionEvent;
FPosition : integer;
FShowing : boolean;
FWidth : integer;