SET PICTURE TO PASTEBOARD

versión 11 (Modificado)

SET PICTURE TO PASTEBOARD (imagen)

SET PICTURE TO PASTEBOARD limpia el portapapeles y coloca una copia de la imagen que usted pasó en imagen en el portapapeles.

Nota: En el caso de las operaciones copiar/pegar, el contenedor de datos corresponde al Portapapeles

La imagen es pasada a su formato nativo (jpeg, tif, png, etc)

Después de colocar la imagen en el portapapeles, puede recuperarla utilizando el comando GET PICTURE FROM PASTEBOARD o llamando GET PASTEBOARD DATA("com.4d.picture.gif";...).

En una ventana flotante, usted visualiza un formulario que contiene el array asEmpleadoNombre, el cual lista los nombres de los empleados de una tabla [Empleados]. Cada vez que hace clic en un nombre, usted quiere copiar la imagen de un empleado en el portapapeles. En el método de objeto del Array, usted escribe:

   If (asEmpleadoNombre#0)
      QUERY ([Empleados];[Empleado]Apellido=asEmpleadoNombre{asEmpleadoNombre})
      If (Picture size ([Empleados]Foto)>0)
         SET PICTURE TO PASTEBOARD ([Empleados]Foto)  ` Copiar la foto del empleado
      Else
         CLEAR PASTEBOARD  ` No se encontró ninguna foto o registro
      End if
   End if

APPEND DATA TO PASTEBOARD, GET PICTURE FROM PASTEBOARD.

Si una copia de la imagen se coloca correctamente en el portapapeles, la variable OK toma el valor 1.

Si no hay suficiente memoria para colocar una copia de la imagen en el portapapeles, la variable OK toma el valor 0, pero no se genera un error.