4D Write v14

WR GET CURSOR POSITION

Página Inicial

 
4D Write v14
WR GET CURSOR POSITION

WR GET CURSOR POSITION 


 

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

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)

 
PROPRIEDADES 

Produto: 4D Write
Tema: WR Opções da área
Número 89461

 
HISTÓRIA 

Criado por: 4D Write 6.5

 
VER TAMBÉM 

WR GET CURSOR COORDINATES
WR Get frame
WR SET CURSOR POSITION

 
ARTICLE USAGE

4D Write - Linguagem ( 4D Write v11.6)
4D Write - Linguagem ( 4D Write v12)
4D Write - Linguagem ( 4D v13)
4D Write - Linguagem ( 4D Write v14)
4D Write - Linguagem ( 4D Write v14 R2)
4D Write - Linguagem ( 4D Write v14 R3)
4D Write - Linguagem ( 4D Write v14 R4)