4D v16.3

GET ICON RESOURCE

Página Inicial

 
4D v16.3
GET ICON RESOURCE

GET ICON RESOURCE 


 

GET ICON RESOURCE ( resNum ; resDados {; resArquivo} ) 
Parâmetro Tipo   Descrição
resNum  Inteiro longo in Número do ID de resouce ícone
resDados  Imagem in Campo ou variável imagem para receber o ícone
in Imagem resultante
resArquivo  refDoc in Número de referência de arquivo de recursos ou todos os arquivos de recursos abertos, se omitido

Este comando não é compatível com as  versões de 64 bits de 4D . Se for executado  neste ambiente um erro é devolvido.

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.

Exemplo  

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 for

Quando 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).



Ver também 

GET PICTURE RESOURCE

 
PROPRIEDADES 

Produto: 4D
Tema: Recursos
Número 517

Este comando modifica a variável sistema OK

 
HISTÓRIA 

Criado por: 4D v6

 
ARTICLE USAGE

Manual de linguagem 4D ( 4D v16)
Manual de linguagem 4D ( 4D v16.1)
Manual de linguagem 4D ( 4D v16.2)
Manual de linguagem 4D ( 4D v16.3)