#!/usr/bin/perl -w
use strict;

package i_LC_Header;

use Wx qw[:everything];
use base qw(Wx::Panel);
use strict;
use warnings;
#use i_lib  qw(:i_Mage_common);  # List of subroutines and global variables
# begin i_LC_Header::new
sub new {
	
	my( $self, $parent, $id, $pos, $size, $style, $sizer ) = @_;
	$parent = undef              unless defined $parent;
	$id     = wxID_ANY           unless defined $id;
	$pos    = wxDefaultPosition  unless defined $pos;
	$size   = wxDefaultSize      unless defined $size;
	$style   = wxBORDER_NONE      unless defined $size;
	$sizer   = ""                 unless defined $sizer;
        
	# Panel & sizer
	$self = $self->SUPER::new( $parent, $id, $pos, $size, $style, $sizer); # New Panel
	#__set_format ($self);
	$self-> SetBackgroundColour(Wx::Colour->new(10,10,20));
	$self->SetSizer($sizer);
	$self->{sizer} = $sizer;
        
	return $self;
}

# begin i_LC_Header::AppendColumnHeader
sub AppendColumnHeader {
	
	my( $self, $parent, $id, $pos, $size, $name ) = @_;
	$parent = undef              unless defined $parent;
	$id     = wxID_ANY           unless defined $id;
	$pos    = wxDefaultPosition  unless defined $pos;
	$size   = wxDefaultSize      unless defined $size;
	$name   = ""                 unless defined $name;
	my $style = wxBORDER_NONE;
    
	# Item header
	my $loc_item_pnl = Wx::Panel->new( $self, $id, $pos, $size, $style, "" );
	my $loc_item_szr = Wx::BoxSizer->new(wxHORIZONTAL);
	$loc_item_pnl->SetSizer($loc_item_szr);
	$loc_item_pnl->SetMinSize($size);
	#__set_format ($loc_item_pnl);
	$loc_item_pnl-> SetBackgroundColour(Wx::Colour->new(10,10,20));
	my $loc_item_lbl = Wx::StaticText->new($loc_item_pnl, wxID_ANY, $name, wxDefaultPosition, wxDefaultSize, ); # __xy_size(300), );
	$loc_item_lbl-> SetFont(Wx::Font->new(11, wxFONTFAMILY_SWISS, wxFONTSTYLE_NORMAL, wxFONTWEIGHT_BOLD, ));
	$loc_item_szr->Add($loc_item_lbl,0,0,0);
	$self->{sizer}->Add($loc_item_pnl,0,0,0);
 
	return $loc_item_pnl;
    
}
# end of class i_LC_Header

1;