Kuidas saada Delphi jaoks rohkem RBG värviväärtusi

Sisse Delphi, määrab TColori tüüp objekti värvi. Seda kasutavad paljude komponentide värviomadused ja muud omadused, mis määravad värviväärtused.

Graafikaüksus sisaldab TColori kasulike konstantide määratlusi. Näiteks kaardistab clBlue siniseks, clRed kaardiks punaseks.

Rohkem "CL" väärtusi = rohkem värve

Saate määrata TColori 4-baidiseks kuueteistkümnendarv selle asemel, et kasutada graafikaühikus määratletud konstante. Kolm madalat baiti tähistavad vastavalt sinise, rohelise ja punase RGB (punane, roheline, sinine) värvi intensiivsust. Pange tähele ümberpööramist tüüpilisest kuusvärvist: TColori puhul on järjestus sinakasroheline-punane.

Näiteks võib punase määratleda kui TColori ($ 0000FF).

Teisenda RBG TColoriks

Kui teil on punase, rohelise ja sinise intensiivsuse väärtused (arv vahemikus 0 kuni 255 - tüüp "bait"), siis saate TColori väärtuse saamiseks järgmist:

var r, g, b: bait; värv: TColor; alustada r: = StrToInt (ledRed. Tekst); g: = StrToInt (ledGreen. Tekst); b: = StrToInt (ledBlue. Tekst); värv: = RGB (r, g, b); Kuju1.Pruun. Värv: = värv; lõpp; 
instagram viewer

"LedRed", "ledGreen" ja "ledBlue" on kolm redigeerimise juhtelementi, mida kasutatakse iga värvikomponendi intensiivsuse määramiseks. Shape1 on TShape Delphi juhtseade.

Delphi näpunäidete navigaator:
TAB-i piiritletud failide sõelumine Delphis
«IsDirectoryEmpty - funktsioon Delphi, et teha kindlaks, kas kataloog on tühi (faile pole, alamkaustu pole)