Bug in TImageList

Bug in TImageList

Postby AlexSchaft » Sat Mar 10, 2007 3:58 am

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 )
User avatar
AlexSchaft
 
Posts: 172
Joined: Fri Oct 07, 2005 1:29 pm
Location: Edenvale, Gauteng, South Africa

Postby Antonio Linares » Sat Mar 10, 2007 8:33 am

Alex,

Fixed, thanks :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42078
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 21 guests