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

**cincap** · 28/05/2014, 16h40

@ 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

**Cirec** · 28/05/2014, 16h51

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

@+ Cirec

**Cirec** · 28/05/2014, 16h56

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 :

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

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

@+ Cirec

**Andnotor** · 28/05/2014, 18h35

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 :

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

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;

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

Delphi

Discussions similaires

Partager

Partager