FiveTech Software tech support forums

Today I saw this function of My friend Mastintin
here : http://forums.fivetechsupport.com/viewtopic.php?f=6&t=29805&hilit=gdibmp#p168761

the function create the iconl of a image

and I want ask to You if it is possible create or save into a listview control the thumbnail of a file

for a sample if the file is a image it could create a icon of preview of image

for a sample :

the first is a icon of excel
the second is the preview of second file (image)




Now fopr save the image of the file into listview I made:

nImage := Icon_Read(cFile)
nImage := max(0,ILADDICON( oImageList:hImageList, nImage ) )
oItem = TListViewItem():New( oList )
oItem:cText = cFile
oItem:nImage = nImage
oItem:Create()

but I save only the icon of the file

I wish insert this possibilty to make the preview of the image file and the user can see the image immediately

Silvio,

Nice idea

When you call ILADDICON() you are adding an icon and not a bitmap.

So first, you should convert the icon to a bitmap using FWH function BmpFromIcon()

then instead of calling ILADDICON() you should use

HB_FUNC( ILADD ) // ( HIMAGELIST himl, HBITMAP hbmImage, HBITMAP hbmMask )

or

HB_FUNC( ILADDMASKED ) // ( HIMAGELIST himl, HBITMAP hbmImage, COLORREF nClrMask )


I just saw that we could also use this function:

HB_FUNC( ILLOADIMAGE ) // cFileName, nWidth, nImages, nClrTransparent

that seems to do all the work. You may also try it