GET ICON RESOURCE

4D v16.3

GET ICON RESOURCE


GET ICON RESOURCE ( resNum ; resDatos {; resArchivo} )

Parámetro	Tipo	Descripción
resNum	Entero largo	Número de recurso icono
resDatos	Imagen	Campo o variable imagen para recibir el icono
		Imagen resultante
resArchivo	DocRef	Número de referencia de archivo de recursos o todos los archivos de recursos abiertos, si se omite

Nota de compatibilidad

Este comando no es soportado en las versiones de 64 bits de 4D. Si se ejecuta en este entorno se devuelve un error.

Descripción

El comando GET ICON RESOURCE devuelve en el campo o la variable imagen resDatos, el icono guardado en el recurso icono (“cicn”) cuyo número de identificación se pasa en resNum.

Si no se encuentra el registro, el parámetro resDatos no cambia y la variable sistema OK toma el valor 0 (cero).

Si pasa un número de referencia de archivo de recursos válido en resArchivo, el recurso se busca en ese archivo únicamente. Si no pasa resArchivo, se devuelve la primera ocurrencia del recurso encontrada en la cadena de los archivos de recursos.

Ejemplo

El siguiente ejemplo carga en un array de tipo imagen los iconos color ubicados en la aplicación 4D activa:

 If(On Windows)

    $vh4DResArchivo:=Open resource file(Replace string(Application file;".EXE";".RSR"))

 Else

    $vh4DResArchivo:=Open resource file(Application file)

 End if

 RESOURCE LIST("cicn";$alResNum;$asResNom;$vh4DResArchivo)

 $vlNbIcons:=Size of array($alResNum)

 ARRAY PICTURE(ag4DIcon;$vlNbIconos)

 For($vlElem;1;$vlNbIconos)

    GET ICON RESOURCE($alResNum{$vlElem};ag4DIcon{$vlElem};$vh4DResArchivo)

 End for

Una vez ejecutado este código, el array se verá de esta forma cuando se muestre en un formulario:

Variables y conjuntos del sistema

La variable sistema OK toma el valor 1 si se encuentra el recursos, de lo contrario toma el valor 0 (cero).

Ver también

GET PICTURE RESOURCE