COPIE DE COULEUR MULTI-FORMAT (UTILITAIRE)
cs_costello
Messages postés
136
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
15 février 2006
-
27 févr. 2004 à 21:25
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 - 6 mars 2004 à 19:10
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 - 6 mars 2004 à 19:10
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/20809-copie-de-couleur-multi-format-utilitaire
https://codes-sources.commentcamarche.net/source/20809-copie-de-couleur-multi-format-utilitaire
6 mars 2004 à 19:10
try
Reg1 := TRegistry.Create;
Reg1.RootKey := HKEY_CURRENT_USER;
if Reg1.OpenKey('Software\GBA Unicoders\ColorTool',false) then
Shape2.Brush.Color := Reg1.ReadInteger('Last');
Reg1.Free;
except
end;
En cas d'erreur, la libération des ressources allouées à l'objet Reg1 n'est pas assurée. Il est conseillé d'écrire à la place :
Reg1 := TRegistry.Create;
try
Reg1.RootKey := HKEY_CURRENT_USER;
if Reg1.OpenKey('Software\GBA Unicoders\ColorTool',false) then
Shape2.Brush.Color := Reg1.ReadInteger('Last');
finally
Reg1.Free;
end;
NB : pour la notation d'une valeur hexadécimale en C/C++, tu ne t'es pas trompé.
En tous cas, je ne trouve pas cet utilitaire si inutile que ça. Je pense qu'il peut rendre bien des services.
27 févr. 2004 à 21:25
désolé donc si ce post est inutile ;)