Use cImageList.Pkg

//****************************************************************************
// $Module type: CLASS
// $Module name: cWizardImageList
// $Author     : VO
// Created     : 07/22/01 @ 4:11
//
// Description
//
// $Rev History
//    07/22/01 VO Module header created
//****************************************************************************
Class cWizardImageList Is A cImageList
   //****************************************************************************
   // $Module type: PROCEDURE
   // $Module name: DoLoadTransparentImage
   // $Author     : VO
   // Created     : 07/22/01 @ 4:12
   //
   // Description
   //    When the load is not OK we present a messagebox with the name of the
   //    image we could not load to the user.
   //
   // $Rev History
   //    07/22/01 VO Module header created
   //****************************************************************************
   Procedure DoLoadTransparentImage String sImageName Integer iTransparentColor
      Integer iIndex

      Get AddTransparentImage sImageName iTransparentColor To iIndex
      If (iIndex = -1) Begin
         Send Info_Box ("Could not load" * sImageName) "XML2DF - Warning"
      End
   End_Procedure // DoLoadTransparentImage
End_Class // cWizardImageList