Foro - Perl en Español

por **explorer** » 2011-09-28 11:16 @511

No sé muy bien por qué falla en primera opción, pero sí que veo un problema y un detalle.

El problema es que los bucles while() pueden entrar en bucle infinito: vas incrementando de línea en línea, pero la condición de salida es mientras $text sea una cadena vacía, lo cual creo que es cierto para todas las líneas que están más allá de las líneas existentes de la rejilla.

Deberías poner un control más, algo así:

while ($text eq "" and $row <= $GridC->GetRows()) {

siendo $GridC->GetRows() el número de líneas actuales de la rejilla.

Y el detalle: el código para activar y desactivar los controles, siempre es el mismo. Solo cambia el valor a poner en las celdas.

Quedaría algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub Grid_Click {
    my ( $row, $col ) = @_;
     
    my $estado  = $GridC->GetCellCheck( $row, $col );    
     
    if ($col == 0) {    # si el clic es en la primera columna...
        $col = 1;       #    pasamos a la siguiente celda
        $row++;
 
        my $max_row = $GridC->GetRows();                  # tamaño de la rejilla
 
        do {                                              # hacemos...
            $GridC->SetCellCheck( $row, $col, $estado );  # todos los controles iguales
 
            $row++;                                       # en todas las filas
 
        } while (                                         # mientras 
                 $row < $max_row                          # estemos dentro de la rejilla,
             and $GridC->GetCellText($row, $col) eq ""    # y no haya texto
        );
    }
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El porqué comprobamos antes el valor de $row que si la celda contiene texto, es por una cuestión de eficiencia (se deja al lector el averiguarlo).

## Pantalla contactos ##
 
my $ventanaC = Win32::GUI::Window->new(
        -name => 'Main2',
        -text => 'Contactos',
        -pos => [ 400, 200 ],
        -width => 600,
        -height => 600,
        -background => [153,0,0],
        -onResize   => \&Reajustar,
        -parent  => $ventanap,
);
 
$ventanaC->AddButton(
        -name => "Button5",
        -text => "Volver",
        -pos  => [ 430, 500 ],
        -size => [ 130, 35 ],
);
 
$ventanaC->AddButton(
        -name => "Button6",
        -text => "AñadirContacto",
        -pos => [ 20, 100 ],
        -size => [ 150, 35 ],
);
$ventanaC->AddButton(
        -name => "Button7",
        -text => "AñadirGrupo",
        -pos => [ 20, 150 ],
        -size => [ 150, 35 ],
);
$ventanaC->AddButton(
        -name => "Button8",
        -text => "Eliminar",
        -pos => [ 20, 200 ],
        -size => [ 150, 35 ],
        -disabled => 1,
);
$ventanaC->AddButton(
        -name => "Button9",
        -text => "SeleccionarTodo",
        -pos => [ 20, 300 ],
        -size => [ 150, 35 ],
);
$ventanaC->AddButton(
        -name => "Button10",
        -text => "DeseleccionarTodo",
        -pos => [ 20, 350 ],
        -size => [ 150, 35 ],
);
 
my $GridC = $ventanaC->AddGrid (
      -name    => "Grid",
      -pos     => [200, 50],
      -size    => [360, 400],
      -rows    => 1,
      -columns => 4,
      -fixedrows    => 1,
      -fixedcolumns => 0,
      -editable => 1,
  ) or die "new Grid";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

He usado metodos como:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub Reajustar {
    
  my ($self) = @_;
  my ($width, $height) = ($self->GetClientRect())[2..3];
  $self->Grid->Resize($width+1, $height+1) if exists $self->{Edit};
  
}
sub ventanaC_Resize {
    
    my ($width, $height) = ($ventanaC->GetClientRect)[2..3];
    $GridC->Resize ($width, $height);
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-09-29 13:03 @585

No conozco apenas nada de Win32::GUI, pero, ¿no es posible decirle en las propiedades de la rejilla que se autoajuste al tamaño del control padre en que reside.

Vamos, es algo normal en la construcción de los diálogos... no realizarlo de forma programada, sino que es una de las propiedades del widget.

por **Txemaracas** » 2011-09-30 06:31 @313

No, en principio lo he intentado con -resizable =>1, pero no lo he conseguido. Por si a alguien le interesa, he conseguido hacerlo con el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub ventanaC_Resize {
    my ($width, $height) = ($ventanaC->GetClientRect)[2..3];
    $GridC->Resize ($width - 240, $height-200);
    $ventanaC->Button5->Left($width-150);
    $ventanaC->Button5->Top($height-50);
    $ventanaC->Button9->Top($height-250);
    $ventanaC->Button10->Top($height-200);
    
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El problema que veo es que en el Grid las celdas quedan muy pequeñas. Me gustaría que ocuparan todo el ancho de la tabla. Quizás esto tenga también algún parecido en la forma de hacerlo con Gtk o algún otro módulo.

Otra cosilla más, para poder cambiar el estado del check_box la celda tiene que ser editable. ¿Se puede hacer que solo sean editables las celdas que contienen el check_Box?

por **explorer** » 2011-09-30 10:00 @458

En la propia sinopsis del módulo Win32::GUI::Grid aparecen las líneas que activan el redimensionado:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# Resize Grid Cell
$Grid->AutoSize();
 
# Event loop
$Window->Show();
Win32::GUI::Dialog();
 
# Main window event handler
sub Window_Terminate {
  return -1;
}
 
sub Window_Resize {
  my ($width, $height) = ($Window->GetClientRect)[2..3];
  $Grid->Resize ($width, $height);
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Te recomiendo que mires, en esa página, todas las propiedades y métodos que contengan la palabra 'size'.

En cuanto a la editabilidad de las celdas, creo (viendo esa página), que debería ser con SetCellEditable().

Lo que no estoy seguro es que se pueda hacer eso: editar el texto de la caja con la opción. Que yo recuerde, eso no lo he visto nunca en Windows. Y si lo he visto, era con una imitación: una celda pequeña que solo contenía el botón de opción, y la celda de la derecha, editable.

por **Txemaracas** » 2011-09-30 10:59 @499

Bueno, eso ya lo he utilizado y no funciona, pero gracias de todos modos. Intentaré darle una anchura específica a la celda. En cuanto a lo de editable he añadido una columna entre el nombre del contacto y el nombre del grupo y he introducido los check_box ahí para intentar lo que has dicho tu de hacer que la columna de la derecha no sea editable.

por **Txemaracas** » 2011-10-03 06:16 @303

Hola. Tengo un problemilla que no consigo ver el fallo. Lo que quiero es que cuando alguna casilla este marcada el botón eliminar se ponga Enable y cuando no esté ninguna marcada se ponga Disable. Lo que hago es llamar la subrutina comprobarMarcados() para que me diga si hay alguna casilla marcada. Me devolvería el estado que sería 0 o 1 y desde el Grid_Click pondríamos según cual sea el estado el botón disable o enable. El problema es que no lo hace bien , hay veces que marco casillas y no lo pone a enable o las marco y al quitarlas sigue el botón Enable.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub comprobarMarcados {
    
    my $max_row = $GridC->GetRows();
    print "El numero de lineas que hay aohra es: ",$max_row,"\n";
    my $row = 1;
    my $col = 0;
    my $estado=0;
    while ($row<$max_row and $estado==0){
        
        if ($col == 0){
            
            $estado = $GridC->GetCellCheck($row, $col);
            $row++;
            $col = 2;
           
        }elsif($col == 2){
            
            while ($GridC->GetCellText($row, $col) ne "*" and $estado==0){
                
                $estado = $GridC->GetCellCheck($row, $col);
                $row++;
                
            }
            $col = 0;
            
        }
    }
    
    return $estado;
        
}
 
 
sub GridC_Click {
    
    
     my ($row, $col) = @_;
 
    my $estado = $GridC->GetCellCheck($row, $col);
    
    my $text = &comprobarMarcados();
    
 
    if ($text==1){
        
        $ventanaC->Button8->Enable();
        
    }elsif ($text==0){
        
        $ventanaC->Button8->Disable();
        
    }
        
    if ($col == 0) {    
        $col = 2;       
        $row++;
 
        my $max_row = $GridC->GetRows();                  
        
        while ($row < $max_row and $GridC->GetCellText($row, $col) ne "*"){
               
            $GridC->SetCellCheck( $row, $col, $estado );  
 
            $row++;                                                 
        }
     }  
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-10-03 10:50 @493

Si $max_row contiene el número de filas, y $row comienza en 1 (como indica la línea 5), entonces en la línea 8 estás impidiendo que $row nunca valga $max_row (la última línea del Grid).

Debes cambiar el '<' por un '<='.

Lo mismo para la línea 60.

por **Txemaracas** » 2011-10-03 16:22 @724

No, eso no me ha funcionado. De hecho no me hace falta, creo que llegue hasta la última línea puesto que la última no tiene check_box. He cambiado un poco el código y la verdad, se activa cuando pulso tanto el grupo como el contacto pero solo se desactiva, por ejemplo, cuando solo está un contacto activado y lo desactivo entonces si se deshabilita el botón. El caso es que cuando está activado el check_box del grupo entero y lo desactivo el botón no se deshabilita.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub comprobarMarcados {
    
    my $max_row = $GridC->GetRows();
    my $row = 1;
    my $col = 0;
    my $estado=0;
    while ($row<$max_row and $estado==0){
        
        if ($col == 0){
            
            $estado = $GridC->GetCellCheck($row, $col);
            $row++;
            $col = 2;
            
            if ($estado == 0){
                
                while ($GridC->GetCellText($row, $col) ne "*" and $estado==0){
                
                    $estado = $GridC->GetCellCheck($row, $col);
                    $row++;
                
                }
                $row++;  
            }
        }
        
        $col = 0;
    }
    
    return $estado;
  
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Txemaracas** » 2011-10-04 16:40 @736

Hola. Me gustaría saber cómo puedo mostrar una cadena de caracteres como una frase con 10 palabras de esta manera. Creo que con la %s muestro una palabra pero quiero mostrar una cadena ¿cómo puedo hacerlo?

$celda .= sprintf("Frase : %s \r\n\r\n", $text);

Foro - Perl en Español

Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Publicidad

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

¿Quién está conectado?