Come ottenere più valori di colore RBG per Delphi

Nel 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 4 byte numero esadecimale invece di usare 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. Testo); g: = StrToInt (ledGreen. Testo); b: = StrToInt (ledBlue. Testo); colore: = RGB (r, g, b); Shape1.Brush. Colore: = colore; fine; 
instagram viewer

"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)

instagram story viewer