Farben mischen

[blackdrake]

Hallo und Danke für die Antworten.

Ich hätte nicht gedacht, dass es so einfach durch RGB zu berechnen ist (HSL ist ja durch RGB abzuleiten)

Die Form für ein beliebiges Verhältnis ist dann

Delphi-Quellcode:

verhaeltnis := 0.33; // 33% zu 77%
r := round(verhaeltnis * getrvalue(color1.Color) + (1-verhaeltnis)*getrvalue(color2.Color));
g := round(verhaeltnis * getgvalue(color1.Color) + (1-verhaeltnis)*getgvalue(color2.Color));
b := round(verhaeltnis * getbvalue(color1.Color) + (1-verhaeltnis)*getbvalue(color2.Color));

mixedcolor.Color := rgb(r, g, b);