Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Couleur Hexa [ Archives / J'AI BESOIN D'AIDE !!!! :O ] (lan0sic)

mardi 18 février 2003 à 00:19:13 | Couleur Hexa

lan0sic

Savez vous comment convertir une variable Tcolor en couleur hexa html?

Merci ;)

Lanosic

mardi 18 février 2003 à 18:27:29 | Re : Couleur Hexa

RMD

Var s: string
Begin
if TColor1.Execute then
Begin
S := Format( '#%.2x%.2x%.2x', [ GetRValue( TColor1.Color),
GetGValue( TColor1.Color), GetBValue( TColor1.Color)]);
End;
End;

RMD

www.logiciels-rmd.com


-------------------------------
Réponse au message :
-------------------------------

> Savez vous comment convertir une variable Tcolor en couleur hexa html?
>
> Merci ;)
>
> Lanosic

lundi 10 octobre 2005 à 12:11:18 | Re : Couleur Hexa

eldered

Voila les deux fonctions réciproques :

{ *****************************************************************************
  - Méthode : TPlanning.HexToColor(s: string): TColor;
  - Description : Cette méthode permet de convertir un string (Hex) en TColor.
  - Entrees : s (la chaine de caractères, couleur hexadécimale).
  - Sorties : TColor (le TColor Créé).
}
function TPlanning.HexToColor(s: string): TColor;
begin
  if pos('#', s) <> 0 then Delete(s, pos('#', s), 1);
  if pos('$', s) <> 0 then Delete(s, pos('$', s), 1);
  Result := rgb(StrToInt('$' + Copy(s, 1, 2)),
                StrToInt('$' + Copy(s, 3, 2)),
                StrToInt('$' + Copy(s, 5, 2)));
end;

{ *****************************************************************************
  - Méthode : TPlanning.ColorToHex(Color: TColor): string;
  - Description : Cette méthode permet de convertir TColor en string (Hex).
  - Entrees : Color (la couleur à convertir).
  - Sorties : string (le résultat de la conversion).
}
function TPlanning.ColorToHex(Color: TColor): string;
begin
  Result := intToHex(GetRValue(Color), 2) + intToHex(GetGValue(Color), 2) + intToHex(GetBValue(Color), 2);
end;

-----------------------------
Membre de la blindprod :
http://www.blindprod.fr.st

lundi 8 juin 2009 à 14:03:38 | Re : Couleur Hexa

IAmIvyAlice

Bonjour,

J'aurais juste une petite question à propos du topic; que faut -il faire afin de pouvoir disposer de ces fameux GetRValue GetBValue et GetRValue?
Car j'ai essayé cette méthode et hélas, mon compilateur delphi 06 ne pouvait pas les interpréter.

Merci

mardi 9 juin 2009 à 14:08:59 | Re : Couleur Hexa

JulioDelphi

Membre Club Administrateur CodeS-SourceS
Bonjour
Le post dans lequel tu as posté date de 4ans, les auteurs ne sont peut etre plus ici et personne ne verra ta question.
Je te conseille de créer un nouveau post pour chaque nouvelle question !
a bientot
ps : GetRValue est dans l'API windows, unité Windows.pas
Ajoute "Windows" dans les uses et tu devrais pouvoir y acceder.
>> http://msdn.microsoft.com/en-us/library/aa923923.aspx << lien trouvé avec google en cherchant "msdn GetRValue"
a+



Cette discussion est classé dans : couleur, hexa


Répondre à ce message

Sujets en rapport avec ce message

Couleur [ par VB7 ] Salut, je voudrai faire un editeur php mais je veux par exemple quand je marque "if" le if soit en noir et else en noir est les accolades en bleu etc Couleur [ par Shadow ] Salut, je voudrai mettre une couleur comme fond sur ma form mais la couleur c un code html alors je veux savoir si je peux utiliser un code html ?moi aide svp : graphismes [ par Stephane ] bonjourje débute et j'aimerai refaire un prog que j'ai fait en basic ver delphi mais je sais pas comment-avoir la couleur d'un point sur un controle i Forme Hexa des virtual key codes [ par Manthis ] Salut,Je voudrais savoir comment ecrire la valeur hexa des virtual key codes.MerciManthis Comment écrire une valeur en hexa dans un prog delphi [ par Manthis ] Salut,Je voudrais savoir comment écrire une valeur hexadécimale dans mon prog.Merci ecrire des data dans registre [ par crogger ] Salut, je voudrai arriver à ecrire dans la base registre des informations de type DATA...par exemple, une fois détérminé le chemin etc... pouvoir ecri ProgressBar [ par tane ] Bonjour à tous !Je voudrais changer la couleur d'une progressbar et éventuellement mettre un pourcentage à l'intérieur. J'ai utilisé la propriété Colo Dessiner avec transparence [ par fabiin ] Salutvoila,g un 2 TBItmap;et je voudrai dessiner l'un sur l'autre et où une couleur du premier devien transparente kan je dessinepour le moment j'util Color Grid [ par Dreus ] 2question :1) Comment peux t-on avoir une couleur differente sur chaque cellule du Grid ???2) Comment peux t-on changé la font et la couleur de fond d Couleur dans une appli console [ par Kundun2 ] Bonjour,J voudrait savoir comment je peux mettre du texte en couleur dans une appli console avec Delphi 6...Pourriez vous m'eclairerKundunhttp://www.k


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,484 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.