W Delfy, typ TColor określa kolor obiektu. Jest używany przez właściwość koloru wielu składników oraz przez inne właściwości określające wartości kolorów.
Jednostka graficzna zawiera definicje użytecznych stałych dla TColor. Na przykład clBlue odwzorowuje na niebieski, clRed odwzorowuje na czerwony.
Więcej wartości „CL” = Więcej kolorów
Możesz określić TColor jako 4-bajtowy liczba szesnastkowa zamiast używać stałych zdefiniowanych w jednostce Graphics. Trzy niskie bajty reprezentują intensywność kolorów RGB (czerwony, zielony, niebieski) odpowiednio dla niebieskiego, zielonego i czerwonego. Zwróć uwagę na odwrócenie typowego koloru heksadecymalnego: w przypadku TColor sekwencja jest niebiesko-zielono-czerwona.
Na przykład czerwony można zdefiniować jako TColor (0000FF).
Konwertuj RBG na TColor
Jeśli masz wartości intensywności czerwonej, zielonej i niebieskiej (liczba od 0 do 255 - typ „bajtowy”), oto jak uzyskać wartość TColor:
var r, g, b: bajt; kolor: TColor; zaczynać r: = StrToInt (ledRed. Tekst); g: = StrToInt (ledGreen. Tekst); b: = StrToInt (ledBlue. Tekst); kolor: = RGB (r, g, b); Kształt 1. Szczotka. Kolor: = kolor;
koniec; „LedRed”, „ledGreen” i „ledBlue” to trzy elementy sterujące edycją używane do określania intensywności każdego składnika koloru. Shape1 jest kontrolką TShape Delphi.
Nawigator Delphi:
»Jak parsować pliki rozdzielane tabulatorami w Delphi
«IsDirectoryEmpty - Funkcja Delphi do określenia, czy katalog jest pusty (bez plików, bez podfolderów)