У меня есть два ричедит
В одном ричедит раскрашенный текст, с помощью следующих комманд:
Код:
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;
И действительно, текст переносится с цветом. Но мне надо не весь текст, а какие-то куски переносить.