Загрузка цветовой гаммы RichEdit

[ScreN]

Здравствуйте.

Проблема вот в чем. Сделал диалог изменения цвета фона в RichEdit..
Когда цвет меняется.. идет сохранение параметров в реестр.. А потом при старте программы.. загрузка из реестра.
Цветовой код в реестр сохраняется нормально.. да и загрузка идет нормальная. Но при следующем запуске программы.. цвет в RichEdit почему то востонавливается прежний. Белый.. По умолчании... А не тот что был выбран и сохранен до этого..

Вот как я делаю.

Выбор цвета из ComboBox

{Цвет ФОНА}
procedure TConfigForm.sSpeedButton1Click(Sender: TObject);
begin
  if ColorFon.Execute then Begin
  PrewColor.Color:= ColorFon.Color;
  end;
end;

Кнопка применить

{Кнопка Применить}
procedure TConfigForm.ButtonOkClick(Sender: TObject);
begin
 ConfSaveParam;
 Close;
end;

Сохранение настроек

ConfSave.WriteInteger('Config','SelColorFonBox', ColorFon.Color); //ColorBox
ConfSave.WriteInteger('Config','ColorFon', PrewColor.Color); // RichEdit

Загрузка настроек

ColorFon.Color:=ConfLoad.ReadInteger('Config','SelColorFonBox', 0); //ColorBox
PrewColor.Color:=ConfLoad.ReadInteger('Config','ColorFon', 0); //RichEdit

Далее... Загрузка при старте

{Показ главной формы}
procedure TForm1.FormShow(Sender: TObject);
begin
  ConfigForm.ConfLoadParam; {Загрузка параметров программы}

.....


Когда я меняю цвет.. Он меняется в RichEdit и сохраняется цветовой код самого ColorBox и RichEdit в реестр...

А потом я пытаюсь при старте программы.. загрузить его... Но цвет почему то становится по умолчанию белым...
А вот еще момент...
Если зайти в форму с настройками и потом выйти и опять зайти... Тогда цвет в RichEdit меняется на тот который выбрал.. А если 1 раз зайти в форму с настройками.. то цвет стоит по умолчанию...

Помогите..
Заранее спасибо!

[mihali4]

А вы ему Repaint делать не пробовали? После установки считанного из реестра цвета. Компонент-то капризный...

[ScreN]

пробывал я ему Repaint делать... Не помогает

[ScreN]

У меня выбор параметров идет через ListBox... я уже думаю может в нем что..

[ScreN]

Дело в том что когда я выбираю цвет.. то он сразу меняется.. А вот при запуске программы.. пока форму с настройками 2 раза не откроешь.. он не загрузится из реестра...

[Kotofff]

Сообщение от ScreN

пробывал я ему Repaint делать... Не помогает

Для перерисовки RichEdit вообще-то Format применяется. А перед выводом на него чего угодно нужно Clear применять...

RichEdit1.Clear;
......
...... Что-то выводим
......
RichEdit1.Format;

Прошу прощения , наверное не выспался я сегодня .... RichEdit с RichView перепутал.... Спешка. Уважаемые модераторы, если можно удалите пост.

[ScreN]

Ты где такой параметр "FORMAT" нарыл? У мну лично такого не присутствует!
А вот Repaint не помогает... Rich не перерисовывается .. и форма тоже..!

[mihali4]

Ну, вот вы сделали:

Загрузка настроек
ColorFon.Color:=ConfLoad.ReadIntege r('Config','SelColorFonBox', 0); //ColorBox
PrewColor.Color:=ConfLoad.ReadInteg er('Config','ColorFon', 0); //RichEdit

Приведите строку, где вы присваиваете RichEdit-у фоновый цвет.
Может, вы там что-то намудрили?
Я моделировал ситуацию - никакого репэйнта даже не понадобилось...
Присвоение нового цвета делал даже в онкриэйте формы...

[ScreN]

procedure TConfigForm.sSpeedButton1Click(Sender: TObject);
begin
  If ColorFon.Execute Then
  PrewColor.Color:= ColorFon.Color;
end;

PrewColor - это у меня так называется RichEdit.. так как это всего лишь предпросмотр...

Можите уже закрывать топик... Так уж вышло что оно само взяло и заработало... Вот уж не знаю как..
Вроде ничего в коде не трогал...

Я тоже когда у меня не получалось.. Стал моделировать ситуацию... Там все у меня работало..

А щас и здесь все каким та образом заработало...
Всем спасибо!

Блин.. Ну вот.. Удалил данные из реестра.. И теперь опять не работает ппц

Пользуйтесь кнопкой "Правка"