tsdima, есть предложение снабдить Printer верхней точкой, для чтения и печати различных контекстов, вот тогда можно будет графику в полный рост печатать, хоть с экрана, хоть с bitmap'а

Непонятки возникли у меня только с матрицей пикселей в Img_Point, которая выпадает из общей закономерности, если послать пиксель на принтер я смогу, то вот что читать -- понтия не имею

Контекст - это просто контекст, он не задаёт ни области для рисования, ни других параметров. Я полагал, что вывод графики будет через Img_Bmp, который будет брать контекст для отрисовки так же, как и другие Img_... Собственно, Img_Bmp для этого и предназначен - рисовать картинку.

tsdima, тут проблема возникла (об ней и в инэте пишут) -- API-функция BitBlt (StretchBlt) не поддерживает контекст принтера, а вот SetPixel, работает, но метод очень медленный.
------------ Дoбавленo:

Только что проверил, действительно функция GetDeviceCaps(Printer.Handle, RC_BITBLT) возвращает 0
И чего теперь

Попробуй GetDeviceCaps(Printer.Handle, RASTERCAPS) и StretchBlt

А ещё не надо забывать пересчитывать координаты для принтера в логические пиксели. Оно может и рисуется, но в невидимой области страницы.

Кроме того, возможно для графики придётся делать SetMapMode(Printer.Handle, MM_TEXT)

Все печатает нормально, но не на физическом устройстве, а на эмуляторе принтера в Office. А вот устройство -- хоть ты сдохни, я уже 7 минут жду вывода рисунка 640х480, 32x32 выводился с полминуты

Я тоже попробовал печать картинки. Вполне так себе быстро. Однако StretchBlt не работает, т.е. растягивать картинку приходится вручную.
Я взял иконку 32х32, растянул до 1000х1000, на бумаге она примерно 4.2х4.2 см, т.е. примерно 600dpi, что соответствует истине.
SetMapMode делать не надо!

tsdima, ты кодом вывода поделись, через чего выводишь-то на принтер. BitBlt у меня не работает однозначно, а значит, у кого-то может тоже не работать.

Это через промежуточный контекст памяти, ну я так тоже делал. У меня такая иконка долго висит с полминуты (доступ к принтеру по сети, через сервер).

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

------------ Дoбавленo:


Вот, приклеил, посмотри. Там все, что я успел перевести. Правда, принтеру на выход onPrint вывел его контекст (по аналогии с MainForm)

P.S. Может еще кто поюзает для тестирования багов, да и скорость печати проверит.

Дык я ничего особенного не делал. Поменял Img_Bmp абсолютно аналогично, как и в предыдущем эксперименте (добавил процедуру Context, скопировав Handle, убрал запрос dc у окна и присвоил напрямую из потока). Закомментировал свой же SetMapMode в hiPrinter.pas. Схема тоже аналогичная, с использованием компонента Resize.


Дык и у меня также.


Я полагал, что _prop_DrawSource будет делать только две функции:
1. выдать контекст
2. освободить его

_prop_DrawSource: procedure(var _Data:TData; var dc:HDC; nFunc:word) of object;

А мясо надо оставить в самом компоненте.

------------ Дoбавленo:

После того, как ты растянул картинку в памяти при помощи StretchBlt можно было выводить на принтер при помощи BitBlt.
Твоя ошибка, наверное, была в том, что ты использовал SetMapMode(pdc, MM_HIMETRIC), а то, что координата Y растёт в другом направлении - не учёл. Фактически, в этом случае, либо координату Y надо задавать отрицательную, либо использовать SetViewportOrgEx(pdc, 0, -PageHeight, nil)

Учел, координата y1, к примеру -- y1 := not y1 * 2540 div LOGPIXELSY_; для всех операций контекста.
А на кой черт оно там нужно, когда все, кроме принтера (и то не с прямой отрисовкой, а с контекстами), работает прекрасно, зато код сократился в разы.
Помимо отрицательного у, добивает еще зеркальное изображение при определенном выводе
Над этим надо подумать, может это -- к лучшему.

Ну да, а при появлении нового компонента, унаследованного от того же базового класса - опять менять базовый класс? Плохой стиль ООП.

Ну и функция отображения и печати у всех разная, что-то одно, а что-то отличается, и сильно отличается.
А мы еще чего-то собираемся туда добавлять, за столько-то лет не сильно-то он поменялся? Мне даже градиент пришлось сделать вне базового класса, слишком он специфичен.
Вот ты мне объясни, что в таком случае останется в качестве "мяса", чтение координат и контекстов Но ведь и отработка вывода графики разная в базе для каждого подкласса, и на кой тогда вообще вызов DrawSource -- предподготовка к выводу, что ли

А должна бы быть одинаковой...


Типа того. Чтобы "мясо" не было зависимым от DrawSource.

tsdima, это получается, что мы должны вынести doDraw в наследников (как это я сейчас сделал), подготовить контекст к отрисовке и вызвать DrawSource родителя, правильно я понял. Тут получится, что мы будем делать несколько ненужных операций по созданию промежуточного контекста отрисовки с уже готовым изображением. И еще, если контекст канвы и принтера очищать не надо, то контекст окна -- обязательно, а значит его надо делать в родителе.

------------ Дoбавленo:


Мдяяя уж... Сейчас проверил -- точно нужен промежуточный контекст для принтера с уже готовым, увеличенным рисунком, тогда BitBlt начинает работат, но работает сравнительно быстро (320x240 передавало около 20 сек по сетке)

Мне это кажется более логичным.


Не совсем. DrawSource это и есть подготовка и выдача контекста перед отрисовкой (задача номер 1), а также очистка и удаление при необходимости после отрисовки (задача номер 2).
Получается, что doDraw выглядит примерно так:
------------ Дoбавленo:

Кстати, DrawSource могла бы выполнять и другие задачи, например трансляцию координат (тех, которые хранятся в базовом классе, либо передаваемых как параметр, который в этом случае нужно сделать безтиповым) причём с учётом установленного MapMode, который может быть различным для разных контекстов. В данном случае я имею ввиду принтер.
------------ Дoбавленo:

Можно было бы даже освободить разработчика от необходимости указывать DrawSource, если передавать этот тип как тип данных вместе с hWnd/hBitmap/hDC.

tsdima, зачем у тебя указано два вызова DrawSource
Что означает константа nFunc
Что мы передаем в _Data, если мы его отдаем, значит обработчик данных должен быть в базе
Что подразумевается под ... рисуем на контексте dc ... -- основные функции отрисовки конкретного компонента, так что ли
Ну мне непонятно, как передать и определить разницу между hWnd и hDC -- использовать разницу типов, я правильно понял Интересно, что контекст принтера передается в Real
Как получить MapMode у принтера, через отдельную точку, так, или "как"
Ты уж извини, но концепция какя-то мутноватая отрисовывается, для меня, по крайней мере.

Самый главный вопрос, который меня беспокоит -- это где применять конкретные методы графической отрисовки , в компоненте или в базе
Если не трудно, то напиши по пунктам, что делать с кратким описанием основных методов, что откуда читаем, и что куда передаем, и где чего отрисовываем.