perl-win32-gui-users

[Guillem C. W. <vac...@es...>]

Today is one day that sometimes I feel I'm turning crazy ....

I make a Listview in a simple program but when I put in my main program =
in a pm module ListView doesn't work (is don't show) and the complete =
name is done. This problem has not appear with other widgets...and =
before put a ListView there was a ListBox that worked well.

Any ideas ???

Guillem Cunillera

##Interf=EDcie gr=E0fica pel Parsev70b
##AUTOR: Guillem Cunillera i Wefers

use Mailtool::gethttp;
use Mailtool::tutor;
use Mailtool::config;
use Mailtool::consultor;
use Mailtool::loginUOC;
use Mailtool::mevesfonts;

use Win32::GUI;
use Win32::Clipboard;
use Win32::API;

package Mailtool::seleccio;

  my $CLIP=3DWin32::Clipboard();
   my $out;


# =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
# FINESTRES
# =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
 =20
$w_principal =3D Win32::GUI::Window->new (
 -maxsize =3D> [600,440],=20
 -width  =3D> 600,=20
 -height  =3D> 440,=20
 -text  =3D> "Seguiment 0.7 - Versi=F3 de prova    ",=20
 -name  =3D> "Mailtool::seleccio::e_w_principal",)
;
=20
$w_principal->AddLabel(
 -font  =3D> $Mailtool::mevesfonts::fo_cursiva,
 -foreground =3D> [0, 0, 0],  # Color del text: negre
 -width  =3D> 200,
 -height  =3D> 20,
 -left  =3D> 5,
 -top  =3D> 55,
 -text  =3D> "Perfils existents",);
=20
$w_principal->AddButton(
 -text  =3D> "NOU PERFIL",
 -font  =3D> $Mailtool::mevesfonts::fo_normal,
 -left  =3D> 350,
 -top  =3D> 275,
 -height  =3D> 25,
 -width  =3D> 110,
 -name  =3D> "Mailtool::seleccio::b_nou_perfil",);
$w_principal->AddButton(
 -text  =3D> "BORRAR PERFIL",
 -font  =3D> $Mailtool::mevesfonts::fo_normal,
 -left  =3D> 350,
 -top  =3D> 205,
 -height  =3D> 25,
 -width  =3D> 110,
 -name  =3D> "Mailtool::seleccio::b_borrar_perfil",);
$w_principal->AddButton(
 -text  =3D> "AJUDA",
 -font  =3D> $Mailtool::mevesfonts::fo_normal,
 -left  =3D> 470,
 -top  =3D> 275,
 -height  =3D> 25,
 -width  =3D> 70,
 -name  =3D> "Mailtool::seleccio::b_ajuda_perfil",);
$bexecucio =3D $w_principal->AddButton(
 -text  =3D> "INFORMACI=D3 DISPONIBLE", # Text al bot=F3
 -font  =3D> $Mailtool::mevesfonts::fo_normal,
 -left  =3D> 80,
 -top  =3D> 270,
 -height  =3D> 30,
 -name  =3D> "Mailtool::seleccio::b_execucio",);
$bsortir =3D $w_principal->AddButton(
 -text  =3D> "SORTIR", # Text al bot=F3
 -font  =3D> $Mailtool::mevesfonts::fo_normal,
 -left  =3D> 500,
 -top  =3D> 380,
 -height  =3D> 30,
 -name  =3D> "Mailtool::seleccio::b_sortir",);=20

my $listview =3D $w_principal->AddListView(
    -name      =3D> "Mailtool::seleccio::listview",
    -text      =3D> "Collons",
    -left      =3D> 5,=20
    -top       =3D> 75,
    -width     =3D> 340,
    -height    =3D> 195,
    -style     =3D> WS_VISIBLE | 2,
    -fullrowselect =3D> 1,
    -gridlines =3D> 0,
    -checkboxes =3D> 0,
    -hottrack   =3D> 1,
=20
);

$listview->InsertColumn(
    -index =3D> 0,=20
    -width =3D> 150,=20
    -text  =3D> "Nom",
);

$listview->InsertColumn(
    -index   =3D> 1,=20
    -subitem =3D> 1,=20
    -width   =3D> 150,=20
    -text    =3D> "Tipus perfil",
);=20

my $dirses =3D "sessions";


# =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
# CRIDES INTERNES
# =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

sub InsertListItem {
    my($perfi, $nom, $qua) =3D @_;
    my $item =3D $listview->InsertItem(
        -item  =3D> $listview->Count(),=20
        -text  =3D> $perfi,=20
        -image =3D> $image,
    );
=20
    $listview->SetItem(
        -item    =3D> $item,=20
        -subitem =3D> 1,
        -text    =3D> $nom,
    );
 $listview->SetItem(
        -item    =3D> $item,=20
        -subitem =3D> 2,
        -text    =3D> $qua,
    );=20
}



# =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
# CRIDES EXTERNES
# =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

# -------------------------------------
sub inicia {
# -------------------------------------
=20
 $Mailtool::loginUOC::NSES=3D"0";

 -d $dirses or mkdir $dirses;
 open ENTSIS,"<sessions/default.txt";
=20
 while($res =3D<ENTSIS>)
 {
  chop ($res);
  my @partim =3Dsplit ',',$res;
  print "-------->>> $partim[0],$partim[1],$partim[2] \n";
  InsertListItem($partim[0],$partim[1],$partim[2]);
 }
 close ENTSIS;
=20
  $w_principal->Show();
 $w_principal->Show();

   $listview->View(1);
   $listview->Update();
 $listview->View(1);
 $listview->Update();

  Win32::GUI::Dialog();  # Inici d'execucio gr=E0fica
}


...