4D Doc Center : WR GET CURSOR COORDINATES

4D Write v14

WR GET CURSOR COORDINATES


WR GET CURSOR COORDINATES ( area ; posHoriz ; posVert ; altura )

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D Write
posHoriz	Real	Coordenada horizontal na página
posVert	Real	Coordenada vertical na página
altura	Real	Altura do cursor

Descrição

O comando WR GET CURSOR COORDINATES devolve as coordenadas do cursor em relação com a esquina superior esquerda da página. Estes valores se expressam na unidade por padrão do documento atual.

Quando o comando se executa com um texto ou uma imagem selecionada na área, podem ser produzidos dois casos:

Se a seleção foi realizada por programação, se considera que o cursor está ao final da seleção.
Se a seleção foi realizada de forma manual, se considera que o cursor está onde o botão do mouse foi liberado. Por exemplo, se um parágrafo é selecionado manualmente arrastando o mouse desde a última linha a primeira linha, a posição do cursor será ao princípio da seleção.

O parâmetro altura devolve a altura atual do cursor. Se somente é selecionada uma imagem, se devolve a altura da imagem.

Exemplo

A partir da versão 2004.5 de 4D, o comando Print form pode ser utilizada para imprimir áreas 4D Write. Em princípio, estas áreas se imprimem com uma altura fixa. O seguinte exemplo mostra como utilizar os comandos de impressão de 4D e o comando WR GET CURSOR COORDINATES para variar a altura de impressão da área 4D Write 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(4DWriteArea;$left;$top;$right;$bottom)

    $markerpos:=Get print marker(Form detail)

    $areaheight:=$bottom-$top  ` altura da área 4D Write

    $newheight:=sizecalcul

  ` sizecalcul devolve a altura da área 4D Write em função de seu conteúdo

  ` este método é mostrado a continuação

    $shift:=$newheight-$areaheight

    MOVE OBJECT(4DWriteArea;0;0;0;$shift) ` redimensionamento da área 4D Write

    SET PRINT MARKER(Form detail;$markerpos+$shift) ` mover o marcador

 End if

A continuação o método sizecalcul:

 $area:=WR New offscreen area

 WR BLOB TO AREA($area;[Table 1]Write_)

 WR SET DOC PROPERTY($area;wr unit;2) ` Estamos trabalhando em píxels

 

 WR SET SELECTION($area;1;1) ` Início do texto

 WR GET CURSOR COORDINATES($area;$hor;$startvert;$cursor1)

 WR SET SELECTION($area;1000000;1000000) ` Fim do texto

 WR GET CURSOR COORDINATES($area;$hor;$vert;$cursor2)

 WR DELETE OFFSCREEN AREA($area)

 $0:=Trunc(($vert-$startvert+$cursor1+$cursor2)*0.75;0)