[bleeep]

Всем привет! Не могу никак разобраться в чем трабл...
В общем в свойствах RichEdit'а ставлю шрифт "6" после компиляции так и есть печатает шестым, но вот процедура
RichEdit1.Lines.Add('Some Text')
почему то добавляет текст не шестого, а восьмого.
Как это исправить, чтобы процедура добавляла тоже шестым?

[lmikle]

Выделить добавленный текст и в его атрибутах указать шрифт.

[bleeep]

А можно подробнее?)

[Phedor]

Проще задать 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;

[bleeep]

Проще задать 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;

Ничего не помогло((((Все равно процедура добавляет восьмым((