comment on

Dear esteemed PerlMonks

Continuing my odyssey into uncharted waters^*, I need to be able to change (or set) the font and size of the Wx::ListCtrl column headings.
As you can see in the following program, I've succeeded in changing column heading text; but trying to change the font:

my $f = Wx::Font->new(12, -1, wxNORMAL, wxBOLD, 0, 'times new roman');
$column->SetFont($f);

has no effect (although it doesn't raise an error). Full program:

# Col header.pl - created 26 3 2013
# v 0-1
# taken from: http://wxpython-users.1045709.n5.nabble.com/ListCtrl-Set
+ItemTextColor-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', wxDefau
+ltPosition, wxDefaultSize);
        EVT_BUTTON ($self, $btn_header, sub { $self->{list_control}->M
+yFrame::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_LEF
+T, 150);
      $self->{list_control}->InsertColumn(1, 'Col2', wxLIST_FORMAT_LEF
+T, 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;
[download]

In addition, can anyone suggest how to change width and height of the column headings?

Many TIA - Helen
___________________
^*e.g. http://www.perlmonks.org/?node_id=1025321

In reply to Wx::Perl: How to change/set font and size of Wx::ListCtrl column headings? by HelenCr

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Perl-Sensitive Sunglasses
	PerlMonks