OpenEuphoria

Re: snippet for extractIconEx

• Posted by cafromsw at yahoo.com Jan 12, 2003
• 560 views

That's odd, when I use addIcon(extractIcon()) under
WinME I am missing the top line of the small icon. 
Whereas extractIconEx() seem to display them properly
on my WinME system.  The icons seem to be in a
different order in Win98's shell32.dll than in
WinME's.  The lower LV is style LVS_ICON I have never
used that style before but I just wanted to make sure
that the large icon was getting displayed properly. 
They are all the same because loadLVInfo doesn't let
you specify an icon and the first icon in an image
list gets diplayed for every line.  I may take a look
at that routine to see how difficult it would be to
add an icon index to the sequence that gets passed to
loadLVInfo.  Chris cafromsw at yahoo.com

--- Dan Moyer <DANIELMOYER at prodigy.net> wrote:
> 
> Chris,
> 
> Not sure what it means, but when I paste your
> alternative function
> "extractIconEx" into Win32Lib, & then run your test
> program, what I get (on
> Win 98 1st ed) is:
> 
> 1.  "little" icons in LV1, with top lines missing:
> 
> LV1 has "Column 1" & a blank column; in "Column 1"
> is a column of three
> SMALL icons, first a dog-eared Windows flag icon
> followed by "test line1",
> then an icon of a row of floppies followed by "test
> line2", then a dog-eared
> text-file (?) icon (with a slanted "A" in lower
> right corner) followed by
> "test line3";  ALL OF THESE HAVE THE TOP LINE
> APPARENTLY MISSING (this COULD
> result from positioning problem on my system, as the
> top icon is right at
> the bottom line of the "Column 1" frame line, and
> the others MIGHT be too
> close to the ones above them?).
> 
> 2.  BIG icons in LV2(?), NOT missing top lines, but
> not in columns:
> 
> What I get below LV1 looks more like a vertical
> scrolled window than a LV
> with columns as specified (ie, it does NOT have any
> columns), and contains:
> in the first ROW, two LARGE icons, both dog-eared
> Windows flag icons, near
> the top but NOT MISSING TOP LINE OF THE ICONS, the
> first with "test line1"
> UNDER it, and the second with "test line2" under it;
> scrolling down is
> another large icon, again the dog-eared Windows flag
> icon, NOT MISSING TOP
> LINE OF THE ICON, directly under the "test line1"
> one, with "test line3"
> UNDER it.
> 
> Dunno if that info helps any.
> 
> Dan Moyer
> 
> 
> ----- Original Message -----
> From: <cafromsw at yahoo.com>
> To: "EUforum" <EUforum at topica.com>
> Sent: Friday, January 10, 2003 5:09 PM
> Subject: snippet for extractIconEx
> 
> 
> > Here's a bit of code to test the extractIconEx
> > function I just posted.  Yahoo mail will mangle it
> bit
> > hopefully it will cut and paste without to much
> > problem.  Chris cafromsw at yahoo.com
> >
> > include win32lib.ew
> >
> > constant Win1 = createEx( Window, "LV Test", 0,
> > Default, Default, 400, 300, 0, 0)
> >
> > constant LV1 = createEx( ListView, {"Column 1"},
> Win1,
> > 4, 10, 300, 100,
> >
> > or_all({LVS_REPORT,LVS_SHOWSELALWAYS}), 0)
> >
> > constant LV2 = createEx( ListView, {"Column 1"},
> Win1,
> > 4, 120, 300, 100,
> >
> > or_all({LVS_ICON,LVS_SHOWSELALWAYS}), 0)
> > with trace
> > object OK
> >
> > OK = setLVInsert(1) -- append to end of list
> >
> > seq sq sq = {}
> > seq NewIco NewIco = {}
> >
> > NewIco &= extractIconEx({"shell32.dll", 1})
> > NewIco &= extractIconEx("disks04.ico")
> > NewIco &= extractIconEx({"shell32.dll", 2})
> >
> > for i = 1 to 3 do
> > --ic &= addIcon(extractIcon({"shell32.dll",i}))
> >   OK = addLVItem(LV1, NewIco[i], "test line" &
> > sprint(i))
> >   sq = append(sq, {"test line" & sprint(i)})
> > end for
> >
> > loadLVInfo(LV2, sq)
<snip>

> 
> 
>
>