4D v13.4
GET ICON RESOURCE
- Manual de linguagem 4D
-
- Recursos
-
- Recursos
- ARRAY TO STRING LIST
- CLOSE RESOURCE FILE
- Create resource file
- DELETE RESOURCE
- Get component resource ID
- GET ICON RESOURCE
- Get indexed string
- GET PICTURE RESOURCE
- GET RESOURCE
- Get resource name
- Get resource properties
- Get string resource
- Get text resource
- Open resource file
- RESOURCE LIST
- RESOURCE TYPE LIST
- SET PICTURE RESOURCE
- SET RESOURCE
- SET RESOURCE NAME
- SET RESOURCE PROPERTIES
- SET STRING RESOURCE
- SET TEXT RESOURCE
- STRING LIST TO ARRAY
GET ICON RESOURCE
| GET ICON RESOURCE ( resNum ; resDados {; resArquivo} ) | ||||||||
| Parâmetro | Tipo | Descrição | ||||||
| resNum | Inteiro longo |
|
Número do ID de resouce ícone | |||||
| resDados | Imagem |
|
Campo ou variável imagem para receber o ícone | |||||
|
Imagem resultante | |||||||
| resArquivo | DocRef |
|
Número de referência de arquivo de recursos ou todos os arquivos de recursos abertos, se omitido | |||||
O comando GET ICON RESOURCE retorna no campo ou a variável imagem resDados, o ícone guardado no recurso ícone (“cicn”) cujo número de identificação se passa em resNum.
Se não for encontrado o registro, o parâmetro resDados não muda e a variável sistema OK toma o valor 0 (zero).
Se passa um número de referência de arquivo de recursos válido em resArquivo, o recurso é procurado nesse arquivo unicamente. Se não passa resArquivo, se retorna a primeira ocorrência do recurso encontrada na cadeia dos arquivos de recursos.
O comando [#descv]devolve no campo ou a variável imagem resDados, o ícone guardado no recurso ícone (“cicn”) cujo número de identificação se passa em resNum.[#/descv]
Se não for encontrado o registro, o parâmetro resDados não modifica e a variável sistema OK toma o valor 0 (zero).
Se passa um número de referência de arquivo de recursos válido em resArquivo, o recurso é procurado nesse arquivo unicamente. Se não passa resArquivo, se retorna a primeira ocorrência do recurso encontrada na cadeia dos arquivos de recursos.
O exemplo a seguir carrega em um array de tipo imagem os ícones cor localizados na aplicação 4D ativa:
If(On Windows)
$vh4DResArquivo:=Open resource file(Replace string(Application file;".EXE";".RSR"))
Else
$vh4DResArquivo:=Open resource file(Application file)
End if
RESOURCE LIST("cicn";$alResNum;$asResNom;$vh4DResArquivo)
$vlNbIcons:=Size of array($alResNum)
ARRAY PICTURE(ag4DIcon;$vlNbIconos)
For($vlElem;1;$vlNbIconos)
GET ICON RESOURCE($alResNum{$vlElem};ag4DIcon{$vlElem};$vh4DResArquivo)
End forQuando tiver executado este código, o array se verá desta forma quando é mostrado em um formulário:
A variável sistema OK toma o valor 1 se for encontrado os recursos, do contrário toma o valor 0 (zero).
Produto: 4D
Tema: Recursos
Número
517
Criado por: 4D v6
