Цитата:
|
Сообщение от lmikle
Если тебе оттенки серого, то просто воспользуйся функцией RGB().
Теда надо передать 3 одинаковых значения от 0 до 255 (черный и белый на границах соответсвенно).
Код:
function SelectColor(Value : Extended) : TColor;
var
b : byte;
begin
b := Round(RoundTo(Value,-2) - Int(Value) / 255);
Result := RGB(b,b,b);
end; |
Немного не понял, как с ним работать. Как у меня будет определять, где темнее оттенок, а где светлее ?