4D Doc Center : PV SET COLUMNS WIDTH

4D View v14

PV SET COLUMNS WIDTH


PV SET COLUMNS WIDTH ( area ; primera ; ultima ; ancho )

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D View
primera	Entero largo	Número de la primera columna
ultima	Entero largo	Número de la última columna
ancho	Entero	Ancho de la columna (en píxeles)

Descripción

El comando PV SET COLUMNS WIDTH permite modificar el ancho (en píxeles) de las columnas de area ubicadas entre las columnas primera y ultima.

Nota: si pasa 0 (cero) en los parámetros primero y ultimo, el ancho definido se aplicará a todas las columnas del area y se convertirá en el ancho por defecto de las columnas en area. El ancho por defecto se aplica sobre todo cuando el usuario hace doble clic en el separador derecho de una columna.

Ejemplo

Este ejemplo presenta una animación de redimensionamiento de líneas y columnas:

 C_LONGINT($Column;$Row) `Índice del bucle principal

 C_LONGINT($Width;$Height) `Índice del bucle de agrandamiento de la columna y de la línea

 C_LONGINT($StartWidth) `Ancho original de la columna Xth

 C_LONGINT($RequestWidth) `Ancho solicitado de la columna Xth

 

  `Inicializamos

 $StartWidth:=5 `Fijamos el ancho original

 $RequestWidth:=$StartWidth+5 `10 puntos de ancho para la primera columna

 

 For($Column;1;5) `Tratamos las primeras 5 columnas

    $Row:=$Column `Sólo para las primeras cinco líneas

    For($Width;$StartWidth;$RequestWidth;2) `Para la columna "$Column"...

       $Height:=$Width-5 `Actualización de la altura

       PV SET ROWS HEIGHT(area;$Row;$Row;PV Get row height(area;$Row)+$Height) `1 línea

       PV SET COLUMNS WIDTH(area;$Column;$Column;PV Get column width(area;$Row)+$Width) `1 columna

       PV REDRAW(area) `Refrescar

    End for

    $StartWidth:=$RequestWidth `No comenzar desde el principio

    $RequestWidth:=$RequestWidth+5 `Aumento para la próxima columna

 End for