SET DRAG ICON

SET DRAG ICON ( icono {; despH {; despV}} )

Parámetro	Tipo		Descripción
icono	Picture	→	Icono a utilizar durante arrastrar
despH	Integer	→	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	Integer	→	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

Propiedades

Número de comando	1272
Hilo seguro	✗