So erhalten Sie mehr RBG-Farbwerte für Delphi

In Delphi gibt der TColor-Typ die Farbe eines Objekts an. Es wird von der Farbeigenschaft vieler Komponenten und von anderen Eigenschaften verwendet, die Farbwerte angeben.

Die Grafikeinheit enthält Definitionen nützlicher Konstanten für TColor. Beispielsweise ordnet clBlue blau, clRed rot zu.

Mehr "CL" -Werte = mehr Farben

Sie können TColor als 4-Byte-Hexadezimalzahl angeben, anstatt die in der Grafikeinheit definierten Konstanten zu verwenden. Die niedrigen drei Bytes repräsentieren RGB-Farbintensitäten (Rot, Grün, Blau) für Blau, Grün bzw. Rot. Beachten Sie die Umkehrung von einer typischen Hex-Farbe: Für TColor ist die Sequenz blau-grün-rot.

Zum Beispiel kann Rot als TColor definiert werden ($ 0000FF).

Konvertieren Sie RBG in TColor

Wenn Sie Werte für die Intensität von Rot, Grün und Blau haben (eine Zahl von 0 bis 255 - Typ "Byte"), können Sie den TColor-Wert folgendermaßen ermitteln:

 var    r, g, b: Byte; Farbe: TColor; Start    r: = StrToInt (ledRed.Text); g: = StrToInt (ledGreen.Text); b: = StrToInt (ledBlue.Text); Farbe: = RGB (r, g, b); Form1.Bürste.Farbe: = Farbe; Ende; 

"LedRed", "ledGreen" und "ledBlue" sind drei Bearbeitungssteuerelemente, mit denen die Intensität jeder Farbkomponente festgelegt wird. Shape1 ist ein TShape Delphi-Steuerelement.

Delphi Tips Navigator:
"Analysieren von durch Tabulatoren getrennten Dateien in Delphi"
"IsDirectoryEmpty - Delphi-Funktion zum Ermitteln, ob ein Verzeichnis leer ist (keine Dateien, keine Unterordner)