SET DRAG ICON
SET DRAG ICON ( icono {; despH {; despV}} )
| Parámetro | Tipo | Descripción | |
|---|---|---|---|
| icono | Imagen | 🡒 | Icono a utilizar durante arrastrar |
| despH | Entero largo | 🡒 | Desplazamiento horizontal del borde izquierdo de la imagen con respecto a la posición del cursor (> = 0, a la izquierda, <0 = a la derecha) |
| despV | Entero largo | 🡒 | Desplazamiento vertical del borde superior de la imagen con respecto a la posición del cursor (> 0 = hacia arriba, <0 = hacia abajo) |
Descripción
El comando SET DRAG ICON asocia la imagen de icono al cursor durante las operaciones de arrastrar y soltar que se manejan por programación.
Este comando sólo se puede llamar en el contexto del evento formulario On Begin Drag Over (ver el comando Form event code).
En el parámetro icono, pase la imagen que desea utilizar. Su tamaño máximo es de 256x256 píxeles. Si una de sus dimensiones excede los 256 píxeles, se redimensiona automáticamente.
En despH y despV, puede pasar valores de desplazamiento en píxeles:
- pase en despH, el desplazamiento horizontal del borde izquierdo del icono con respecto a la posición del cursor. Pase un valor positivo para aplicar este desplazamiento hacia la izquierda o hacia un valor negativo para aplicarlo a la derecha.
- pase en despV, el desplazamiento vertical desde el borde superior del icono con respecto a la posición del cursor. Pase un valor positivo para aplicar este desplazamiento hacia arriba o hacia un valor negativo para aplicarlo hacia abajo.
Si omite este parámetro, el cursor se coloca en el centro del icono.
Ejemplo
En un formulario, un usuario puede generar una etiqueta por arrastrar y soltar una fila. En el método objeto del lista box, puede escribir:
If(Form event code=On Begin Drag Over)
READ PICTURE FILE(Get 4D folder(Current resources folder)+"splash.png";vpict)
CREATE THUMBNAIL(vpict;vpict;48;48)
SET DRAG ICON(vpict)
End if
Al arrastrar una fila, la imagen aparecerá como se muestra aquí:
Note que puede modificar la posición del cursor con respecto a la imagen:
SET DRAG ICON(vpict;0;0)
