VPF::Построение сетки из изображений и TPrinter

ЧеловекБорща

Дата 24.6.2013, 00:15 (ссылка)

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

Загрузка ...

Шустрый

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

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

Доброго времени суток!

Пользователь создает форму для данных и на ней указывает текстовыми метками какие даные куда вставлять.
В роли формы выступает BMP, JPEG, PNG изображение любого размера.
Перед печатью данные из очереди на печать, гуськом проецируются на указанную форму печати.
Теперь имеем дело только с готовыми BMP файлами.

Далее юзер выбирает шаблон печати, т.е. заранее заданные параметры печати:
Тип/формат бумаги, принтер, ну и конечно же кол-во изображений на лист.

Например сетка картинок 2x4(2 колонки 4 строки) на 1 лист A4.

Собственно проблема:
Как рисовать изображения сеткой?

вот 2 варианта рисования сетки:
Первый:

Код


  var
  iVertLine, i, iHorLine, iCols, iRows, iColsRows: integer;
  z: integer;
begin
  Img.Canvas.Pen.Color := clWhite;
  Img.Canvas.FillRect(Img.BoundsRect);
  z := 25; // Площадь?
  iRows := 4;
  iCols := 4;
  iColsRows := 2;
  Img.Canvas.Pen.Width := 1;
  Img.Canvas.Pen.Color := clBlack;

  for i := 0 to iColsRows do
  begin
    Img.Canvas.MoveTo(0, i * z);
    Img.Canvas.LineTo(iColsRows * z, i * z);
    Img.Canvas.MoveTo(i * z, 0);
    Img.Canvas.LineTo(i * z, iColsRows * z);
  end;

Вместе рисуются и вертикальные и горизонтальные линии, думаю как бы в эту клетку изображение вставить, вот только как?

При таком алгоритме рисование сетки 4x6 невозможно..

А вот так можно рисовать хоть 2x400:

Код


var
  iVertLine, i, iHorLine, iCols, iRows, iColsRows: integer;
  z: integer;
begin
  Img.Canvas.Pen.Color := clWhite;
  Img.Canvas.FillRect(Img.BoundsRect);
  z := 25; // Площадь?
  iRows := 4;
  iCols := 4;
  iColsRows := 2;
  Img.Canvas.Pen.Width := 1;
  Img.Canvas.Pen.Color := clBlack;

    for iHorLine := 0 to iRows do
    begin
    Img.Canvas.MoveTo(0, iHorLine * z);
    Img.Canvas.LineTo(iCols * z, iHorLine * z);
    end;

    // вертикальные
    for iVertLine := 0 to iCols do
    begin
    Img.Canvas.MoveTo(iVertLine * z, 0);
    Img.Canvas.LineTo(iVertLine * z, iRows * z);
    end;

Но я понятия не имею как тут изображение и каким боком вставить....

Может есть способ проще?

В итоге временный TBitmap налезает на Canvas принтера и уходит в печать.

Это сообщение отредактировал(а) ЧеловекБорща - 24.6.2013, 00:16

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