Iekšā Delfi, TColor tips norāda objekta krāsu. To izmanto daudzu komponentu krāsu īpašība un citas īpašības, kas norāda krāsu vērtības.
Grafikas vienībā ir TColor noderīgo konstantu definīcijas. Piemēram, clBlue kartes ir zilas, clRed kartes - sarkanas.
Vairāk "CL" vērtību = vairāk krāsu
Jūs varat norādīt TColor kā 4 baitu heksadecimālais skaitlis tā vietā, lai izmantotu konstantes, kas definētas grafikas vienībā. Trīs zemie baiti norāda RGB (sarkanā, zaļā, zilā) krāsu intensitāti attiecīgi zilajai, zaļai un sarkanai. Ņemiet vērā apgriešanu no tipiskas heksa krāsas: TColor secība ir zili-zaļi-sarkana.
Piemēram, sarkanu var definēt kā TColor (USD 0000FF).
Konvertēt RBG uz TColor
Ja jums ir sarkanās, zaļās un zilās intensitātes vērtības (skaitlis no 0 līdz 255 - "baitu" tips), lūk, kā iegūt TColor vērtību:
var r, g, b: baits; krāsa: TColor; sākt r: = StrToInt (ledRed. Teksts); g: = StrToInt (ledGreen. Teksts); b: = StrToInt (ledBlue. Teksts); krāsa: = RGB (r, g, b); Forma1.Brūze. Krāsa: = krāsa; beigas; "LedRed", "ledGreen" un "ledBlue" ir trīs rediģēšanas vadīklas, kuras izmanto, lai norādītu katra krāsu komponenta intensitāti. Shape1 ir TShape Delphi vadība.
Delphi padomu navigators:
»Kā parsēt TAB atdalītos failus Delfos
«IsDirectoryEmpty - Delphi funkcija, lai noteiktu, vai direktorijs ir tukšs (nav failu, nav apakšmapes)