>*---------------------- Location Section ------------------------ >* Library: CActiveX.vcx >* Class: CTreeViewBaseCtrl >* Method: Init() >*----------------------- Usage Section -------------------------- >*) Description: >*) Adds the ImageList and TreeView controls to the >*) CTreeViewBaseCtrl container. > >* Scope: >* Parameters: >*$ Usage: >*$ >* Returns: .F. if errors were encountered instantiating >* the TreeView or ImageList objects. Otherwise .T. >*--------------------- Maintenance Section ---------------------- >* >* Change Log: >* CREATED 06/01/98 - KJM >* MODIFIED 06/18/98 - QBT >* Ignore the return value of This.AddImageList() >* MODIFIED 03/16/99 - KJM >* Fixed a typo in the code that determines if the >* ImageList control successfully instantiated >****************************************************************** >LOCAL llRetVal > >*------------------------------------------------------ >*-- Do not allow this class to be directly instantiated >*------------------------------------------------------ >IF IsAbstract(This.Class, 'CTreeViewBaseCtrl') > RETURN .F. >ENDIF > >*------------------------------------------- >*--- Add the ImageList and TreeView controls >*------------------------------------------- >This.AddImageList() >llRetVal = This.AddTreeView() >IF llRetVal > *------------------------------------------------ > *--- Set the TreeView control's dimensions to the > *--- height/width of the CTreeViewBaseCtrl container > *------------------------------------------------ > This.TreeView.Height = This.Height > This.TreeView.Width = This.Width > > *---------------------------------------------- > *--- Store an object reference to the ImageList > *--- in the TreeView's ImageList property > *---------------------------------------------- > IF TYPE('This.ImageList') == 'O' > This.TreeView.Object.ImageList = ; > This.Imagelist.Object > ENDIF >ENDIF > >RETURN llRetVal > >