[vbh99]

Допустим, у нас есть цвет: RGB(255, 255, 255), из него нужно получить RGB(0,0,0). Или на пример есть RGB(238, 205, 125), нужно получить RGB(17, 50, 130). Как это сделать? Или как получить отдельные компоненты цвета?

[NumLock]

Код:

var
  c0, c1: TColor;
begin
  c0:=$EECD7D;
  c1:=RGB(255-GetRValue(c0), 255-GetGValue(c0), 255-GetBValue(c0));
end;

[Страдалецъ]

Ну обратной всегда считалась операция xor. поэтому правильнее наверное так:

Код:

var
  c0, c1: TColor;
begin
  c0:=$EECD7D;
  c1:=с0 xor $FFFFFF
end;

[NumLock]

не спорю

как получить отдельные компоненты цвета?

Код:

var
  c0, c1: TColor;
begin
  c0:=$EECD7D;
  c1:=RGB($ff xor GetRValue(c0), $ff xor GetGValue(c0), $ff xor GetBValue(c0));
end;

одним ответом все вопросы...