FiveTech Software tech support forums

Hi,

I don't think that oIcon should be in inverted comma's

Alex

METHOD AddIcon( oIcon ) CLASS TImageList

local oIco

if ValType( oIcon ) == "C"
if File( "oIcon" )
DEFINE ICON oIco FILENAME oIcon
else
DEFINE ICON oIco RESOURCE oIcon
endif
else
oIco = oIcon
endif

return ILAddIcon( ::hImageList, oIco:hIcon )

Alex,

Fixed, thanks