Thanks, Mike.

This looks like a reasonable approach.
It is interesting how you use a single bit map consisting of multiple
images.
I shall try it this evening.
(First I have to think about how to actually produce such composite images
...)

My approach was based on using potentially multiple calls to ImageList_Add
(although only 1 shown in my example) to load a series of files .bmp, .ico
or whatever.
In that respect, my approach (which is that seen in most of the MSDN and
other C examples) is useful.
The programme would only need to deal with each single small image at a time
rather than dealing with a potentially large bmp file.
Each of the many image or icon source files could potentially have different
characteristics that could be passed/ dealt with in the file upload process.

For example, (just for fun!) I was going to try to use a collection of
country flags I found on the web.
They are provided as UK.png, US.png, etc. [I hope png format will be okay
... ?! Maybe these Windows functions convert them to a bmp bit map?]
I already have countries and codes in a tabular list so was intending to
process for each country in turn

200 0 DO ... ImageList_Add ... LOOP

No doubt it is possible, with some thought, to first create the large bmp
file based on all the countries programmatically and then use your approach
to upload them in one go. However, doing that programmatically would
require a similar approach to what isn't working - i.e., using multiple
calls of LoadImage and ImageList_Add.

The question remains as to what is wrong with my code.

My use of LoadImage (or the more specific/ older LoadIcon/ LoadBitmap
variants) has the same objective as your step 4.
4) Get a handle to your bitmap file

The handle is hImage in my code example
By this step, I am seeing large numbers that appear to be handles

Failure (-1 returned) is only seen at the next step when ImageList_Add is
used.

Actually, ImageList_Add and ImageList_AddMasked appear very similar -
apparently both can be used with 1 or more images.
So, there is little difference between our approaches - apart from the fact
that mine isn't working :-(

The other open question remaining is the use of standard resources - i.e.,
how to load pre-defined system icons.

Also, how does one create own resources such as was done to produce the
SwiftForth icon that can be used as a component in any programme simply by
referring to them as a number
   NULL 101 LoadIcon

What is the approach used to associate constants with own icons?

Best Regards,
Douglas

----- Original Message -----
From: "Mike Ghan" <MikeGhan_at_logix-controls.com>
To: <sftalk_at_forth.com>
Sent: Thursday, May 06, 2010 3:33 PM
Subject: [sftalk] Re: Image List

> 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
> ----------------------------------------------------------------------
>

----------------------------------------------------------------------
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 - 08:49:35 PDT