|
|
|
|
|
|
|
|
|
|
|
versión 6.0
GET ICON RESOURCE (resNum; resDatos{; resArchivo})
| Parámetro | Tipo | Descripción | |
| resNum | Numérico |  | Número de recurso icono |
| resDatos | Campo | Variable | | 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 |
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:
Ver también
Variables y conjuntos sistema
La variable sistema OK toma el valor 1 si se encuentra el recursos, de lo contrario toma el valor 0 (cero).
|
|
|
|
|
|
|
|
|
|
|