Convertir un tcolor au format web

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 600 fois - Téléchargée 36 fois

Commenter

Contenu du snippet

C'est une toute petite fonction de rien du tout qui renvoie une chaîne de caractère contenant le codage Web (format #RRGGBB) d'un TColor passé en paramètre.

Source / Exemple : 


function TColorToWeb(Color: TColor) : String;
var Col:String;
    i:integer;
begin
  Result:='#';
  Col:=IntToHex(Ord(Color),6);
  For i:=3 downto 1 do Result:=Result+Col[i*2-1]+Col[i*2];
End;

A voir également

Ajouter un commentaire Commentaires
cs_TabouJr Messages postés 8 Date d'inscription dimanche 17 novembre 2002 Statut Membre Dernière intervention 30 novembre 2002
29 nov. 2002 à 17:34
Bon ben c'est tout simple, si tu sélectionne la couleur dans un TColorDialog, la propriété Color est au format TColor. En plus, omme la fonction renvoie un string, tu peux le mettre dans la propriété Text d'un TMemo sans problème.
Ca doit donner un truc comme ça :
Memo1.Text := Memo1.Text + TColorToWeb(ColorDialog1.Color);
Ce code rajoute le code web de la couleur à la fin du TMemo. Voilà voilà...
cs_adri1 Messages postés 6 Date d'inscription samedi 16 novembre 2002 Statut Membre Dernière intervention 28 novembre 2002
28 nov. 2002 à 20:13
Euh comment on fait pour que ce que renvoie ta fonction aie dans un Tmemo stp ?
Et la couleur est sélectionner dans un TDialogColor au lieu TColor...
merci
-=adri1=-
S'inscrire maintenant

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.