4D Doc Center : PV SET COLUMNS WIDTH

4D View v14

PV SET COLUMNS WIDTH


PV SET COLUMNS WIDTH ( area ; primeira ; ultima ; largura )

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D View
primeira	Inteiro longo	Número da primeira coluna
ultima	Inteiro longo	Número da última coluna
largura	Inteiro	Largura da coluna (em pixels)

Descrição

O comando PV SET COLUMNS WIDTH permite modificar a largura (em pixels) das colunas de area localizadas entre as colunas primeira e ultima.

Nota: Se passar 0 (zero) nos parâmetros primeira e ultima, a largura definida será aplica a todas as colunas da area e será convertida na largura por padrão das colunas em area. A largura por padrão se aplica em particular quando o usuário faz dobre clique no separador direito de uma coluna.

Exemplo

Este exemplo apresenta uma animação de redimensionamento de linhas e colunas:

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

 C_LONGINT($Width;$Height) `Índice do bucle de aumento da coluna e da linha

 C_LONGINT($StartWidth) `Largura original da coluna Xth

 C_LONGINT($RequestWidth) `Largura solicitada da coluna Xth

 

  `Inicializamos

 $StartWidth:=5 `Fixamos a largura original

 $RequestWidth:=$StartWidth+5 `10 pontos de largura para a primeira coluna

 

 For($Column;1;5) `Tratamos as primeiras 5 colunas

    $Row:=$Column `Só para as primeiras cinco linhas

    For($Width;$StartWidth;$RequestWidth;2) `Para a coluna "$Column"...

       $Height:=$Width-5 `Atualização da altura

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

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

       PV REDRAW(area) `Atualizar

    End for

    $StartWidth:=$RequestWidth `Não começar desde o princípio

    $RequestWidth:=$RequestWidth+5 `Aumento para a próxima coluna

 End for