4D Doc Center : PV Get row height

4D View v14

PV Get row height


PV Get row height ( area ; linha ) -> Resultado

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D View
linha	Inteiro longo	Nº da linha
Resultado	Inteiro	Altura da linha

Descrição

O comando PV Get row height devolve a altura em pixels da linha especificada.

Exemplo 1

Consulte o exemplo do comando PV SET COLUMNS WIDTH.

Desde a versão 2004.5 de 4D, o comando Print form permite imprimir áreas 4D View. Geralmente, estas áreas se imprimem com uma altura fixa. O seguinte exemplo mostra como utilizar os comandos de impressão de 4D e o comando PV Get row height para variar a altura de impressão da área 4D View em função de seu conteúdo.

Este é o método de formulário chamado pelo comando Print form:

 If(Form event=On Printing Detail)

    GET OBJECT RECT(4DViewarea;$left;$top;$right;$bottom)

    $posmarker:=Get print marker(Form detail)

    $areaheight:=$bottom-$top

    $newheight:=4DViewSizeCalcul

  `4DViewSizeCalcul devolve a altura da área 4D View dependendo de seu conteúdo

  `Este método se mostra a continuação

    $offset:=$newheight-$areaheight

    MOVE OBJECT(4DViewarea;0;0;0;$offset)

    SET PRINT MARKER(Form detail;$posmarker+$offset)

 End if

O método 4DViewSizeCalcul é o seguinte:

 $area:=PV New offscreen area

 PV BLOB TO AREA($area;[Table 1]View_)

 PV EXECUTE COMMAND($area;pv cmd edit go to last cell)

 PV GET CURRENT CELL($area;$column;$row)

 $height:=0

 For($i;1;$row)

    $rowHeight:=PV Get row height($area;$i)

    $height:=$height+$rowHeight

 End for

 PV DELETE OFFSCREEN AREA($area)

 $0:=Trunc($height*0.75;0)

4D View v14

PV Get row height

PV Get row height

Descrição

Exemplo 1

Exemplo 2