VPF::Объединить RTF - Форум программистов

GrigoriyFomin

Дата 11.2.2011, 23:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 84
Регистрация: 16.11.2010

Репутация: нет
Всего: нет

Подскажите ,есть ли красивый способ объединить текст в формате RTF в один? Имеем 2 поля типа блоб с RTF, нужно их засунуть в один TRichEdit, сохранив оформление.

klyaksa

Дата 12.2.2011, 11:00 (ссылка)

(голосов:1)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 15.9.2005

Репутация: нет
Всего: нет

Через буфер обмена.

Snowy

Дата 12.2.2011, 13:12 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Вот так можно склеить 2 ричедита:

Код

procedure MergeRichText(re1, re2: TRichEdit);
  function AddRtfCallback(dwCookie: Longint; pbBuff: PByte; cb: Longint;  var pcb: Longint): Longint; stdcall;
  var s: TStream;
  begin
    s := TStream(dwCookie);
    Result := 0;
    with s do
    begin
      if (Size = Position) then
      begin
        pcb := 0;
        Exit;
      end
      else if (Size - Position) <= cb then
      begin
        pcb := Size;
        Read(pbBuff^, Size);
      end
      else begin
        pcb := cb;
        Read(pbBuff^, cb);
      end;
    end;
  end;
var
  ms: TMemoryStream;
  EditStream: TEditStream;
begin
  re1.SelStart := MAXINT;
  ms := TMemoryStream.Create;
  re2.Lines.SaveToStream(ms);
  ms.Position := 0;
  try
    EditStream.dwCookie := Longint(ms);
    EditStream.dwError := 0;
    EditStream.pfnCallback := @AddRtfCallback;
    SendMessage(re1.Handle, EM_STREAMIN, SF_RTF or SFF_SELECTION, Longint(@EditStream));
  finally
    ms.Free;
  end;
end;

2 параметра - ричедит в который текст добавить, второй - ричедит из которого текст добавить.
P.S. uses RichEdit;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »