Section courante

A propos

Section administrative du site

COLORTORGB

 Couleur à RGB
Delphi/Kylix/Lazarus Graphics

Syntaxe

Function ColorToRGB(Color:TColor):LongInt;

Paramètres

Nom Description
Color Ce paramètre permet d'indiquer la valeur de la couleur

Description

Cette fonction retourne la valeur numérique RGB d'une couleur à partir de la «TColor».

Exemple

Voici un exemple montrant l'utilisation de cette fonction :

  1. Program ColorToRGBSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. Uses SysUtils,Graphics;
  6.  
  7. BEGIN
  8.  WriteLn('IntToHex(ColorToRGB(clRed))=',IntToHex(ColorToRGB(clRed),6));
  9.  WriteLn('IntToHex(ColorToRGB(clYellow))=',IntToHex(ColorToRGB(clYellow),6));
  10.  WriteLn('IntToHex(ColorToRGB(clGreen))=',IntToHex(ColorToRGB(clGreen),6));
  11.  WriteLn('IntToHex(ColorToRGB(clBlue))=',IntToHex(ColorToRGB(clBlue),6));
  12.  WriteLn('IntToHex(ColorToRGB(clWhite)=',IntToHex(ColorToRGB(clWhite),6));
  13. END.

on obtiendra le résultat suivant :

IntToHex(ColorToRGB(clRed))=0000FF
IntToHex(ColorToRGB(clYellow))=00FFFF
IntToHex(ColorToRGB(clGreen))=008000
IntToHex(ColorToRGB(clBlue))=FF0000
IntToHex(ColorToRGB(clWhite)=FFFFFF

Dernière mise à jour : Mercredi, le 18 février 2015