|
|
| Astuces
- Graphique - Obtenir
le code RGB d'une couleur en Delphi |
Ajouter un composant TButton, TPanel et TLabel.
|
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;
|
|
|
