4D Doc Center : WR GET CURSOR POSITION

4D Write v14

WR GET CURSOR POSITION


WR GET CURSOR POSITION ( area ; pagina ; coluna ; linha \| nivel ; posiçao )

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D Write
pagina	Inteiro longo	Número da página onde está o cursor
coluna	Inteiro longo	Número da coluna onde está o cursor
linha \| nivel	Inteiro longo	Número da linha na coluna
posiçao	Inteiro longo	Posição horizontal do cursor na linha

Descrição

O comando WR GET CURSOR POSITION devolve a posição do ponto de inserção no documento.

pagina: o valor deve estar entre o primeiro e o último número de página do documento. Estes números levam em consideração a numeração de página personalizada, se existir.
coluna: este valor está entre 1 e o número total de colunas.
linha: este valor está entre o 1 e o número total de linhas da coluna.
posiçao: este valor deve estar entre 1 e o número total de caracteres na linha.

Se a seleção contém vários caracteres, se devolve a posição do primeiro caractere.
Mais tarde, pode voltar a esta posição, utilizando o comando WR SET CURSOR POSITION com os mesmos parâmetros.
Pode utilizar WR Get frame para determinar em que área está o cursor.

Exemplo

Você quer permitir ao usuário inserir um logo no cabeçalho do documento, sem perder a posição atual do cursor no texto. Para fazer isso, associe o seguinte método ao botão de inserção:

 C_LONGINT($frame;$Col;$Line;$Pos)

 C_REAL($PictWidth;$PictHeight;$OrigWidth;$OrigHeight;$HeadTopMargin)

  `Em que parte do documento se encontra o cursor?

 $frame:=WR Get frame(Area)

  `Recuperamos a posição atual do cursor

 WR GET CURSOR POSITION(Area;$Page;$Col;$Line;$Pos)

  `Passamos a área atual ao cabeçalho do documento

 WR SET FRAME(Area;wr right header)

  `Carregamos o registro que contém o logo a incluir

 ALL RECORDS([Interface])

  `Inserção do logo

 WR INSERT PICTURE(Area;[Interface]Logo;0)

  `Seleção do logo e leitura de seu tamanho

 WR SELECT(Area;4;1)

 WR GET PICTURE SIZE(Area;$PictWidth;$PictHeight;$OrigWidth;$OrigHeight)

  `Se ajusta à altura do cabeçalho à imagem

 $HeadTopMargin:=WR Get doc property(Area;wr header top margin)

 WR SET DOC PROPERTY(Area;wr text top margin;$HeadTopMargin+$PictHeight)

 WR SET DOC PROPERTY(Area;wr header bottom margin;$PictHeight)

  `Voltamos ao marco onde estava o cursor

 WR SET FRAME(Area;$frame)

  `O cursor volta a sua posição original

 WR SET CURSOR POSITION(Area;$Page;$Col;$Line;$Pos)