4D View v16
PV SET COLUMNS WIDTH
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) | |||||
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.
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
Producto: 4D View
Tema: PV Columnas y líneas
Número
15954
Creado por: 4D View 6.8
4D View - Lenguaje ( 4D View v16)
