Comment obtenir plus de valeurs de couleur RVB pour Delphi

Dans Delphes, le type TColor spécifie la couleur d'un objet. Il est utilisé par la propriété color de nombreux composants et par d'autres propriétés qui spécifient des valeurs de couleur.

L'unité Graphics contient des définitions de constantes utiles pour TColor. Par exemple, clBlue correspond au bleu, clRed correspond au rouge.

Vous pouvez spécifier TColor sur 4 octets nombre hexadécimal au lieu d'utiliser les constantes définies dans l'unité graphique. Les trois octets inférieurs représentent respectivement les intensités de couleur RVB (rouge, vert, bleu) pour le bleu, le vert et le rouge. Notez l'inversion d'une couleur hexadécimale typique: pour TColor, la séquence est bleu-vert-rouge.

Par exemple, le rouge peut être défini comme TColor ($ 0000FF).

Si vous avez des valeurs pour les intensités rouge, verte et bleue (un nombre de 0 à 255 - type "octet"), voici comment obtenir la valeur TColor:

var r, g, b: octet; couleur: TColor; 





instagram viewer

commencer r: = StrToInt (ledRed. Texte); g: = StrToInt (ledGreen. Texte); b: = StrToInt (ledBlue. Texte); couleur: = RGB (r, g, b); Shape1.Brush. Couleur: = couleur; fin; 

Les "ledRed", "ledGreen" et "ledBlue" sont trois contrôles d'édition utilisés pour spécifier l'intensité de chaque composante de couleur. Shape1 est un contrôle Delphi TShape.

Navigateur de conseils Delphi:
»Comment analyser des fichiers délimités TAB dans Delphi
«IsDirectoryEmpty - Fonction Delphi pour déterminer si un répertoire est vide (pas de fichiers, pas de sous-dossiers)