обясните роботу смены цвета в собственных шрифтах

[beZ_probleM]

Привет всем!
использую либу Font_32
написал вот такую процедуру для смены цвета текста

procedure change_color(black:boolean);
begin
if black=false then
    im_font:=ReplaceColor(im_font, TranslateColor(255,0,0,0), TranslateColor(255,200,200,198))  //это типа серый текст
else
  im_font:=ReplaceColor(im_font, TranslateColor(255,200,200,198), TranslateColor(255,0,0,0));
Modify(im_font);
end; 


но оно токо меняет на серый цвет... а менять на чёрный нехочет...
я наверно просто не понял что делаетсо при вызове процедуры Modify(im_font).... оно меняет в переменной чорное на серое и ето ж серое остаётсо в переменной?

[odd]

Телефон может при записи и округлять значения цветов. Скажем, пытаешься записать (200, 200, 19, а он запишет (200, 200, 200). Вся фигня в том, что в телефоне цветов не 16 млн, а 65 тыс. всего поэтому и происходит округление, только у одних телефонов округление цветов происходит при выводе на экран, а у других сразу при записи в буфер экрана. Попробуй использовать функцию GetColor для выяснения какой же там на самом деле код цвета записан.
А вообще каждый раз менять так цвет шрифта слишком долго и непрактично. Воспользуйся функцией LoadFont2, с её помощью можно загрузить в память несколько одинаковых разноцветных шрифтов (раскрасить можно и самому) и при этом таблица символов у них будет общая.