Copie de couleur multi-format (utilitaire)

Soyez le premier à donner votre avis sur cette source.

Vue 3 904 fois - Téléchargée 362 fois

Description

Ce petit (in)utilitaire se présente sous la forme d'une petite fenêtre discrète mais "toujours visible", elle permet de sélectionner une couleur et de copier son code HTML, Delphi et C/C++ (exemple: #FFCC33 , $0033CCFF, 0xFFCC33) encore que je ne sois pas sur de la syntaxe C/C++ étant donné que je ne le pratique pas.

Quand on code en delphi et qu'on veut utiliser une couleur, on a souvent besoin de savoir son code (si la couleur n'est pas déjà définie dans des constantes comme clGreen ou autre...)... Donc, vous créez un raccourci vers l'exécutable, vous lui attribuez une touche de raccourci (ex: Ctrl+Maj+Alt+C) dès que vous avez besoin d'une couleur, vous pressez ces touches.

A noter que dans cette "version", l'application stocke la dernière couleur utilisée dans la base de registre, et il la recharge au (re)lancement.

Enjoy. (désolé si le log est anglophone, toute façon y'a quasiment pas de texte... ;)

Source / Exemple :


voir zip

Conclusion :


Note 1: si ça veut pas compiler à cause du TXPManifest, enlevez le :) il sert à rien sinon à donner à l'application un style Windows XP...

Note 2: j'arrive à l'endroit ou il faut définir le "niveau" de la source. Etant donné que le programme utilise par exemple la base de registres, la manipulation de string, etc. ...je vais mettre niveau 2. Ne m'en voulez pas.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
31
Je voudrais revenir un instant sur les parties de code faisant appel au registre :
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.
Messages postés
136
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
15 février 2006

bon bon je m'abonne aux commentaires sur ce post (puisque la fonction dans le menu à gauche "sera activé bientôt" - vive l'orthographe)

désolé donc si ce post est inutile ;)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.