Проще задать RincEdit1.DefaultAttributes.Font.Size := 6 { Пишу по памяти }
В предложенном lmikle случае:
// Не пробовал, возможно еще минусовать прийдется для учета переноса строки
RichEdit1.SelStart := length(RichEdit1.Text)-length(RichEdit1.Lines[RichEdit1.Lines.Count-1];
RichEdit1.SelLength := length(RichEdit1.Lines[RichEdit1.Lines.Count-1];
RichEdit1.SelAttributes.Font.Size := 6;
Ничего не помогло((((Все равно процедура добавляет восьмым((
23.02.2010, 03:19
Древовидный вид