Kako dobiti više vrijednosti RBG boja za Delphi

U Delphi, TColor vrsta određuje boju objekta. Koristi ga svojstvo boje mnogih komponenti i druga svojstva koja određuju vrijednosti boje.

Grafička jedinica sadrži definicije korisnih konstanti za TColor. Na primjer, clBlue karte plavu, clRed karte crvene.

TColor možete navesti kao 4-bajt heksadecimalni broj umjesto da koristimo konstante definirane u grafičkoj jedinici. Donja tri bajta predstavljaju intenzitet boje RGB (crvena, zelena, plava) za plavu, zelenu i crvenu boju. Obratite pažnju na inverziju iz tipične šesterokutne boje: Za TColor, redoslijed je plavo-zeleno-crvene.

Na primjer, crvena se može definirati kao TColor (0000FF USD).

Ako imate vrijednosti za crveni, zeleni i plavi intenzitet (broj od 0 do 255 - vrsta "bajta"), evo kako doći do vrijednosti TColor:

var r, g, b: bajt; boja: TColor; početi r: = StrToInt (ledRed). Tekst); g: = StrToInt (ledGreen). Tekst); b: = StrToInt (ledBlue). Tekst); boja: = RGB (r, g, b); Shape1.Brush. Boja: = boja; kraj; 

"LedRed", "ledGreen" i "ledBlue" su tri kontrole za uređivanje koje se koriste za određivanje intenziteta svake komponente u boji. Shape1 je TShape Delphi kontrola.

Navigacijski savjeti za Delphi:
»Kako raščlaniti TAB razgraničene datoteke u Delphiju
«IsDirectoryEmpty - funkcija Delphi za utvrđivanje je li direktorij prazan (nema datoteka, nema podmape)