Изменение выделенного текста

[KatCH]

Здраствуйте. Сразу говорю - поиск юзал
Подскажите пожалуйста, как реализовать изменение только выделенного текста в Memo. Т.е. жирный\курсив\подчеркнутый\цвет текста. В поиске встречал код типа

Memo1.Strings.Font:=Memo1.Strings.Fon+[fsBold]

Но он изменяет абсолютно весь текст.

P.s. Борландский исходник RichEdit просматривал, но ничего не понял, тупо код скопипастил себе и все. А я хочу как бэ вникнуть в проблему и понять, что дак как

[raxp]

...перерисовывать самому + обрабатывать выделение ...подсмотреть как, можете тут

[KatCH]

Нужно добавить к тексту время и дату

procedure TForm2.ToolButton5Click(Sender: TObject);
Var
CurrDate:TDateTime;
begin
 CurrDate := Date;
 RichEdit1.Text:=RichEdit1.Text+FloatToStr(CurrDate);
end;

Вот сегодня 22.02.10 а выводит "40231" - от такую ахинею. Как преобразовать?))

[KatCH]

Поиск правит миром

Var
CurrDate:TDateTime;
begin
 CurrDate := Date;
 RichEdit1.Text:=RichEdit1.Text+DateToStr(CurrDate);
end;

Мб кому то пригодится