Нужно вывести текст на принтер. И чтобы предпросмотр был. Со скроллингом и зумом. Основная проблема - масштабирование текста. Хотелось бы "как в ворде". Но не особо получается, потому что font.size имеет тип integer и довольно резко скачет при изменении зума.

Единственным выходом вижу создание чего-нибудь а-ля Bitmap с размером в страницу принтера, рисование на нем, предпросмотр через StretchDraw и вывод на принтер через тот же StretchDraw. Так как опыта у меня в этом деле нет, то вопрос: может, есть алгоритм лучше?

Я хочу разобраться в этом вопросе, поэтому особо нужны теоретические размышления.

P.S. нарыл мнение, что для "буфера" надо использовать TMetafile. Но как на нем рисовать - не ясно. и в D6 примера не нашел.


[Допишу, пожалуй]
Пытаюсь применить Metafile в качестве буфера.

Код

var  mf : TMetafile;  mfc: TMetafileCanvas; begin  mf := TMetafile.Create;  mf.Height := 500;  mf. Width := 500;  mfc := TMetafileCanvas.Create(mf, 0);  mfc.Ellipse(mfc.ClipRect);  // ???  mfc.Free;  mf.Free; end;

Вместо вопросов надо вставить код, отрисовывающий содержимое метафайла на канве (ну, например, Form1). Никак не могу этого сделать.

Это сообщение отредактировал(а) кварк - 16.11.2004, 12:56

А почему не на Bitmap рисовать?

TMetaFileCanvas передаёт рисунок метафайлу при разрушении.
Поэтому, прежде чем выводить метафайл, надо уничтожить метаканвас...

Код

var  mfc: TMetafileCanvas; begin  mf := TMetafile.Create;  mf.Height := 500;  mf. Width := 500;  mfc := TMetafileCanvas.Create(mf, 0);  mfc.Ellipse(mfc.ClipRect);  mfc.Free;  Image1.Canvas.Draw (0, 0, mf);  mf.Free; end;

Цитата

А почему не на Bitmap рисовать?

Полагаю, что Bitmap размером со страницу на принтере немало памяти отъест. А если страниц будет штук 50? (но пока я об этом не думаю - главное с одной разобраться, а там проще будет)
А может, подумаю над алгоритмом рендеринга, где создается Bitmap, на него выводится содержимое страницы, потом оно отправляется либо на предпросмотр, либо на принтер, потом Bitmap очищается и на нем рисуется следующая следующая страница (по-моему, в Ворде так и сделано).

Цитата

TMetaFileCanvas передаёт рисунок метафайлу при разрушении. Поэтому, прежде чем выводить метафайл, надо уничтожить метаканвас...

Да. Я нашел пример. Но вот незадача: код

Код

// b2 - TButton // img - TImage на форме, куда я вывожу изображение // mf - TMetafile procedure TForm1.b2Click(Sender: TObject); begin  b2.Enabled := false;  try    mf := TMetafile.Create;    mf.Width  := Printer.PageWidth;    mf.Height := Printer.PageHeight;    with TMetafileCanvas.Create(mf, 0) do    try       Ellipse(ClipRect);    finally      Free;    end;    Canvas.Rectangle(img.BoundsRect);  // (*1)    Canvas.StretchDraw(img.BoundsRect, mf);  //(*2)  finally    mf.Free;    b2.Enabled := true;  end; end;

выводит прямоугольник (*1) четко по краям img, а вот эллипс (*2) получается какой-то маленький в левом верхнем углу. Я ожидал, что эллипс будет точно вписан в прямоугольник. Что не так?

Дело в том, что в TMetafileCanvas.Create во втором параметре указывается контекст устройства, на котором предполагается выводить картинку...
Ты указываешь 0 - это значит текущий экран, например, разрешением 1024x768...
А в mf.Width и mf.Height указываешь разрешение канваса принтера...
Например, будет 2500x2000 к примеру...
Поэтому Ellipse (Cliprect) рисуется не на всём метафайле, а только на левой-верхней четверти...

Блин, принтера нет, чтобы проверить... Но предполагаю, что заменив второй параметр в создании метаканваса (0) на Printer.Canvas.Handle проблема уйдёт:

Код

with TMetafileCanvas.Create(mf, Printer.Canvas.Handle) do

Подниму свою старую тему... Продолжаю дописывать компонент. Столкнулся с проблемой масштабирования текста. Как бы так сделать, чтобы текст (или отдельный символ - неважно) точно вписывался в заданный прямоугольник (как, например, это сделано в редакторе Macromedia Flash)? Просто если менять Font.Size, то получается топорно.

Может, в WinApi есть функции для этого?

Пока реализовал то, что первым пришло на ум, но это медленно работает.