| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Копирование тектса из одного TRichEdit-а в другой [D6, Win2k, WinXP]

darlock ©   (2006-09-13 18:53:00) 

Всем привет.
У меня есть два TRichEdit-а - допустим заголовок (пару страниц - не меняющихся) и тело (остальной документ)- я хочу их вывести в одном - так что бы получился документ целиком. Как это сделать в Делфи, сохранив при этом все форматирование и шрифты.
Спасибо

---

ффф   (2006-09-27 18:04:00) [1]

ф

---

dansel   (2006-09-20 18:25:00) [2]

При таком подходе можно скопировать один RE в другой (AFAIK). Как скопировать два в один?

---

dansel   (2006-09-20 18:25:00) [3]

При таком подходе можно скопировать один RE в другой (AFAIK). Как скопировать два в один?

---

Anatoly Podgoretsky   (2006-09-14 19:32:00) [4]

darlock   (14.09.06 17:35) [4]
Возможно, но и вопрос не для новичка, но раз ты его задаешь, то значит предполагаешь, что сумеешь понять, для такого сложного вопроса.

---

MBo   (2006-09-14 17:52:00) [5]

P.S.
Возможно, пример очень старый, и некоторые объявления уже лишние

---

MBo   (2006-09-14 17:51:00) [6]

Свой пример не нашел, вот от Калверта (не проверял)
{--------------------------------------}
{-- RichEdit Code ---------------------}
{--------------------------------------}

uses RichEdit;
Type
 TEditStreamCallBack = function (dwCookie : DWORD; buf : PChar;
bytestoread : LongInt; var bytesread : LongInt): DWORD; stdcall;

 TEditStream = record
   dwCookie: Longint;
   dwError: Longint;
   pfnCallback: TEditStreamCallBack;
 end;

 StreamOps = (readop, writeop);

 TRTFCookieData = {my data record} record
   streamop : readop..writeop;
   opstream : TStream;
 end;
 PRTFData = ^TRTFCookieData;

{$R *.DFM}

function EditStreamCallBack(dwCookie : DWORD; buf : PChar;
bytestoread : LongInt; var bytesread : LongInt): DWORD; stdcall;
var
  astream : TStream;
  RTFData : PRTFData;
begin
    RTFData := PRTFData(dwCookie);
    astream := RTFData.opstream;
    result := S_OK;
    bytesread := 0;
    try
       if RTFData.streamop = readop then
         bytesread := astream.Read(buf^, bytestoread)
       else
         bytesread := astream.Write(buf^, bytestoread);
       showmessage(inttostr(bytesread));
    except
       result := E_FAIL;
    end;
end;

procedure RTF_To_Stream(RE : TRichEdit; astream : TStream);
var
  CookieData : TRTFCookieData;
  EditStream : TEditStream;
begin
    CookieData.streamop := writeop;
    CookieData.opstream := astream;
    EditStream.dwCookie := DWORD(@CookieData);
    EditStream.pfnCallback := EditStreamCallBack;
    EditStream.dwError := S_OK;
    SendMessage(RE.handle, EM_STREAMOUT, SF_RTF or SFF_SELECTION,
LongInt(@EditStream));
end;

procedure RTF_From_Stream(RE : TRichEdit; astream : TStream);
var
  CookieData : TRTFCookieData;
  EditStream : TEditStream;
begin
    CookieData.streamop := readop;
    CookieData.opstream := astream;
    EditStream.dwCookie := DWORD(@CookieData);
    EditStream.pfnCallback := EditStreamCallBack;
    EditStream.dwError := S_OK;
    SendMessage(RE.handle, EM_STREAMIN, SF_RTF or SFF_SELECTION,
LongInt(@EditStream));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  ss : TStringStream;
begin
  ss := TStringStream.Create('');
  try
      RTF_To_Stream(RichEdit1, ss);
      ss.position := 0;
      RTF_From_Stream(RichEdit3, ss);
  finally
     ss.free;
  end;
end;

---

darlock   (2006-09-14 17:35:00) [7]

Спасибо, пошел рыть в этом направлнии

П.С. Имхо ответ несколько не для новичка или уровень навичков сильно подрос за последнее время :)

---

MBo   (2006-09-14 13:26:00) [8]

использовать сообщения EM_STREAMIN/EM_STREAMOUT

---

darlock   (2006-09-14 12:51:00) [9]

Хммм, это шутка или я плохо объяснил что у меня не получилось? :)
Насколько мне известно копирование таким образом копирует только текст. Попробую спросить по другому :) -  если у меня есть два различных RTF документа (в каждом документе используется по несколько разных шрифтов, различные абзацы, нумерация пунктов и т.д), открытых в двух разных  TRichEdit-ах, и я бы хотел эти документы объединить в один - в третий (RichEdit3) - так что бы их шрифты, цвета, нумерация, абзацы и т.д сохранились - т.е. получить 3ий документ состоящий из этих двух.

Спасибо.

---

Anatoly Podgoretsky   (2006-09-13 19:48:00) [10]

1. RichEdit2.Text2 := RichEdit1.Text
2. RichEdit2.Text2 := RichEdit2.Text2 + RichEdit1.Text

---

Наверх