Convertir un tcolor au format web

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 494 fois - Téléchargée 35 fois

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
Messages postés
8
Date d'inscription
dimanche 17 novembre 2002
Statut
Membre
Dernière intervention
30 novembre 2002

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à...
Messages postés
6
Date d'inscription
samedi 16 novembre 2002
Statut
Membre
Dernière intervention
28 novembre 2002

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=-

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.