Hoe meer RBG-kleurwaarden te krijgen voor Delphi

In Delphi geeft het type TColor de kleur van een object aan. Het wordt gebruikt door de kleureigenschap van veel componenten en door andere eigenschappen die kleurwaarden specificeren.

De grafische eenheid bevat definities van nuttige constanten voor TColor. Bijvoorbeeld clBlue-kaarten naar blauw, clRed-kaarten naar rood.

Meer "CL" -waarden = meer kleuren

U kunt TColor opgeven als een hexadecimaal getal van 4 bytes in plaats van de constanten te gebruiken die in de grafische eenheid zijn gedefinieerd. De lage drie bytes vertegenwoordigen RGB (rood, groen, blauw) kleurintensiteiten voor respectievelijk blauw, groen en rood. Let op de inversie van een typische hex-kleur: voor TColor is de reeks blauw-groen-rood.

Rood kan bijvoorbeeld worden gedefinieerd als TColor ($ 0000FF).

Omzetten RBG naar TColor

Als u waarden hebt voor de intensiteiten rood, groen en blauw (een getal van 0 tot 255 - type "byte"), kunt u als volgt de TColor-waarde verkrijgen:

 var    r, g, b: Byte; kleur: TColor; beginnen    r: = StrToInt (ledRed.Text); g: = StrToInt (ledGreen.Text); b: = StrToInt (ledBlue.Text); kleur: = RGB (r, g, b); Shape1.Brush.Color: = kleur; einde; 

De "ledRed", "ledGreen" en "ledBlue" zijn drie bewerkingsknoppen die worden gebruikt om de intensiteit van elke kleurcomponent te specificeren. Shape1 is een TShape Delphi-besturingselement.

Delphi tips navigator:
"Hoe door TAB gescheiden bestanden in Delphi te ontleden
"IsDirectoryEmpty - Delphi-functie om te bepalen of een map leeg is (geen bestanden, geen submappen)