Строки добавляются, стили задаются. Но не так как хотелось бы. из двух строк меняется только последняя. В чем может быть проблема?
- Код: Выделить всё
//Добавление текста
procedure AddText;
var
n: integer;
begin
n := MainForm.MemoRez.SelStart;
//добавляем в мемо еще строку
MainForm.MemoRez.Lines[MainForm.MemoRez.Lines.Count-1] :=
MainForm.MemoRez.Lines[MainForm.MemoRez.Lines.Count-1]+' '+text;
// Читаем атрибуты
MainForm.MemoRez.GetTextAttributes(n, fp);
//Устанавливаем значения
if Color<>'' then
fp.Color :=ConvertHtmlHexToTColor(Color);
Color:='';
if Size<>'' then
fp.Size := StrToInt(Size);
Size:='';
//Впихиваем в мемо указанные атрибуты
MainForm.MemoRez.SetTextAttributes (n,Length(Text),fp);
text:='';
//Ставим курсор
MainForm.MemoRez.SetFocus;
end;