SET DRAG ICON

4D v20.6

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)

Ver también

Form event code