komplementäre Farbe finden

[rawsoul]

Mist, dabei war ich mir so sicher Bin auf das Problem noch nicht gestoßen, danke für die Info

//Edit:
Gerade mal ausprobiert - auch mit der Methode, wie der TS sie vorschlug, gibt es dabei Probleme. Aber allgemein stellt sich für mich die Frage: Wie bildet man die komplementäre Farbe eines Grautons (z.b. 7F7F7F / 127,127,127)?

Delphi-Quellcode:

procedure tform1.newcolors;
begin
  panel1.color := rgb(trackbar1.position, trackbar2.position, trackbar3.position);
  panel2.color := panel1.color xor clwhite;
  panel3.color := rgb(255 - getrvalue(panel1.color), 255 - getgvalue(panel1.color), 255 - getbValue(panel1.color));
  panel1.font.color := panel2.color;
end;