Hur man får fler RBG-färgvärden för Delphi

I Delphi anger TColor-typen färgens objekt. Det används av färgegenskaperna för många komponenter och av andra egenskaper som anger färgvärden.

Grafikenheten innehåller definitioner av användbara konstanter för TColor. Till exempel, clBlue-kartor till blå, clRed-kartor till röda.

Fler "CL" -värden = Fler färger

Du kan ange TColor som ett hexadecimalt antal med 4 byte istället för att använda de konstanter som definierats i grafikenheten. De låga tre bytena representerar RGB (röd, grön, blå) färgintensitet för blå, grön respektive röd. Notera inversionen från en typisk hexfärg: För TColor är sekvensen blågrön-röd.

Röd kan till exempel definieras som TColor ($ 0000FF).

Konvertera RBG till TColor

Om du har värden för röda, gröna och blå intensiteter (ett nummer från 0 till 255 - "byte" -typ), så här får du TColor-värdet:

 var    r, g, b: Byte; färg: TColor; Börja    r: = StrToInt (ledRed.Text); g: = StrToInt (ledGreen.Text); b: = StrToInt (ledBlue.Text); färg: = RGB (r, g, b); Shape1.Brush.Color: = färg; slutet; 

"LedRed", "ledGreen" och "ledBlue" är tre redigeringskontroller som används för att ange intensiteten för varje färgkomponent. Shape1 är en TShape Delphi-kontroll.

Delphi tipsnavigator:
"Hur man analyserar TAB-avgränsade filer i Delphi
"IsDirectoryEmpty - Delphi-funktion för att bestämma om en katalog är tom (inga filer, inga undermappar)