Douglas,

I can't give you an exact example as our code relies on many other
files. So here is the general procedure:

1) Read bitmap .BMP file into memory *************************
  The bitmap should contain multiple images side by side in a single
row. Use an odd color as the background (I use dark purple) for step 5.

2) Create your listview control***********************************

3) Create Image list *****************************************

: CREATE-IMG-LIST ( sizeX sizeY -- hImgList )
   ILC_COLOR32 ILC_MASK OR 20 10=20
   ( cx cy flags Initial# cGrow -- hImgList ) ImageList_Create ;

4) Get a handle to your bitmap file ******************************

bitmapAddr ( from step 1 ) HWND GetDC DUP >R SWAP
[OBJECTS BITMAP MAKES BM OBJECTS] BM GET-HANDLE
R> ReleaseDC DROP

5) Add the bitmap images to the Image List created in step 3 *****

hImgList ( from step 3 ) hBitmap ( from step 4 )=20
rgbMask ( RGB color of bitmap background )
ImageList_AddMasked DROP
hBitmap ( from step 4 ) DeleteObject DROP

6) Assign the image list to your listview ******************

hLISTVIEW ( handle to your listview )=20
LVM_SETIMAGELIST LVSIL_STATE hImgList ( handle from step 3 )
SendMessage DROP

7) Add items to your listview ******************************
  Be sure to set LVITEM structure's state bits 12 to 15 to your image
index

You can use an image list in any window:

: DRAW-IMG-LIST-DC ( hImgList img# hDc x y -- )
   ILD_TRANSPARENT
   ( hIml index hdcDst x y fStyle -- res ) ImageList_Draw DROP ;

Hope this helps

Mike

-----Original Message-----
From: sftalk-bounce_at_forth.com [mailto:sftalk-bounce_at_forth.com] On Behalf
Of Douglas Reid
Sent: Thursday, May 06, 2010 12:05 AM
To: sftalk_at_forth.com
Subject: [sftalk] Image List

Hello All,
I'm trying to create an image list which can thereafter be used in e.g.,
a ListView.

The call to ImageList_Add fails no matter how I try to previously load
the image that is passed to it.

ImageList_Create appears to be returning a handle to an image list.
Apart from variant 4, use of LoadImage or LoadIcon appears to be
returning a handle to an image.
Thus, it seems that the problem is with ImageList_Add or what is being
passed to it being inappropriate in some way (perhaps an incompatible
with the previously created image list?).

cat.ico is a 32 x 32 file (it came with a Microsoft example).
To make it easy to find by the programme, it is located in the same
directory.
On that basis, is it okay to just use Z" cat.ico" ? Or, do I need to
specify a full path name?
I also copied to the root directory and tried as: Z" c:\cat.ico"

I tried also the alternatives of LoadIcon and the more general LoadImage
which has superceded it.

For other variants, I tried using predefined names such as OBM_RGARROW
(These can be seen at the bottom of
http://msdn.microsoft.com/en-us/library/ms648045(v=3DVS.85).aspx )

Books and Microsoft examples generally show use of MAKEINTRESOURCE to
prepare an integer in some way such that it is appropriate to pass to
LoadIcon, etc.
My understanding is that this just ensures that the upper 16 bits are
zeros.

Petzold in Chapter 10, "Programming Windows 95" explains about resource
files by which icons and images can be made available to a programme.
This relates to C-programming and involves stuff being in files such as
resource.h and I am unable to understand how a similar approach could be
used in SwiftForth.

My variant 4 was clearly doomed to failure since something like 500
CONSTANT CAT_ICO could only be meaningful if provided in a certain
context such as in a "resource file" of some sort. Otherwise any
constant in a programme could be inappropriately linked to an icon or
image file that happens to have the same number.

SwiftForth itself uses NULL 101 LoadIcon
i.e., the constant 101 relates to the SwiftForth logo icon.

How could one similarly relate constants to one's own icons e.g., 500
being associated with cat.ico to result in a cat being seen?!

sf.ico can't be found as a separate file so presumably has been
integrated into the exe file in some way?
How could one do similarly in an own application with cat.ico ?

Best Regards,
Douglas

{ --------------------------------------------------------------------
ImageListB.f

Infrastructure to support collections of images of same size,
each of which can be referred to by its index.
Used by ListView, TreeView and other controls

---------------------------------------------------------------------- }
\ Function: MAKEINTRESOURCE ( wInteger -- res ) \ "Not found" (note
that this is a Windows macro)
\ Implementation of a Windows macro of same name:
: MAKEINTRESOURCE ( n -- n')
   $0000FFFF AND
   ;

\ ImageList_Create function. Creates a new image list.
\ HIMAGELIST ImageList_Create(
\ int cx,
\ int cy,
\ UINT flags,
\ int cInitial,
\ int cGrow
\ );

Function: ImageList_Create ( cx cy flags cInitial cGrow -- res )

\ 0 ILC_COLOR
\ 4 ILC_COLOR4
\ 8 ILC_COLOR8
\ 16 ILC_COLOR16
\ 24 ILC_COLOR24
\ 32 ILC_COLOR32
\ 254 ILC_COLORDDB
\ 1 ILC_MASK
\ ? ILC_MIRROR
\ ? ILC_PERITEMMIRROR

\ --------------------------------------------------------------------
\ ImageList_Add Function Adds an image or images to an image list.
\ Copyint ImageList_Add(
\ __in HIMAGELIST himl,
\ __in HBITMAP hbmImage,
\ __in_opt HBITMAP hbmMask
\ );

Function: ImageList_Add ( himl hbmImage hbmMask -- res )

\ --------------------------------------------------------------------
\ LoadImage Function
\ Loads an icon, cursor, animated cursor, or bitmap.
\ CopyHANDLE LoadImage(
\ __in HINSTANCE hinst,
\ __in LPCTSTR lpszName,
\ __in UINT uType,
\ __in int cxDesired,
\ __in int cyDesired,
\ __in UINT fuLoad
\ );

Function: LoadImage ( hinst lpszName uType cxDesired cyDesired fuLoad --
res )

\ uType:
\ 0 IMAGE_BITMAP
\ 2 IMAGE_CURSOR
\ 1 IMAGE_ICON

\ fuLoad:
\ 0 LR_DEFAULTCOLOR
\ 8192 LR_CREATEDIBSECTION
\ 64 LR_DEFAULTSIZE
\ 16 LR_LOADFROMFILE
\ 4096 LR_LOADMAP3DCOLORS
\ 32 LR_LOADTRANSPARENT
\ 1 LR_MONOCHROME
\ 32768 LR_SHARED
\ 128 LR_VGACOLOR

32751 CONSTANT OBM_RGARROW

\ --------------------------------------------------------------------
NULL VALUE hImageList \ Image list handle
NULL VALUE hImage \ Image handle
NULL VALUE ImageIndex \ Index of image added to ImageList

500 CONSTANT CAT_ICO
501 CONSTANT DOG_ICO
502 CONSTANT FISH_ICO

: InitListViewImageList ( -- )
   32 32 ( cx cy)
   ILC_COLOR ( cx cy flags)
   \ ILC_COLOR32 ( cx cy flags)
   3 0 ( cx cy flags cInitial=3D3 cGrow=3D0) \ Increase
numbers if more to be added!
   ImageList_Create ( hImageList|null)
   DUP TO hImageList

\ { ------- Variant 1 -------------------------------------------------
   NULL ( hImageList hinst=3DNULL)
   \ Z" cat" ( hImageList hinst Zaddr)
   \ Z" cat.ico" ( hImageList hinst Zaddr)
   Z" c:\cat.ico" ( hImageList hinst Zaddr)
   IMAGE_ICON ( hImageList hinst Zaddr uType)
   \ IMAGE_BITMAP
   0 0 ( hImageList hinst Zaddr uType cxDesired
cyDesired)
   \ 32 32
   LR_LOADFROMFILE ( hImageList hinst Zaddr uType cxDesired
cyDesired fuLoad)
   \ LR_SHARED OR
   LoadImage ( hImageList hImage|null)
\ -------------------------------------------------------------------- }

{ ------- Variant 2 -------------------------------------------------
   NULL ( hImageList hinst=3DNULL)
   OBM_RGARROW ( hImageList hinst=3DNULL n)
   \ MAKEINTRESOURCE ( hImageList hinst=3DNULL n')
   IMAGE_BITMAP ( hImageList hinst=3DNULL n' uType)
   0 0 ( hImageList hinst Zaddr uType cxDesired
cyDesired)
   \ 32 32
   LR_LOADFROMFILE ( hImageList hinst Zaddr uType cxDesired
cyDesired fuLoad)
   LR_SHARED OR
   LoadImage ( hImageList hImage|null)
-------------------------------------------------------------------- }

{ -------- Variant 3 -----------------------------------------------
   NULL
   IDI_APPLICATION
   MAKEINTRESOURCE
   LoadIcon
-------------------------------------------------------------------- }

{ ---------- Variant 4 ------------------------------------------------
   \ Unsurprisingly, this fails (returns 0):
   NULL
   CAT_ICO MAKEINTRESOURCE
   LoadIcon
-------------------------------------------------------------------- }

{ ---------- Variant 5 --------------------------------------------
   \ SwiftForth manual page 133:
   NULL
   101
   \ MAKEINTRESOURCE
   LoadIcon
---------------------- ---------------------------------------------- }

   DUP TO hImage

   NULL ( hImageList hImage NULL)
   ImageList_Add ( index|-1)
   TO ImageIndex \ Returning -1 :-(
   CR
   CR ." Value of hImageList: " hImageList . CR
   CR ." Value of hImageList: " hImage . CR
   CR ." Value of ImageIndex: " ImageIndex . CR

   \ Now should use DeleteObject:
   \ hImage DeleteObject DROP

   \ Now load and add next image to the image list ...
   ;

CR
CR .( Type InitListViewImageList to run.)
CR

----------------------------------------------------------------------
sftalk_at_forth.com The SwiftForth programming discussion email list
To unsubscribe, send subject "unsubscribe" to sftalk-request_at_forth.com
For list command help, send subject "help" to sftalk-request_at_forth.com
Message archives are located at http://www.forth.com/archive/sftalk
----------------------------------------------------------------------
This list is a forum for SwiftForth users. For product support and
bug reports, please send email to support_at_forth.com
----------------------------------------------------------------------
Received on Thu May 06 2010 - 07:34:17 PDT