[perl-win32-gui-users] RE: TreeView Image not showing

[Eric Hansen]

I GOT IT YA'LL!!         Below Code WORKS.   -ERIC

 

 

use Win32::GUI;

 

$PWD=Win32::GetCwd();  #-- save application directory

 

$SFont = new Win32::GUI::Font(

    -name => "Courier New",

    -size => 8,

    -height => -11,

    -weight => 700);

 

$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\\13pixel_sq.bmp");    

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

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

 

$TV = $W->AddTreeView ( 

     -name => "TV",

     -left      => 10,

     -top       => 50,

     -width     => 150,

     -height    => 350,

     -lines     => 1,

     -rootlines => 1,

     -buttons   => 1,

     -visible   => 1,

     -checkboxes => 0,

     -imagelist => $IL,

);

 

$TV->BackColor("16316608");

 

$Status = $W->AddStatusBar(

    -name => "Status",

    -text => " ",

    -font => $SFont

);

 

$node = $TV->InsertItem(-text => "Pizza", -image => 0);

 

#-- I don't want to show an image for children so I

#-- have to display a image that does not exist in the imagelist

#-- in order to prevent the parent image from showing for the

#-- kids.  BUG?

 

$TV->InsertItem(-parent => $node, -text => "Small",  -image => 1);

$TV->InsertItem(-parent => $node, -text => "Medium", -image => 1);

$TV->InsertItem(-parent => $node, -text => "Large",  -image => 1);

$TV->InsertItem(-parent => $node, -text => "Giant",  -image => 1);

 

$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("pnode=$parent, node=$node, ptext=$ptext,
text=$text");

        $Status->Update();

    } else {

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

        $Status->Update();

    }

}

 

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

sub Exit_Click {

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

    return -1;          #-- stops event handler

} 

 

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

sub Window_Terminate {

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

    return -1;          #-- stops event handler

}

 

-----Original Message-----
From: Eric Hansen [mailto:[EMAIL PROTECTED] 
Sent: Thursday, September 02, 2004 3:18 PM
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: TreeView Image not showing

 

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

-Eric