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

I Delphi, anger TColor-typen färgen på ett 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.

Du kan ange TColor som en 4-byte hexadecimalt antal 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).

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. Färg: = 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)