*---------------------- 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