Вывод текста в несколько колонок (Delphi 7)

[Gonzo]

Доброго времени суток!
Подскажите какой-нибудь компонент для вывода текста в несколько колонок.
Текст форматированный.

[bulldog5293]

во что именно, в листвью или стрингрид?

[Gonzo]

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

во что именно, в листвью или стрингрид?

Уважаемый, читайте внимательней - нужен компонент, позволяющий выводить ФОРМАТИРОВАННЫЙ текст в несколько колонок.
Оба предложенных Вами компонента не подходят, поскольку не позволяют выводить форматированный текст: различное шрифтовое оформление, абзацы и проч.
RichEdit позволяет работать с форматированным текстом, но не позволяет выводить текст в колонках.

[Gonzo]

С RichViewEdit никто не работал? есть ли такая возможность? - на сайте разработчика такой информации не нашел

[Аватар]

А несколько RichView рядышком разместить не подойдет?

[Gonzo]

Сообщение от Аватар

А несколько RichView рядышком разместить не подойдет?

не пойдёт.

[SERG1980]

Может вам такой компонент подойдёт http://www.tmssoftware.com/site/advgrid.asp

[Gonzo]

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

Может вам такой компонент подойдёт http://www.tmssoftware.com/site/advgrid.asp

К сожалению не подходит. Да и платный он.
Каюсь - описал необходимую задачу не достаточно точно.
Нужен компонент, позволяющий:
- ввести и/или вставить текст;
- провести его форматирование;
- разбить его на колонки.
-----------
Сейчас всё чаще посещает мысль встроить Word через OLE и работать с ним. Пока это единственное решение, к которому я пришел.
Пока остановлюсь на этом. Но конечно, если кто всё же знает подходящий компонент - поделитесь секретом

[Gonzo]

Теперь столкнулся с проблемой c Word:
Как перенести текст из Word, сохраняя форматирование на Canvas?
Если с RichEdit это не составляет труда (может кому пригодится):
[spoiler]

procedure RichEditToCanvas(RichEdit: TRichEdit; Canvas: TCanvas; CanvasRect: TRect);
var
  fmt: TFormatRange;
  PixPerInch: Integer;
begin
  with Canvas do
  begin
    Brush.Color := clWhite;
    FillRect(CanvasRect);
  end;
  with fmt do
  begin
    hdc := Canvas.Handle;
    hdcTarget := hdc;
    PixPerInch := Application.MainForm.PixelsPerInch;
    rc.Left := CanvasRect.Left * 1440 div PixPerInch;
    rc.Top := CanvasRect.Top * 1440 div PixPerInch;
    rc.Right := CanvasRect.Right * 1440 div PixPerInch;
    rc.Bottom := CanvasRect.Bottom * 1440 div PixPerInch;
    rcPage := rc;
    chrg.cpMin := 0;
    chrg.cpMax := RichEdit.GetTextLen;
  end;
  SetBkMode(Canvas.Handle, TRANSPARENT);
  RichEdit.Perform(EM_FORMATRANGE, 1, Integer(@fmt));
  RichEdit.Perform(EM_FORMATRANGE, 0, 0);
end;

[/spoiler], то с Word ситуация посложнее.