Отпечатать Memo использовав поля

[macomics]

Используйте вот эту программу и, возможно, вам что-то станет более понятно.

Достаточно посмотреть на доступ к объектам во время открытия и закрытия диалогового окна.

[Kronos913]

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

А как работает PrintDialog ?

Я никакой обработки не сделал из того что было введено в диалоговом окне, при этом сохранились все настройки (выбор принтера, размер страницы)

Я уточняю моменты, потому что нужно так, чтобы код нормально работал на любом ПК

Потому хотел бы узнать, как вообще работает PrintDialog, куда сохраняются все введенные в него изменения?

[macomics]

см. подробнее здесь

Этот диалог организуется функцией API, которая будет работать в любой версии Windows после минимально доступной.

[macomics]

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

Наоборот может не сработать т.к. заполнение структуры параметров функции в компоненте может загружать значения по умолчанию в окно, но использование функции напрямую загрузит параметры с последними внесенными изменениями.

Набор параметров по умолчанию задается в свойствах компонента. Они сохранены в рамках вашей исполняемой программы. Тогда как вызов напрямую потребует от вас составления такого же набора параметров вручную.

[Foreseen]

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

  label1.Caption:=IntToStr(Printer.PageHeight);
  label2.Caption:=IntToStr(Printer.PageWidth);

Выдало 6600 и 5100
Каково происхождение этих чисел?

Они особо не вяжется с 21 х 29 см стандартного А4

Так Вы описание то читайте того, с чем работаете

PageHeight : Высота холста страницы в пикселях
PageWidth : Ширина холста страницы в пикселях

[macomics]

А потом еще dpi и дюймы в сантиметры.

[Foreseen]

Разумеется, мой Microsoft print to PDF выдает 7016 и 4961. 7016/600*25.4=297.01 Вполне вяжется

[Kronos913]

Тестирую настройки принтера

  If PrinterSetupDialog1.Execute then begin
    Label1.Caption:=IntToStr(GetDeviceCaps(Printer.Handle, LOGPIXELSX));
    Label2.Caption:=IntToStr(GetDeviceCaps(Printer.Handle, LOGPIXELSX));

    Label3.Caption:=IntToStr(Printer.PageHeight);
    Label4.Caption:=IntToStr(Printer.PageWidth);

    Label5.Caption:=IntToStr(Printer.Canvas.TextHeight('hp'));
  End;

И вот что заметил: если при настройках выпадет dpi не 600, а 200, количество пикселей в символе останется тем же...

[Kronos913]

Еще одна загадка

Работает криво

    with Printer do begin
      k_x:=GetDeviceCaps(Handle, LOGPIXELSX)/25.4;
      k_y:=GetDeviceCaps(Handle, LOGPIXELSY)/25.4;
      m_t:=trunc(m_top*k_y);
      m_l:=trunc(m_left*k_x);

      y:=Canvas.TextHeight('hp');
      x:=Canvas.TextWidth('Ж');

      mx:=(PageWidth - m_l - trunc(m_right*k_y)) div x;
      my:=(PageHeight - m_t - trunc(m_down*k_y)) div y;
    end;

Поменял порядок строк, и всё стало работать нормально

    with Printer do begin
      y:=Canvas.TextHeight('hp');
      x:=Canvas.TextWidth('Ж');

      k_x:=GetDeviceCaps(Handle, LOGPIXELSX)/25.4;
      k_y:=GetDeviceCaps(Handle, LOGPIXELSY)/25.4;
      m_t:=trunc(m_top*k_y);
      m_l:=trunc(m_left*k_x);

      mx:=(PageWidth - m_l - trunc(m_right*k_y)) div x;
      my:=(PageHeight - m_t - trunc(m_down*k_y)) div y;
    end;

Код вычисляет размеры одного символа, количество строк и символов, которые поместятся на страницу, и переводит поля в нужные единицы

Получается, вызов GetDeviceCaps сбивает какие-то настройки для Canvas.TextHeight?

[Kronos913]

Кстати, еще одну проблему нашел - через canvas.TextOut не отображаются символы табуляции