sechser has asked for the wisdom of the Perl Monks concerning the following question:
#!/usr/bin/perl use Win32::GUI; # Creating Main Window my $main = Win32::GUI::Window->new(-name => "Main",-width => 310 , -he +ight => 430,-style => WS_OVERLAPPEDWINDOW | 1); # Creating Listview my $listview = $main->AddListView( -title => "Listview", -name => "Listview" , -width => 280 , -height => 380, -top => 10 , -left => 10, -fullrowselect => 0, -gridlines => 1, -hottrack => 0, -style => WS_VISIBLE | 1, ); # Inserting Columns $listview->InsertColumn(-index => 0, -text => "Sessionname"); $listview->ColumnWidth(0,80); $listview->InsertColumn(-index => 1, -text => "Checkboxes"); $listview->ColumnWidth(1,50); $listview->InsertColumn(-index => 2 , -text => "BlaBla" ); $listview->ColumnWidth(2,50); $listview->InsertItem(-item => 0 , -text => "InsertItem"); my $lvitem = $listview->Item(0); my $lvsubitem1 = new Win32::GUI::ListView::SubItem($lvitem,1); my $lvsubitem2 = new Win32::GUI::ListView::SubItem($lvitem,2); my $lvckbox = new Win32::GUI::Checkbox($lvsubitem2, -checked => 1, -na +me => "CkBx" , -text => "Chekbx"); $main->Show(); Win32::GUI::Dialog(); sub Main_Terminate { $main->AddNotifyIcon( -name => "Tray", -tip => '', -icon => '', -id => 222, ); -1; } sub Main_Minimize { $main->Disable(); $main->Hide(); 1; } sub CkBx_Click { print "Radio Clicked\n"; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Listview with checkboxes is it possible ?
by dada (Chaplain) on Mar 12, 2003 at 15:17 UTC | |
|
Re: Listview with checkboxes is it possible ?
by PodMaster (Abbot) on Mar 12, 2003 at 13:30 UTC | |
by dada (Chaplain) on Mar 12, 2003 at 13:50 UTC | |
by PodMaster (Abbot) on Mar 12, 2003 at 13:57 UTC | |
by dada (Chaplain) on Mar 12, 2003 at 14:07 UTC | |
|
Re: Listview with checkboxes is it possible ?
by pg (Canon) on Mar 12, 2003 at 17:08 UTC | |
|
RE: to all that made themselves the trouble.
by Anonymous Monk on Mar 12, 2003 at 18:51 UTC | |
|
Re: Listview with checkboxes is it possible ?
by Tomte (Priest) on Mar 12, 2003 at 13:38 UTC |