Utiliser un Tcolor pour le background d'une page html créee en Delphi !

**cincap** · 28/05/2014, 08h52

Bonjour à toutes et à tous,

Avec Delphi, je crée une page Html et j'aurai bien voulu avec un TcolorDialog, mettre une couleur sur le fond de ma page qui recevra mes vignettes.

Avec ce code, j'obtiens des couleurs mais pas celle que j'ai choisie.

Code :

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

1
2
 
result.add('</result><body bgcolor="'+colortostring(colordialog1.color)+'"><center>

Si je fait ceci cela fonctionne :

Code :

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

1
2
 
result.add('</result><body bgcolor="#FFFFF"><center>

J'ai aussi essayé avec la couleur d'un Tshape mais sans résultat.

Merci si quelqu'un pense que c'est possible.

@+,

Cincap

**Iznogood12** · 28/05/2014, 09h01

Salut,

La fonction colortostring c'est toi qui l'a codé ou c'est une fonction fourni par delphi?
Si c'est toi peux tu donner le code.

Merci

**cincap** · 28/05/2014, 09h15

@ Iznogood12, merci de ta réponse, c'est une fonction qui existe dans Delphi.

Je teste aussi de mon côté.

@+,

Cincap

**Iznogood12** · 28/05/2014, 09h37

OK je ne connaissais pas cette fonction.

Alors fait un :

Code :

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

ShowMessage (ColorToString (ColorDialog1.Color);

Et tu verras que si par exemple tu choisis le rouge il te retourne clRed au lieu d'une valeur hexa.
De plus, quand il te retourne une valeur hexa il te retourne 8 caractères au lieu de 6 et sous le format "Bleu Vert Rouge" au lieu de "Rouge Vert Bleu".
Et pour finir il te retourne une valeur hexa avec le caractère "$" en début au lieu de "#" (mais la je sais pas si c'est important ou pas).

J'espère que ça va t'aider.

**exoseven** · 28/05/2014, 09h54

fais ton choix

**Gilbert Geyer** · 28/05/2014, 10h14

Bonjour,

Si ColorToString Delphi renvoie par exemple : $008C01DC
pour HTML il faut convertir en #DC018C
Si ColorToString Delphi renvoie par exemple une string de texte clAqua, clFuchsia on est d'abord obligé d'en reconstituer la string de la valeur hexa et comme je me suis farci ceci il y a quelques jours voici les 16 :

Argent $00C0C0C0 (clSilver)
Blanc pur $00FFFFFF (clWhite)
Bleu pur $00FF0000 (clBlue)
Cyan pur $00FFFF00 (clAqua)
Gris fer $00808080 (clGray)
Jaune pur $0000FFFF (clYellow)
Magenta pur $00FF00FF Wikipedia (clFuchsia Delphi)
Marine pur $00800000 (clNavy)
Marron clair $00000080 (clMaroon)
Noir pur $00000000 (clBlack)
Olive pur $00008080 (clOlive)
Rouge pur $000000FF (clRed)
Sarcelle $00808000 (clTeal)
Vert moyen $00008000 (clGreen)
Vert pur $0000FF00 (clLime)
Violet $00800080 (clPurple)

Avec Delphi, ce qui est intéressant avec var sColor: string; vColor : tColor; c'est les deux conversions suivantes :

Code :

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

1
2
3
 
sColor:=ColorToString(vColor);
vColor:=StrToInt(sColor);

A+.

Utiliser un Tcolor pour le background d'une page html créee en Delphi !

Delphi

Vue hybride

Discussions similaires

Partager

Partager