Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 6 158

/ вопрос решён /

Приветствую, уважаемые эксперты!

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

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

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

Копирую раскрашенный ричедит в другой

RichEdit2.text:=RichEdit1.text;

При копировании раскраска ПРОПАДАЕТ. Выручайте! Пожалуйста!
Очень нужно именно копированием перенести один ричедит в другой с сохранением цвета.

Или подскажите, как можно перенести текст с сохранением цвета.

mpdasa Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задал: mpdasa (статус: Посетитель)
Вопрос отправлен: 26 мая 2012, 09:18
Состояние вопроса: решён, ответов: 1.

Ответ #1. Отвечает эксперт: ANBsoft

Здравствуйте, mpdasa!
А если так:

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

Ответ отправил: ANBsoft (статус: Студент)
Время отправки: 26 мая 2012, 10:07
Оценка за ответ: 5

Комментарий к оценке: Работает! Спасибо!

Мини-форум вопроса

Всего сообщений: 3; последнее сообщение — 26 мая 2012, 14:32; участников в обсуждении: 2.
mpdasa

mpdasa (статус: Посетитель), 26 мая 2012, 11:13 [#1]:

Со всем кодом, который дали в ответе разобрался. Непонятна только строка
m.Position:=0;

Что озн. этот ноль?

И что еще важно для меня, если ли возножность с помощью этого кода копировать не весь ричедит, а часть строки или искомые символы?

Спасибо.
ANBsoft

ANBsoft (статус: Студент), 26 мая 2012, 14:28 [#2]:

TMemoryStream.Position
Indicates the current offset into the stream for reading and writing.(Delphi Help)
Отображает текущую позицию потока для чтения или запись
А так не пробовали?
http://yandex.ua/yandsearch?rdrnd=113527&text=%D0%BA%D0%BE%D0%BF%D0%B8%D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D0%B5%20%D1%87%D0%B0%D1%81%D1%82%D0%B8%20richedit&lr=143
ANBsoft

ANBsoft (статус: Студент), 26 мая 2012, 14:32 [#3]:

Первая же ссылка даст искомое:
RichEdit1.SelStart := 0;
RichEdit1.SelLength :=300;
RichEdit1.CopyToClipboard;
RichEdit2.PasteFromClipboard;

27 мая 2012, 12:17: Статус вопроса изменён на решённый (изменил автор вопроса — mpdasa)

20 июня 2012, 21:15: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с компонентами и библиотеками модератором Ерёмин А.А.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:27
Выполнено за 0.03 сек.