PERL GUI USERS,  I can’t get image to display in TreeView.   HELP PLEASE!!

-Eric

 

use Win32::GUI;

 

$M = new Win32::GUI::Menu(

    "&File"     => "File",

    " > E&xit"  => "Exit"

);

 

$W = new Win32::GUI::Window (

    -title    => "TreeView Example",

    -menu     => $M,

    -name     => "Window",

    -left     => 125,

    -top      => 25,  

    -width    => 550,

    -height   => 500,

    -style    => WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX,

);

 

$Bitmap = new Win32::GUI::Bitmap("$PWD\\16pixels_sq.bmp");   

$IL = new Win32::GUI::ImageList(16, 16, 0, 1, 0);

$IL->Add($Bitmap,0);

 

$TV = $W->AddTreeView (

     -name => "TV",

     #-font => $SFont,

     -left      => 10,

     -top       => 50,

     -width     => 150,

     -height    => 350,

     -lines     => 1,

     -rootlines => 1,

     -buttons   => 1,

     -visible   => 1,

     -checkboxes => 0,

     -imagelist => $IL,

);

 

# $TV->SetImageList($IL, 0);       #---  0 used for Treeviews and not 1

 

$TV->BackColor("16316608");

 

$Status = $W->AddStatusBar(

    -name => "Status",

    -text => " ",

    -font => $SFont

);

 

$node = $TV->InsertItem(-text => "Hello", -indent => 1, -image => 1,

                                                 -selectedimage => 0);

$TV->InsertItem(-parent => $node, -text => "World");

$TV->InsertItem(-parent => $node, -text => "Utah");

 

$W->Show();

$W->BringWindowToTop();

 

#####################

#  Event Handler

#####################

Win32::GUI::Dialog();  #-- enter event handler

 

##################

sub TV_NodeClick {

##################

    my $node           = shift;

    my %nodeinfo    = $TV->ItemInfo($node);

    my $text            = $nodeinfo{-text};

    my $parent       = $TV->GetParent($node);

 

    if ($parent != 0) {

        my %parentinfo  = $TV->ItemInfo($parent);

        my $ptext       = $parentinfo{-text};

        $Status->Text("parent=$parent, node=$node, ptext=$ptext, text=$text");

        $Status->Update();

    } else {

        $Status->Text("parent=$parent, node=$node, text=$text");

        $Status->Update();

    }

}

 

##################

sub Exit_Click {

##################

    return -1;          #-- stops event handler

}

 

######################

sub Window_Terminate {

######################

    return -1;          #-- stops event handler

}