[mpdasa]

У меня есть два ричедит
В одном ричедит раскрашенный текст, с помощью следующих комманд:

Код:

for ...
RichEdit1.SelStart :=1;
RichEdit1.SelLength :=1;
RichEdit1.SelAttributes.Color:=ClRed;
end;

При копировании куска текста из одного окна в другое цвет пропадает.


Подскажите, как можно перенести часть текста с сохранением цвета.

На одном форуме мне дали подсказку:

Код:

var m_a_p:TMemoryStream;
begin
  m_a_p:=TMemoryStream.Create;
  RichEdit1.Lines.SaveToStream(m_a_p);
  m_a_p.Position:=0;
  RichEdit2.Lines.LoadFromStream(m_a_p);
  m_a_p.Free;
end;

И действительно, текст переносится с цветом. Но мне надо не весь текст, а какие-то куски переносить.