Forum: Object-Pascal / Delphi-Language
Delphi
by Namenloser,
3. Jan 2007
Es geht hier aber nicht ums Dithering, sondern um die ADDITIVE FARBSYNTHESE!
und die beruht, wie der name schon sagt, darauf, dass zwei farben addiert werden.
und das ginge ja einfach so:
function AddColors(color1,color2: tcolor): TColor;
var r1, g1, b1,
r2, g2, b2: byte
r3, g3, b3: integer;
begin
// falls es sich um eine Windows-Standartfarbe wie z.b clBtnface handelt:
Forum: Object-Pascal / Delphi-Language
Delphi
by Namenloser,
2. Jan 2007
Additive Farbmischung geht doch ganz einfach o.ô
bitblt(canvas1.Handle,0,0,width,height,canvas2.Handle,0,0,srcand);