# Col header.pl - created 26 3 2013 # v 0-1 # taken from: http://wxpython-users.1045709.n5.nabble.com/ListCtrl-SetItemTextColor-SetItemFont-td2348263.html (main.py) # ported 23 3 2013 v 0-1 # with the help of: http://wxpython-users.1045709.n5.nabble.com/column-header-doesn-t-change-td2341548.html use strict; use warnings; use Wx; use 5.014; use autodie; use Carp; use Carp qw {cluck}; use Carp::Always; package MyFrame; use Wx ':everything'; use Wx ':listctrl'; use Wx::Event 'EVT_BUTTON'; use parent -norequire, 'Wx::Frame'; sub new { #1 MyFrame:: my ($class, $parent, $title) = @_; my $self = $class->SUPER::new( $parent, -1, # parent window; ID -1 means any $title, # title [150, 150 ], # position [ 350, 400 ], # size ); my $panel = Wx::Panel->new($self); my $btn_header = Wx::Button->new($panel, -1, 'Header', wxDefaultPosition, wxDefaultSize); EVT_BUTTON ($self, $btn_header, sub { $self->{list_control}->MyFrame::on_header }); $self->{list_control} = Wx::ListCtrl->new($panel, -1, wxDefaultPosition, [320,100], wxLC_REPORT); # create a list control $self->{list_control}->InsertColumn(0, 'Col1', wxLIST_FORMAT_LEFT, 150); $self->{list_control}->InsertColumn(1, 'Col2', wxLIST_FORMAT_LEFT, 150); $self->{list_control}->InsertStringItem( 0, 'Data 1' ); $self->{list_control}->SetItem( 0, 1, 'Data 3'); $self->{list_control}->InsertStringItem( 1, 'Data 2' ); $self->{list_control}->SetItem( 1, 1, 'Data 4'); my $sizer = Wx::BoxSizer->new(wxVERTICAL); $sizer->Add($self->{list_control}, 0, wxALL, 10); $sizer->Add($btn_header, 0, wxALL, 10); $panel->SetSizer($sizer); $panel->Layout(); return $self; } #1 end sub new MyFrame:: sub on_header { my $this = shift; say 'In on_header'; my $column = $this->GetColumn(1); say '$column->GetText =', $column->GetText; $column->SetMask(wxLIST_MASK_TEXT); $column->SetText('NEW TITLE'); my $f = Wx::Font->new(12, -1, wxNORMAL, wxBOLD, 0, 'times new roman'); $column->SetFont($f); $this->SetColumn(1, $column); } #1 end sub on_header # end package MyFrame:: package main; my $frame = MyFrame->new(undef, 'Demonstrate listctrl'); $frame->Show(1); my $app = Wx::SimpleApp->new; $app->MainLoop; 1;