Zitat von
Jörn:
Dann kann man aber auch gleich meinen Code nehmen, der macht dasselbe mit weniger Aufwand
Du meinst also, dass...
White := Color / clWhite; //Weissanteil
...dir die Leuchtkraft einer farbe gibt? ...moment, das ist genial, du hast soeben die moderne farb-algorythmik revolutioniert
Dh. um den schwarzanteil zu bekommen könnte man dann folgendes tun:
Black := color / clBlack;
mâxîmôv.
{KDT}