TEquipmentType.SetIcons
| TEquipmentType = class (TObject) | Interface de TEquipmentType | Exemples de TEquipmentType |
Qubes 10.0 Ecriture d'une chaine contenant les données des icônes du type d'équipement obtenue avec TIcons.SaveData
Syntaxe
procedure SetIcons(iconsBlob: String)
iconsBlob: Données obtenues à partir de TIcons.SaveData.
Remarques
Permet de modifier les icônes du type d'équipement lorsque utilisé avec une instance de la classe TIcons.
Pour la récupération des icônes, voir TEquipmentType.GetIcons.
Exemples
Exemple pour réinitialiser les icônes d'un type d'équipement :
uses Eqpt, Qubes.Icons;
// Récupération du type d'équipement ayant le nom "R-Thermostat"
var eqptType := TEquipmentType.ConnectByName("R-Thermostat");
// Objet avec les icônes par défaut
var emptyIcons := TIcons.Create;
// Récupération des icones du type d'équipement
var icons := TIcons.Create;
icons.LoadData(eqptType.GetIcons);
// Réinitialisation des données
icons.SetSmallIconData(emptyIcons.GetSmallIconData);
icons.SetLargeIconData(emptyIcons.GetLargeIconData);
icons.SetHighResData(emptyIcons.GetHighResData);
try
// Enregistrement des icônes
eqptType.SetIcons(icons.SaveData);
eqptType.Post;
except
// Retourne le message d'erreur avec ce qui l'a provoqué
on e : Exception do begin
PrintLn(e);
end;
end;
// Récupération du type d'équipement ayant le nom "R-Thermostat"
var eqptType := TEquipmentType.ConnectByName("R-Thermostat");
// Objet avec les icônes par défaut
var emptyIcons := TIcons.Create;
// Récupération des icones du type d'équipement
var icons := TIcons.Create;
icons.LoadData(eqptType.GetIcons);
// Réinitialisation des données
icons.SetSmallIconData(emptyIcons.GetSmallIconData);
icons.SetLargeIconData(emptyIcons.GetLargeIconData);
icons.SetHighResData(emptyIcons.GetHighResData);
try
// Enregistrement des icônes
eqptType.SetIcons(icons.SaveData);
eqptType.Post;
except
// Retourne le message d'erreur avec ce qui l'a provoqué
on e : Exception do begin
PrintLn(e);
end;
end;