Farben kombinieren

[Sunlight7]

So mach ich das immer, funkt bestens...

Delphi-Quellcode:

function SCombineColor(const Color1, Color2:DWord):DWord;
   var RGB1, RGB2, xRGB:TRGB;
begin
   ...

   xRGB.Red:=  Round((RGB1.Red+  RGB2.Red)   / 2);
   xRGB.Green:=Round((RGB1.Green+RGB2.Green) / 2);
   xRGB.Blue:= Round((RGB1.Blue+ RGB2.Blue)  / 2);

   ...
end;

Grüßle!