Come ottenere più valori di colore RBG per Delphi

In Delphi, il tipo TColor specifica il colore di un oggetto. Viene utilizzato dalla proprietà color di molti componenti e da altre proprietà che specificano i valori di colore.

L'unità grafica contiene definizioni di costanti utili per TColor. Ad esempio, clBlue mappa in blu, clRed in rosso.

Più valori "CL" = Più colori

È possibile specificare TColor come numero esadecimale di 4 byte anziché utilizzare le costanti definite nell'unità grafica. I tre byte bassi rappresentano intensità di colore RGB (rosso, verde, blu) rispettivamente per blu, verde e rosso. Nota l'inversione da un tipico colore esadecimale: per TColor, la sequenza è blu-verde-rosso.

Ad esempio, il rosso può essere definito come TColor ($ 0000FF).

Convertire RBG in TColor

Se hai valori per intensità rosso, verde e blu (un numero compreso tra 0 e 255 - tipo "byte"), ecco come ottenere il valore TColor:

 var    r, g, b: byte; colore: TColor; inizio    r: = StrToInt (ledRed.Text); g: = StrToInt (ledGreen.Text); b: = StrToInt (ledBlue.Text); colore: = RGB (r, g, b); Shape1.Brush.Color: = color; fine; 

"LedRed", "ledGreen" e "ledBlue" sono tre controlli di modifica utilizzati per specificare l'intensità di ciascun componente di colore. Shape1 è un controllo TShape Delphi.

Navigatore suggerimenti Delphi:
"Come analizzare i file delimitati da TAB in Delphi
"IsDirectoryEmpty - Funzione Delphi per determinare se una directory è vuota (nessun file, nessuna sottocartella)