в Delphi, типът TColor указва цвета на обект. Използва се от свойството на цвета на много компоненти и от други свойства, които определят стойностите на цветовете.
Графичната единица съдържа дефиниции на полезни константи за TColor. Например, clBlue карти до синьо, clRed карти до червено.
Повече „CL“ стойности = повече цветове
Можете да посочите TColor като 4-байт шестнадесетичен брой вместо да използваме константи, дефинирани в графичната единица. Ниските три байта представляват RGB (червен, зелен, син) интензитет на цветовете съответно за синьо, зелено и червено. Обърнете внимание на инверсията от типичен шестнадесети цвят: За TColor последователността е синьо-зелено-червено.
Например червеното може да бъде определено като TColor ($ 0000FF).
Преобразувайте RBG в TColor
Ако имате стойности за червена, зелена и синя интензивност (число от 0 до 255 - тип "байт"), ето как да получите стойността на TColor:
Var r, g, b: Байт; цвят: TColor; започвам r: = StrToInt (ledRed). Текст); g: = StrToInt (ledGreen). Текст); b: = StrToInt (ledBlue). Текст); цвят: = RGB (r, g, b); Shape1.Brush. Цвят: = цвят;
край; "LedRed", "ledGreen" и "ledBlue" са три контрола за редактиране, използвани за определяне на интензивността на всеки цветен компонент. Shape1 е TShape Delphi управление.
Навигатор за съвети на Delphi:
»Как да анализираме разделени TAB файлове в Delphi
«IsDirectoryEmpty - функция Delphi за определяне дали директория е празна (няма файлове, няма подпапки)