, hoe te mengen, samen TColor's samen met 1 2 A van kracht (Opacity).,, de functie BlendColors (Color1, Color2: TColor; Opacity: byte): TColor;,, var,, I: het gehele getal;,,,, Val1, Val2: byte;,,,, rgb2: waarden, PByteArray;,,, //First beginnen, dat zij het RGB - 8. A ramen met,, Color1: = ColorToRGB (Color1);,, Color2: = ColorToRGB (Color2);,,, //Point onze byte 2 gevallen aan de Colours waarden: = @Color1;,,,, rgb2: = @Color2;,,, //Blend de B, G, R,, voor I:=0 tot 2 doen, ik Val1:,, RGB1[I] * = (255 - Opacity) die Val2: 255;,, * * * * * * * Opacity = RGB2[I] div 255;,, RGB1[I]: = Val1 + Val2;Tot slot,,,,,, /die vlaggen aangewezen 01 dollar = de werkelijke waarden van kleur, [3]:= 1;,, resultaten: = Color1;,, een einde te maken aan de;,