4D v14.3Drop position |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D v14.3
Drop position
|
Drop position {( colNum|posYimagem )} -> Resultado | ||||||||
Parâmetro | Tipo | Descrição | ||||||
colNum|posYimagem | Inteiro longo |
![]() |
Número de coluna de list box (-1 se soltar antes da última coluna) ou posição da coordenada Y da imagem |
|||||
Resultado | Inteiro longo |
![]() |
• Número (array/list box) ou • Posição (lista hierárquica) ou • Posição em string (texto/combo box) de item destino ou • -1 se soltar antes do último elemento do array ou item da lista • Posição da coordenada X da imagem |
|||||
O comando Drop position pode ser utilizado para descobrir a localização, em um objeto de destino “complexo”, onde um objeto foi (arrastado e) soltado.
Geralmente, é utilizado Drop position quando administra um evento arrastar e soltar que se produz em um array, um list box, uma lista hierárquica, um texto ou um campo de imagem.
Se chama Drop position quando processa um evento que não for do tipo arrastar e soltar em um array, um list box, um combo box, uma lista hierárquica, um texto ou uma imagem, o comando retorna -1.
Importante: para que um objeto de formulário aceite os dados soltados, a propriedade Soltável deve estar selecionada. Igualmente, seu método de objeto deve ser ativado pelo evento On Drag Over ou On Drop, para processar estes eventos.
Ver os exemplos do comando DRAG AND DROP PROPERTIES.
No exemplo seguinte, uma lista de somas deve ser dividida por mês e por pessoa. A operação é realizada arrastando e soltando em uma área de rolagem:
O método de objeto do list box contém o seguinte código:
Case of
:(Form event=On Drag Over)
DRAG AND DROP PROPERTIES($fonte;$arrayfila;$procesnum)
If($fuente=Get pointer("SA1")) `Se soltar provem da área de rolagem
$0:=0
Else
$0:=-1 `Se recusa soltar
End if
:(Form event=On Drop)
DRAG AND DROP PROPERTIES($source;$arrayrow;$procesnum)
$filanum:=Drop position($colnum)
If($colnum=1)
BEEP
Else
Case of `Adição dos valores soltados
:($colnum=2)
aJoao{$rownum}:=aJoao{$rownum}+SA1{$arrayfila}
:($colnum=3)
aMarcos{$rownum}:=aMarcos{$filanum}+SA1{$arrayfila}
:($colnum=4)
aPedro{$rownum}:=aPedro{$filanum}+SA1{$arrayfila}
End case
DELETE FROM ARRAY(SA1;$arrayfila) `Área de atualização
End if
End case
Produto: 4D
Tema: Arrastar e Soltar
Número
608
Modificado: 4D v11 SQL
Modificado: 4D v12
Arrastar e Soltar
DRAG AND DROP PROPERTIES
Manual de linguagem 4D ( 4D v14 R3)
Manual de linguagem 4D ( 4D v14 R2)
Manual de linguagem 4D ( 4D v12.4)
Manual de linguagem 4D ( 4D v13.5)
Manual de linguagem 4D ( 4D v14.3)
Manual de linguagem 4D ( 4D v14 R4)
Inherited from : Drop position ( 4D v11 SQL Release 6)