JS+
Усиленный язык сценариев для Windows
с возможностью встраивания
в ваши приложения
О языке JS+ Справочник Скачать JS+ DLL
Контакты
СПРАВОЧНИК ПО ЯЗЫКУ JS+ Содержание

TPageSetupDialog

- диалоговый компонент
Диалоговые компоненты JS+
Определяет стандартный диалог настройки страницы для печати.

Создание объекта

dlgObj=new TPageSetupDialog(Parent);

Собственные свойства
Свойство Тип Описание
MinMarginBottom Number минимальный отступ снизу
MinMarginLeft Number минимальный отступ слева
MinMarginRight Number минимальный отступ справа
MinMarginTop Number минимальный отступ сверху
MarginBottom Number отступ снизу
MarginLeft Number отступ слева
MarginRight Number отступ справа
MarginTop Number отступ сверху
Options Enumset флаги настройки диалога (см. ниже)
PageHeight Number высота страницы
PageWidth Number ширина страницы
Title String заголовок диалога
Units Enum единицы измерения отступов (см. ниже)
Только чтение
Handle Number дескриптор окна диалога

Свойство Options
Значение Описание
psoDefaultMinMargins использовать минимальные отступы по умолчанию
psoDisableMargins запретить изменение отступов
psoDisableOrientation запретить изменение ориентации страницы
psoDisablePagePainting запретить отображение диалога
psoDisablePaper запретить изменение параметров бумаги
psoDisablePrinter запретить изменение параметров принтера
psoMargins использоать отступы, указанные в свойствах диалога
psoMinMargins использоать минимальные отступы, указанные в свойствах диалога
psoNoNetworkButton скрыть кнопку "Сеть"
psoShowHelp показать кнопку "Справка"
psoWarning показать предупреждение при отсутствии принтера, используемого по умолчанию

Свойство Units
Значение Описание
pmDefault единицы по умолчанию
pmInches дюймы
pmMillimeters миллиметры

Стандартные методы

Собственные события
Событие Описание
BeforePaint будет выполнена отрисовка демо-страницы
OnDrawEnvStamp требуется отрисовка почтового штампа (для конвертов)
OnDrawFullPage требуется отрисовка демо-страницы
OnDrawGreekText требуется отрисовка "греческого текста"
OnDrawMargin требуется отрисовка отступов
OnDrawMinMargin требуется отрисовка минимальных отступов
OnDrawRetAddress требуется отрисовка обратного адреса (для конвертов)

Стандартные события

Пример (JS+)
// Главная форма
frm=new TForm();
frm.Caption="JS+ - диалоговый компонент TPageSetupDialog";
frm.Width =450;
frm.Height=300;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=' Нажмите кнопку "Параметры страницы"';

// Кнопка
btn=new TButton(frm);
btn.Caption="Параметры страницы";
btn.Width=btn.TextWidth(btn.Caption)+20;
btn.Left=(frm.ClientWidth-btn.Width)/2;
btn.Top =(stb.Top-btn.Height)/2;
btn.OnClick=btn_Click;

frm.ShowModal();

// Обработчик события OnClick
function btn_Click(btn)
{
  var dlg;

  // Диалог
  with (dlg=new TPageSetupDialog(frm)) {
    Title="Настройка параметров страницы ...";
    BeforePaint=dlg_BeforePaint;
    Execute();
  }

  dlg.Delete();
}

// Обработчик события BeforePaint
function dlg_BeforePaint(dlg,PaperSize,Orientation,PageType,DisablePaint)
{
  // Запретить отрисовку в горизонтальной ориентации
  DisablePaint.Value=(Orientation!=poPortrait);
}
Совместимость
C++ Builder/Delphi
JS+Руководство пользователя
Адрес этой страницы: http://jsplus.ru/MANUAL/JSPlus/Component/Dialog/TPageSetupDialog.htm
© 2024,