2 Farben mischen

2 Farben mischen

2 Farben mischen : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Wie man 2 TColor zusammen mit einer bestimmten Stärke (Deckkraft) mischen.
Funktion BlendColors (Color1, Color2: TColor; Deckkraft: Byte): TColor;
var
Ich: Integer;
Val1,
Val2: Byte;
RGB1,
RGB2: PByteArray;
beginnen
Stellen Sie zunächst sicher, dass sie sind RGB eher als eine Windows-Farbe
Color1: = ColorToRGB(Color1);
Color2: = ColorToRGB(Color2);
Zeigen Sie unsere Byte-Arrays auf 2 Farben
RGB1: = die @Color1;
RGB2: = die @Color2;
Mischung der B, G, R
für I: = 0 bis 2 zu tun
beginnen
Val1: RGB1 = [I] * (255 - Deckkraft) Div 255;
Val2: RGB2 = [I] * Deckkraft Div 255;
RGB1 [I]: = Val1 + Val2;
Ende;
Legen Sie die Farbe Flag $01 angeben = tatsächliche RGB-Farbe
RGB1 [3]: = 1;
Ergebnis: = Color1;
Ende;