Delphipage

Présentation

En Delphi, les couleurs sont caractérisées par la propriété Color. Vous retrouverez cette propiété sur pratiquement tous les composants Delphi.

TColor est spécifié pour donner une couleur à un objet.
L'unité Graphics contient la définition de constantes TColor utiles.
Ces constantes renvoies soit à la couleur la plus proche de la pallette (clRed : rouge) ou à la couleur de l'élément de écran du système définie dans la section Couleur du Panneau de configuration Windows (clBtnFace renvoie à la couleur systeme des faces de boutons).

Ajoutez un composant TButton et TPanel.

procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.Color:=clRed; //Couleur rouge
end;

Vous pouvez trouver le tableau énumèrant les constantes de couleurs les plus utilisés dans l'aide de Delphi en tapant dans l'index 'TColor, type'.

Il existe également deux autres modes pour spécifier une couleur.
- RGB
- Hexadécimal.

RGB

Le mode RGB (Red, Green, Blue) permet de spécifier une couleur. Cette couleur sera caractériser par son niveau de rouge, de vert et de bleu.
Les valeurs des niveaux sont délimités de 0 à 255.

Ajoutez un composant TButton et TPanel.

procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.Color:=RGB(255,0,0); //Couleur rouge
end;

Il existe des composants (par exemple TShape) qui peuvent avoir deux couleurs. un couleur pour le crayon (Pen) et une couleur pour le fond (Brush).

Ajoutez un composant TButton et TShape.

procedure TForm1.Button1Click(Sender: TObject);
begin
Shape1.Brush.Color:=RGB(0,255,0); //Couleur vet
end;

Connaitre le code RGB d'une couleur

Ajoutez un composant TButton, TLabel et TPanel.
Affectez une couleur grâce a la propriété Color du TPanel. Puis ajoutez ce code :

procedure TForm1.Button1Click(Sender: TObject);
begin
//Affecter une couleur au Panel.
Label1.Caption:='R : ' +IntToStr(GetrValue(Panel1.Color))+ #13'V : ' +IntToStr(GetgValue(Panel1.Color))+#13+ 'B : ' + IntToStr(GetbValue(Panel1.Color));
end;

Astuce : #13 permet d'aller a la ligne.

Choix d'une couleur dans une palette	[ 13-04-2001 ]
Programme permettant de choisir dans une palette une couleur (style paintshop pro). Ce programme montre également la caractéristique de la couleur(RGB). Télécharger : [14 Ko] [ palettecol.zip] Auteur : Yoann Site internet : http://delphipage.free.fr/

Hexadécimal

Le mode hexadecimal est utilisé pour les pages internet.
La fonction RGB est souvent utilisé car elle est simple d'utilisation.

Ajoutez un composant TButton, TLabel et TPanel.

function ColorToHex(Color : TColor): string;
begin Result:=IntToHex(GetRValue(Color),2)+IntToHex(GetGValue(Color),2)+ IntToHex(GetBValue(Color),2);
end;

procedure TForm1.Button1Click (Sender:TObject);
begin
Label1.Caption:=ColorToHex(Panel1.Color); //Récupère le code hexa
end;