CONVERT COORDINATES

CONVERT COORDINATES ( xCoord ; yCoord ; de ; para )

Parâmetro	Tipo		Descrição
xCoord	Integer	→	Coordenada horizontal de um ponto (Inicial)
←	Coordenada horizontal de um ponto (Convertida)
yCoord	Integer	→	Coordenada vertical de um ponto (inicial)
←	Coordenada vertical de um ponto (convertida)
de	Integer	→	Sistema de coordenadas que vai ser convertido
para	Integer	→	Sistema de coordenadas para o qual vai converter

Esse comando não é seguro para thread e não pode ser usado em código adequado.

Descrição

O comando CONVERT COORDINATESconverte as coordenadas (x;y) de um ponto de um sistema de coordenadas para outro. Os sistemas de coordenada de entrada e saída compatíveis são formulários e subformulários, janelas e a tela. Por exemplo, pode usar este comando para obter as coordenadas no formulário principal de um objeto que pertence a um subformulário. Isso faz com que seja fácil criar um menu contextual para qualquer posição personalizada.

Em xCoord e yCoord, passe como variávies as coordenadas (x;y) do ponto que quiser converter. Após o comando ser executado, estas variáveis conterão os valores convertidos.

No parâmetro de, passe o sistema de coordenadas inicial que o ponto de input está usando, e no parâmetro para, passe o sistema de coordenadas para o qual vai converter. Ambos parâmetros podem tomar um dos valores de constante abaixos, adicionados ao tema "Janela":

Constante	Tipo	Valor	Comentário
XY Current form	Inteiro longo	1	A origen é o canto superior esquerdo do formulário atual
XY Current window	Inteiro longo	2	A origem é a esquina superior esquerda na janela atual
XY Main window	Inteiro longo	4	Em Windows: origem é a esquina superior esquerda da janela principal; em OS X: igual que XY Screen
XY Screen	Inteiro longo	3	A origem é o canto superior esquerdo na tela principal (igual que para o comando SCREEN COORDINATES)

Quando este comando for chamado a partir do método de um subformulário ou de um objeto de subformulário, e se um dos seletores for XY Current form, então as coordenadas são relativas ao próprio subformulário, e não ao seu formulário pai.

Quando convertendo de/para a posição de uma janela formulário (por exemplo quando convertendo dos resultados de GET WINDOW RECT, ou para valores passados a Open form window), XY Main window deve ser usado já que é o sistema de coordenadas usado pelos comandos de janela em Windows. Também pode ser usado para esse propósito em OS X, onde é equivalente a XY Screen.

Quando de for XY Current form e o ponto estiver na seção corpo do formulário lista, o resultado depende do contexto de chamada do comando:

• Se o comando for chamado no evento On Display Detail, o ponto resultante estará localizado na exibição do registro sendo desenhado em tela
• Se o comando for chamado fora de um evento On Display Detail mas enquanto um registro estiver sendo editado, o ponto resultante estará localizado na exibição do registro sendo editado
• De outra forma, o ponto resultate estará localizado na exibição do primeiro registro

Exemplo 1

Se quiser abrir um menu pop-up no canto esquerdo inferior do objeto "MyObject".

  // OBJECT GET COORDINATES trabalha no formulário atual das coordenadas do sistema
  // Menu dinâmico pop up usa as coordenadas de sistema da janela atual
  // Precisa converter os valores
 var $left;$top;$right;$bottom : Integer
 var $menu : Text
 OBJECT GET COORDINATES(*;"MyObject";$left;$top;$right;$bottom)
 CONVERT COORDINATES($left;$bottom;XY Current form;XY Current window)
 $menu:=Create menu
 APPEND MENU ITEM($menu;"Right here")
 APPEND MENU ITEM($menu;"Right now")
 Dynamic pop up menu($menu;"";$left;$bottom)
 RELEASE MENU($menu)

Exemplo 2

Se quiser abrir uma janela pop-up na posição do cursor do mouse, em Windows, precisa converter as coordenadas desde MOUSE POSITION (com o parâmetro *) retorna valores baseados na posição da janela MDI:

 var $mouseX;$mouseY;$mouseButtons : Integer
 var $window : Integer
 MOUSE POSITION($mouseX;$mouseY;$mouseButtons)
 CONVERT COORDINATES($mouseX;$mouseY;XY Current window;XY Main window)
 $window:=Open form window("PopupWindowForm";Pop up form window;$mouseX;$mouseY)
 DIALOG("PopupWindowForm")
 CLOSE WINDOW($window)

Ver também

GET WINDOW RECT
OBJECT GET COORDINATES
OBJECT SET COORDINATES
SET WINDOW RECT