OpenEuphoria

Help with Windows API ImageList_LoadImage needed

• Posted by 1evan at sbcglobal.net Aug 19, 2003
• 904 views

Using the following definitions, when I call ImageList_LoadImage, it 
always gives me "Image not loaded."
Any ideas why?  Do I not have something defined correctly?  MyIcon.ico 
is a 16x16 icon.

ImageList_LoadImage = link_c_func(comctl, "ImageList_LoadImage", 
{C_INT,C_POINTER,C_INT,C_INT,C_UINT,C_UINT,C_UINT},C_INT)

CLR_DEFAULT = #FF000000

LR_LOADFROMFILE = #0010

Image = allocate_string("MyIcon.ico")

if not 
c_func(ImageList_LoadImage,{NULL,Image,16,1,CLR_DEFAULT,1,LR_LOADFROMFILE}) 
then
    puts(1,"Image not loaded" & '\n')
end if