SetMapMode и прочая чертовщина

[AnTe]

Люди, помогите! Пытаюсь без особого вникания в граф.подсистему венды
нарисовать рисунок на канве, который потом распечатать.

Итак, взял форму, на неё поклал TImage и кнопку. В обработчик нажатия кнопы пытался забить различные кнопы отрисовки, но так и не понял, каким образом работает и SetMapMode, и SetViewportOrgEx, и SetViewportExtEx и SetWindowExtEx....

После длительных экспериментов выяснилось, что какие-то признаки линий рисуются в режимах MM_ISOTROPIC и MM_ANISOTROPIC, значения, передаваемые в SetViewportOrgEx и прочие хоть как-то влияют
на результат вывода лишь в режимах MM_ISOTROPIC и MM_ANISOTROPIC

кое как удалось реализовать одну из проблем!
обработчик теперь таков:

begin
  SetMapMode(image.canvas.handle, MM_ISOTROPIC);
//   showmessage('привет');

  image.Canvas.MoveTo(0, 0);
  image.Canvas.LineTo(2000, 1000);
  image.Canvas.LineTo(2000, 2000);
end;

*********************************** *******************************
* так вот. РЕЗУЛЬТАТ ВЫВОДА теперь напрямую зависит от того, *
* закомментирована ли строка с выводом "привета", или нет! *
*********************************** *******************************

Когда showmessage('привет') выводится, вызов SetMapMode НЕ срабатывает, и линии рисуются такой длины (в две тыщи пикселей), что на экране лишь часть.

Когда showmessage закомментирован, по всей видимости, вызов
срабатывает (?) и на экране в углу какие-то точки.

Почему вывод сообщения вообще влияет на вывод в канву? Что вообще
может "перебивать" ShowMessage?

ps SetMapMode(image.canvas.handle, MM_ISOTROPIC) возвращает 1

[BOBAH13]

Смешно. По сути вы никогда не должны думать что компилятор или транслятор перепутали чтолибо ( ну если у вас конечно не дельфи 1 или еще меньше ). При вызове ShowMessage главный поток ( выполнение кода ) останавливается и ждем отклика от этот диалога. Сам лично не юзал никогда SetMapMode ( да собственно и зачем ? ). И такие вещи я лично предпочитаю рисовать в том же PaintBox в OnPaint

[rpy3uH]

2AnTe: а без SetMapMode никак не обойтись? вообще-то не рекомендуется применять к VCL компонентам API функции.

[AnTe]

Вообще, изначально стояла задача сделать предпросмотр.

То есть, нужно начертить на листе формата А4 таблицу, строго соблюдая ширину/высоту колонок, в ней текст.

При разработке, нужно чтобы пользователь видел на лист экране, как это будет выводиться на печать. Масштабировать и всё такое.

Рисую через canvas.moveto, canvas.lineto, canvas.textout

Иного пути, как изменить координаты порта вывода и окна для вывода, не нашёл

не использовал SetMapMode, задав вручную:

begin 
  SetViewportOrgEx(image.canvas.handle, 0, 0, nil);
  SetViewportExtEx(image.canvas.handle, 100, 100, nil);
  SetWindowExtEx(image.canvas.handle, 1000, 100000, nil);

  image.Canvas.MoveTo(0, 0);
  image.Canvas.LineTo(200, 100);
  image.Canvas.LineTo(200, 200);
end;

Изменение параметров в SetViewportOrgEx влияет на координаты начала вывода, всё нормально. А в SetViewportExtEx и SetWindowExtEx - какие числа не подставляй: всё бестолку

[AnTe]

Нашёл ответ.
1. Сразу же после посылки ЛЮБОГО сообщения ЛЮБОМУ VCL контролу
масштабирование при печати ричтекста перестает работать... Связано
это, похоже, с обработкой сообщений VCL средствами --- любые оконные
операции (в том числе, получение Handle окна) перестраховываются и
лочат канву. Открывается она только после обработки всего стека
сообщений, поэтому, предположительно, результатом посылки EM_SETZOOM
можно будет воспользоваться "при следующем нажатии кнопки".

Источник тут http://www.delphikingdom.com/asp/ans...IDAnswer=21049

Наверное, именно это и имелось в виду в советах мне здесь?

Ну а как же выводить предпросмотр без применения winapi к vcl?

В метафайл рисовать, а его растягивать?

[rpy3uH]

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

Наверное, именно это и имелось в виду в советах мне здесь?

ну да, что-то наподобие... я когда-то копался и понял что с VCL через Win API лучше не работать...

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

Ну а как же выводить предпросмотр без применения winapi к vcl?

а может компоненты есть какие-нибудь?