Ok. Since you did so well helping me out with my main question, I'm hoping you can help me out with the side question I snuck into the comments of the original code.
Namely, why do the images completely fail to display when, instead of passing the image list when I create the TreeView, I try to add it later using $tv->SetImageList($il, 1); (where 1 is the value of TVSIL_NORMAL, unless I'm mistaken).
In other words, why doesn't the following work:
#!perl/bin/perl
use warnings;
use strict;
use Win32::GUI;
my $main = Win32::GUI::Window->new(
-name => 'Main',
-width => 300,
-height => 250,
);
my $il = Win32::GUI::ImageList->new(16, 16, 0x0011, 1, 1);
$il->Add('FolderClosed.bmp', 'FolderClosedMask.bmp');
my $tv = $main->AddTreeView(
-name => 'TreeView',
-width => 280,
-height => 200,
-top => 10, -left => 5,
-buttons => 1,
-rootlines => 1,
-lines => 1,
#-imagelist => $il, # Instead of doing this...
);
# I want to do this:
$tv->SetImageList($il, 1);
my $root = $tv->InsertItem(
-text => 'Foo',
-indent => 1,
-image => 0,
);
$tv->InsertItem(
-text => 'Bar',
-indent => 1,
-image => 0,
);
$tv->InsertItem(
-text => 'Baz',
-indent => 1,
-image => 0,
-parent => $root,
);
$main->Show(1);
Win32::GUI::Dialog();
sub Main_Terminate {
return -1;
}
In case you're curious why I would want to use SetImageList instead, it's because I'm actually using The GUI Loft to create the window, and don't have (easy) access to the options during creation of the TreeView. Also, I'm just curious why it's not working. :)
Anyway, thanks again for your help before, and a million thanks if you are able to help me again. :p
P.S. Welcome to the Monastery. Monk in 2 weeks, eh? You're definately doing well around here. Congrats! :D
bbfu
Black flowers blossom
Fearless on my breath | [reply]
[d/l]
[select] |
Yah, I saw those, but thought the other solution would be sufficient ;-) Also, I saw the ICON one which I was not able to track down in the time I allowed my self.
Ok, this one was actually pretty easy to track down.
Now, since it sounds like you will be doing quite a bit with win32 stuff I thought
I'd take some time to go through the process I used in tracking these types of things down
in the hopes that it will be of more help to you in the long run.
You know, the "Tech'em to fish rather than Feed'em a fish" thing :-)
I'm hungry, just gimme da fish!
Ok, so here's the answer: Use a '0'(zero) as the type parameter.
$tv->SetImageList($il, 0); # Use Flag TVSIL_NORMAL for MS TreeView_Set
+ImageList()
The Flag TVSIL_NORMAL Indicates the normal image list, which contains selected, nonselected,
and overlay images for the items of a tree-view control. You can read more on it here:
TreeView_SetImageList
How do ya catch'em
When using something like the Win32:GUI module and something does not work right, the first thing
I do is just blame it on Microsoft ;-)
No, really I'm not joking, their APIs often have lots of parameters/options which interact with each other in sometimes less than obvious ways sometimes depending on values in other parameters witin the API call. I'm not bashing MS, this is just the way it is, IMHO. So, to resolve these problems you have to dig into the MS Docs and check the parms!
In order to do this, however, you have to track down each MS API call being made.
So, in this case I just started with the method that worked, per your example and walked through it.
Starting with my $tv = $main->AddTreeView, go into GUI.pm and look within the TreeView package
and you'll see that is really just calls new, which ends up in GUI.xs as _new with a parm of
"WIN32__GUI__TREEVIEW". Then in GUI.xs this is used in a switch statement which leads to a section
where the constructor options are processed. Looking a little deeper is seems that the "-imagelist"
parameter is just saved off into a 'C' structure tagPERLWIN32GUI_CREATESTRUCT. So, this appears to be
uninteresting for our purposes, it is a dead-end.
Moving on to the problem call $tv->SetImageList($il, 24);: Look for it in GUI.pm and you'll see that it does not exist. OK fine, check for it GUI.xs and you'll see there are several Methods by that name, so be sure to
find the one in the TreeView package.
MODULE = Win32::GUI PACKAGE = Win32::GUI::TreeView
...
METHOD:SetImageList(IMAGELIST, [TYPE])
...
RETVAL = TreeView_SetImageList(handle, imagelist, type);
Finally, we come to where the MS API is called, TreeView_SetImageList().
Look this API call up in the MS Docs (MSDN) and you'll read that type controls the interpretation
of imagelist. The options are TVSIL_NORMAL, TVSIL_STATE; and NORMAL sounds like the one for our
needs. So, I look it up in the include files to get its value of '0' (zero).
So, the lesson here is (as in the previous example) when using MS APIs in particular, ALWAYS check out those dang parameters ;-}
Finally, the Caveats Please keep in mind that the break down above is only meant to be helpful, NOT to be preachy or anything else; I know i hate being preached to. Also, there are certainly other ways to go about finding the answer. And most definitly there are better ways to explain it that how I did above. Also, I may have ommitted something along the way. ;-)
ANYHOW, I sincerely hope this helps.
| [reply]
[d/l]
[select] |
Ok, so here's the answer: Use a '0'(zero) as the type parameter.
Gah! At one point I tried using 0, but it was before I got the simple test-case working properly, so there was some other issue that caused it not to work. Then, after the test-case was working, I went and looked it up on MSDN (though I actually used the reference for CTreeCtrl::SetImageList but it indicated the same thing: I needed to use TVSIL_NORMAL). Unfortunately, when I tried to look up the value for TVSIL_NORMAL on Google, I got some page indicating it should be 1, and I didn't think to re-try 0.
So, where are these include files you looked up the value of TVSIL_NORAML in? :)
Anyway, I appreciate all your help on this. Hopefully I can figure the rest of it out on my own. :p
bbfu
Black flowers blossom
Fearless on my breath
| [reply] |
| [reply] |
try once to use ".ico" file instead of ".bmp". Hope it will work.
How is changing formats a solution? Win32 is all about bitmaps.
Besides, the question was posted in 2003 and bbfu was last here 3 years ago. Either bbfu is married now, or he has a new girlfriend, or finished the program, or she no longer cares about wallpaper.
| [reply] |
Ah! Works perfectly! Thanks ever so much.
bbfu
Black flowers blossom
Fearless on my breath
| [reply] |
| [reply] |