Jak získat více hodnot RBG pro Delphi

v Delphi, typ TColor určuje barvu objektu. Používá se vlastnost color of many components a další vlastnosti, které specifikují hodnoty barev.

Grafická jednotka obsahuje definice užitečných konstant pro TColor. Například clBlue mapy na modrou, clRed mapy na červenou.

Více hodnot „CL“ = více barev

Můžete specifikovat TColor jako 4-bajt hexadecimální číslo namísto použití konstant definovaných v grafické jednotce. Nízké tři bajty představují intenzitu barev RGB (červená, zelená, modrá) pro modrou, zelenou a červenou. Všimněte si inverze z typické hexové barvy: Pro TColor je sekvence modro-zelená-červená.

Například červená může být definována jako TColor ($ 0000FF).

Převést RBG na TColor

Pokud máte hodnoty pro červenou, zelenou a modrou intenzitu (číslo od 0 do 255 - typ „byte“), získejte hodnotu TColor takto:

var r, g, b: Byte; barva: TColor; začít r: = StrToInt (ledRed. Text); g: = StrToInt (ledGreen. Text); b: = StrToInt (ledBlue. Text); barva: = RGB (r, g, b); Shape1.Brush. Barva: = barva; konec; 
instagram viewer

"LedRed", "ledGreen" a "ledBlue" jsou tři ovládací prvky pro úpravy používané k určení intenzity každé barevné složky. Shape1 je ovládací prvek Delphi TShape.

Navigátor tipů pro Delphi:
»Jak analyzovat oddělené soubory TAB v Delphi
«IsDirectoryEmpty - funkce Delphi k určení, zda je adresář prázdný (žádné soubory, žádné podsložky)