Discussion :

[cincap]

Bonjour à toutes et à tous,

J'aimerai en utilisant le composant TColorDialog pouvoir mettre une couleur sur le fond du composant TWebbrowser.

Le problème que j'ai c'est que la couleur obtenue n'est pas celle que j'ai choisie.

Je pense qu'il y a une conversion à faire en hexadécimale.

Dans cet exemple j'obtiens bien la couleur Black.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TFViewerH264.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Doc: IHTMLDocument2;
begin
  {Doc := WebBrowser1.Document as IHTMLDocument2;
  // Only change the background color if this is the
  // blank page!
  if Trim(Doc.location.toString) = 'about:blank' then
    Doc.bgColor := '#CB0017'; }
 
WebBrowser1.OleObject.Document.bgColor := '#000000';

Mais avec le TColorDialog c'est une autre couleur.

Merci de l'aide éventuelle.

@+,

Cincap

[tourlourou]

Le TColor est-il dans le même sens que HTML ? En HTML, on a RGB de la gauche vers la droite, mais dans le TColor, ça doit être stocké en sens inverse.

[cincap]

@ tourlourou,

Merci de ta réponse, j'avais déjà eu ce problème il y a un certain temps, je pense qu'il faut reconvertir le code couleur.

J'essayerai demain.

@+,

Cincap

[cincap]

Bonjour à toutes et à tous,

En ayant convertit le code couleur en html, cela fonctionne avec le composant TColorBox soit (CbChoice.Selected).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TForm1.CbChoiceChange(Sender: TObject);
var V : Dword;
begin
 try
  V:=CbChoice.Selected;
  LbCdelphi.text:='$'+IntToHex(V,6);
  LbCHTML.text:='#'+IntTohex(V and $ff,2)+
                       IntTohex(((V shr 8) and $ff),2)+
                       IntTohex(((V shr 16) and $ff),2);
 except
  Showmessage('Veuillez choisir une couleur valide....');
 end;
 
end;

Utilisation :

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
 
WebBrowser1.OleObject.Document.bgColor := LbCHTML.text;
end;

Merci,

@+,

Cincap