Discussion :

[bundy]

Mon soucis est que je permet dans un programme à un utilisateur de choisir sa couleur pour ensuite faire une page HTML.
je recupère le code couleur de mon Dialogcolor en le convertissant en string et je le rajoute en dur dans une page HTML dans ce genre la: bgcolor="#E5E5E5".

Mon problème viens du fait que les codes couleurs ne correspondent pas...
je me suis meme rendu compte qu'en mettant bgcolor="clRed", on obtient pas du rouge... Un converstisseur est possible?
Ou juste chez moi ca bug?
Si quelqu un peut m'aider cela serai tres sympatique.
Merci

[Fly_57]

je sais pas si il existe une fonction qui prends un TColor et qui renvoi le cpde hexadecimal, mais tu peux convertir du RGB en Hexadecimal facilement, voila comment faire à partir d'un ColorBox mais il te suffit d'adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
const tab : array[0..15] of string = ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
var 
   r,g,b : integer;
begin
  r := GetRValue(ColorBox1.Selected);  //recupere la composante rouge
  g := GetGValue(ColorBox1.Selected); //recupere la composante verte
  b := GetBValue(ColorBox1.Selected); //recupere la composante bleue
  Edit1.Text := '#' + tab[r div 16] + tab[r mod 16] + tab[g div 16] + tab[g mod 16] + tab[b div 16] + tab[b mod 16];
end;

ça peut facilement s'adapter en une fonction par la suite
j'espere que ça t'aidera

[fs999]

Plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
var 
   r,g,b : Byte; 
begin 
  r := GetRValue(ColorBox1.Selected);  //recupere la composante rouge 
  g := GetGValue(ColorBox1.Selected); //recupere la composante verte 
  b := GetBValue(ColorBox1.Selected); //recupere la composante bleue 
  Edit1.Text := '#' + IntToHex(r, 2) + IntToHex(g, 2) + IntToHex(b, 2); 
end;

A+

[bundy]

Merci c'est ce que je cherchais...
Ca marche impecable...