Unit mProgressForm

---------------------------------------------------------------------- TmProgressWnd - simple modal-like progress window for Delphi 2+ Properties: Show, Hide, Min, Max, Position, Width Event handlers: OnPositionWindow Freeware by Ahto Tanner (ahto@moonsoftware.ee), Moon Software (http://www.moonsoftware.ee) You may not sell this component and include it in your commercial collection. Version 1.0, May 30, 1997 - initial version -----------------------------------------------------------------------

Classes

TfrmProgress -
TmProgressWnd -

Functions

Register - ---------------------------------------------------------------------------

Types

TWindowPositionEvent

Constants

BORDER_OFFSET
DEFAULT_WIDTH

Variables

FParentWnd
frmProgress


Functions


procedure Register;

---------------------------------------------------------------------------

Types


TWindowPositionEvent = procedure(var LeftPos, TopPos: LongInt) of object

Constants

BORDER_OFFSET = 20

space on left, right, top, bottom of progress bar

DEFAULT_WIDTH = 256

default form width

Variables

FParentWnd : integer

frmProgress : TfrmProgress