Click above to get retro games delivered to your door ever month!

WProgressDialog:Init() Method
Construct a progress dialog object
------------------------------------------------------------------------------

Syntax
WProgressDialog{ <oParent>, [ <cnId_aDlg> ] , [ <lCreate> ] }
    -->   SELF

Arguments
<oParent> is the parent (owner) window object.  Just as
<oParent> is the owner of the dialog object, the parent's hWnd
will be the actual owner of the dialog's window.

<cnId_aDlg> optionally specifies a resource id (numeric or
string) or a dynamic dialog structure (as returned e.g. by the
CreateDialog() / AppendDialog() functions).  If this is NIL,
a dynamic dialog is constructed, containing a cancel button
and a progress bar.

<lCreate> specifies whether the dialog object's Create()
method is to be invoked immediately.  Usually you want the
default (.T.).

Returns
SELF.

Description
This method initialises a progress dialog that displays a
coloured rectangle being filled as an operation progresses.

By default, this method includes a Cancel button in the
dialog.  If you don't want the user to have such a button,
supply a dialog that doesn't have one.

Example
// From SOURCE\OO\PBAR.PRG:
METHOD HughPBar()                                    ;
       INLINE ::oPD := WProgressDialog{self},         ;
              ::oPD:Text := "Hello Hugh...",          ;
              ::oPD:TextDoneColor := RGB(0,0,0),      ;
              ::oPD:TextToDoColor := RGB(0,0,0),      ;
              SetTimer(::hWnd, 1, 250)