OK
Mon dépot de source est récent, mais n'a pas encore été référencé par le moteur du site.
Bon, voilà un extrait de code qui devrait vous aider:
var
Form1 : TForm1;
R,G,B : Byte;
implementation
{$R *.DFM}
Procedure TForm1.Affiche_Couleur(R,G,B : Byte);
begin
Panel3.Color:=RGB(R, G ,B);
Label2.Caption := Inttostr(R);//affichage de la valeur décimale
Label4.Caption := Inttostr(G);
Label6.Caption := Inttostr(B);
Label13.Caption := '$'+IntToHex(ScrollBar1.position,4)
+IntToHex(ScrollBar2.position,2)
+IntToHex(ScrollBar3.position,2);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
R :=$00B0;
G :=$C5;
B :=$E0;
Affiche_Couleur(R,G,B);
end;
Vous pouvez directement donnée la valeur d'une couleur dans
richedit.color := $00B0C5E0;
jlmcom :)