[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;

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

[Pyro]

взять третий RichEdit для формирования кусков(удалением),
а добавлять куски вроде того:

PHP код:

RichEdit3.SelectAll;
RichEdit3.CopyToClipboard;
RichEdit2.PasteFromClipboard; 


или можно сразу из первого копировать что надо, выделять текст вместо selectall – selstart, sellength

[robt]

мне вот интересно,прежде чем всяку хрень спрашивать на форумах
неужто трудно открыть папку с дельфей,найти там папку демо,в ней папку ричэдит и не е..ть людям голову?

Сообщение от Pyro

взять третий RichEdit для формирования кусков

твоя гениальность тянет на оскар