1. snippet for extractIconEx
- Posted by cafromsw at yahoo.com
Jan 11, 2003
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)
WinMain(Win1, Normal)
2. Re: snippet for extractIconEx
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)
>
> WinMain(Win1, Normal)
>
>
>
> TOPICA - Start your own email discussion group. FREE!
>
3. Re: snippet for extractIconEx
- Posted by cafromsw at yahoo.com
Jan 12, 2003
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>
>
>
>
>
