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

Version imprimable

Voir 40 message(s) de cette discussion en une page

28/05/2014, 16h40
cincap

@ Andnotor et @ Cirec, bonjour à vous, je veux bien tester vos solutions, mais dans mon code, le choix de la couleur doit pouvoir se réécrire dans le fichier htm.

Et la, je ne vois pas comment utiliser cette fonction.

Merci à tous.

@+,

Cincap
28/05/2014, 16h51
Cirec

oui aussi mais à la base la fonction que je donne était prévue pour faire du volume et ne renvoyait pas de string mais un entier avec un canal alpha en plus .. mais ce n'est pas parce qu'il y a quelques lignes de code en plus que l'exécution en boucle n'en est pas plus rapide
et la "Format" est assez gourmand en ressources ...

mais j'en convient pour une conversion simple ça suffit oui :D

@+ Cirec
28/05/2014, 16h56
Cirec
Citation:

Envoyé par cincap

@ Andnotor et @ Cirec, bonjour à vous, je veux bien tester vos solutions, mais dans mon code, le choix de la couleur doit pouvoir se réécrire dans le fichier htm.

Et la, je ne vois pas comment utiliser cette fonction.

Merci à tous.

@+,

Cincap

ben tu as un exemple et tu peux aussi faire:
Code:

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

Citation:

Envoyé par Cirec

oui aussi mais à la base la fonction que je donne était prévue pour faire du volume et ne renvoyait pas de string mais un entier avec un canal alpha en plus .. mais ce n'est pas parce qu'il y a quelques lignes de code en plus que l'exécution en boucle n'en est pas plus rapide
et la "Format" est assez gourmand en ressources ...

Disons surtout que ces pointeurs ne facilitent pas la lecture :?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 function ColorToHTML(aColor :TColor) :string; var RGBA :array[0..3] of byte absolute aColor; Tmp :TRGBQuad; begin Tmp.rgbRed := RGBA[0]; Tmp.rgbGreen := RGBA[1]; Tmp.rgbBlue := RGBA[2]; //Tmp.rgbReserved := RGBA[3]; Result := '#' +IntToHex(DWORD(Tmp), 6); end;

Voir 40 message(s) de cette discussion en une page