4D v16.3
GET ICON RESOURCE
- 4D - Langage
-
- Ressources
-
- Ressources
- CLOSE RESOURCE FILE
- 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
- STRING LIST TO ARRAY
- _o_ARRAY TO STRING LIST
- _o_Create resource file
- _o_DELETE RESOURCE
- _o_Get component resource ID
- _o_SET PICTURE RESOURCE
- _o_SET RESOURCE
- _o_SET RESOURCE NAME
- _o_SET RESOURCE PROPERTIES
- _o_SET STRING RESOURCE
- _o_SET TEXT RESOURCE
GET ICON RESOURCE
| GET ICON RESOURCE ( resNum ; resDonnées {; resFichier} ) | ||||||||
| Paramètre | Type | Description | ||||||
| resNum | Entier long |
|
Numéro de ressource icône | |||||
| resDonnées | Image |
|
Champ ou variable image devant recevoir l'icône | |||||
|
Image résultante | |||||||
| resFichier | RefDoc |
|
Numéro de référence de fichier de ressources ou tous les fichiers de ressources ouverts si ce paramètre est omis | |||||
Cette commande n'est pas prise en charge dans les versions 64 bits de 4D. Elle retourne une erreur lorsqu'elle est exécutée dans cet environnement.
La commande GET ICON RESOURCE retourne dans le champ ou la variable image resDonnées l'icône stockée dans la ressource icône couleur ("cicn") dont vous avez passé le numéro d'ID dans resNum.
Si la ressource n'est pas trouvée, le paramètre resDonnées reste inchangé et la variable système OK prend la valeur 0 (zéro).
Si vous passez un numéro de référence de fichier de ressources valide dans resFichier, la ressource est recherchée dans ce fichier uniquement. Si vous ne passez pas le paramètre resFichier, c'est la première occurrence de la ressource rencontrée dans la chaîne des fichiers de ressources qui sera retournée.
L'exemple suivant charge dans un tableau image les icônes couleur situées dans l'application 4D en cours d'utilisation :
If(Sous Windows)
$vh4DResFile:=Open resource file(Replace string(Application file;".EXE";".RSR"))
Else
$vh4DResFile:=Open resource file(Application file)
End if
RESOURCE LIST("cicn";$alResID;$asResNom;$vh4DResFile)
$vlNbIcons:=Size of array($alResID)
ARRAY PICTURE(ag4DIcon;$vlNbIcons)
For($vlElem;1;$vlNbIcons)
GET ICON RESOURCE($alResID{$vlElem};ag4DIcon{$vlElem};$vh4DResFile)
End forUne fois ce code exécuté, le tableau aura l'aspect suivant lorsqu'il sera affiché dans un formulaire :
La variable système OK prend la valeur 1 si la ressource est trouvée, sinon elle prend la valeur 0 (zéro).
Produit : 4D
Thème : Ressources
Numéro :
517
Créé : 4D v6
4D - Langage ( 4D v16)
4D - Langage ( 4D v16.1)
4D - Langage ( 4D v16.2)
4D - Langage ( 4D v16.3)
