Недавно добавленные исходники

•  TDictionary Custom Sort  507

•  Fast Watermark Sources  873

•  3D Designer  1 803

•  Sik Screen Capture  1 456

•  Patch Maker  1 459

•  Айболит (remote control)  1 387

•  ListBox Drag & Drop  1 157

•  Доска для игры Реверси  21 252

•  Графические эффекты  1 336

•  Рисование по маске  1 274

•  Перетаскивание изображений  1 085

•  Canvas Drawing  962

•  Рисование Луны  802

•  Поворот изображения  754

•  Рисование стержней  801

•  Paint on Shape  486

•  Генератор кроссвордов  747

•  Головоломка Paletto  659

•  Теорема Монжа об окружностях  839

•  Пазл Numbrix  607

•  Заборы и коммивояжеры  835

•  Игра HIP  549

•  Игра Go (Го)  522

•  Симулятор лифта  544

•  Программа укладки плитки  505

•  Генератор лабиринта  560

•  Проверка числового ввода  520

•  HEX View  595

•  Физический маятник  522

•  Задача коммивояжера  556

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Изменение свойств печати во время ее выполнения



Как разрешить изменения свойств принтера (например, лоток с бумагой, ориентация и др.) между страницами печати одного документа в шести шагах.

(В совете также приведен пример изменения поддона с бумагой...)

*** ШАГИ ***
  1. Создайте копию модуля Printers.pas и переименуйте его в NewPrint.pas.

    ***НЕ делайте изменения в самом модуле Printers.pas, если вы сделаете это, то получите во время компиляции приложения ошибку "Unable to find printers.pas" (не могу найти printer.pas). (Я уже получае ее, поэтому и упоминаю об этом здесь...)***

  2. Переместите модуль NewPrint.pas в директорию Lib.

    (Используйте "C:\Program Files\Borland\Delphi Х\Lib" )

  3. Измените ИМЯ МОДУЛЯ на NewPrint.pas

    с:

unit Printers

на:


unit NewPrint

  1. Добавьте декларацию следующего PUBLIC метода класса TPrinter в секции Interface модуля NewPrint.pas:

procedure NewPageDC(DM: PDevMode);

  1. Добавьте следующую процедуру в секцию реализации NewPrint.pas:

procedure TPrinter.NewPageDC(DM: PDevMode);
begin
  CheckPrinting(True);
  EndPage(DC);
  {Проверяем наличие новых установок для принтера}
  if Assigned(DM) then
    ResetDC(DC,DM^);
  StartPage(DC);
  Inc(FPageNumber);
  Canvas.Refresh;
end;

  1. Вместо добавления "Printers" в секцию USES вашего приложения (список используемых модулей), добавьте "NewPrint".

Теперь вдобавок к старым методам (таким как BeginDoc, EndDoc, NewPage и др.), у вас появилась возможность изменения свойств принтера "на лету", т.е. между страницами при печати одного и того же документа. (Пример приведен ниже.)

Вместо вызова:


Printer.NewPage;

напишите:


Printer.NewPageDC(DevMode);

Вот небольшой пример:


procedure TForm1.Button1Click(Sender: TObject);
var
  ADevice, ADriver, APort: array[0..255] of char;
  ADeviceMode: THandle;
  DevMode: PDevMode;
begin
  with Printer do
  begin
    GetPrinter(ADevice, ADriver, APort, ADeviceMode);
    SetPrinter(ADevice, ADriver, APort, 0);
    GetPrinter(ADevice, ADriver, APort, ADeviceMode);
    DevMode := GlobalLock(ADeviceMode);
    if not Assigned(DevMode) then
      ShowMessage('Не могу установить принтер.')
    else
    begin
      with DevMode^ do
      begin
        {Применяем здесь любые настройки, необходимые для изменения установок печати}
        dmDefaultSource := DMBIN_UPPER;
        {этот код приведен в "Windows.pas"}
      end;
      GlobalUnlock(ADeviceMode);
      SetPrinter(ADevice, ADriver, APort, ADeviceMode);
    end;
  end;

  Printer.BeginDoc;
  Printer.Canvas.TextOut(50, 50, 'Эта страница печатается из ВЕРХНЕГО ЛОТКА.');

  with DevMode^ do
  begin
    {Применяем здесь любые настройки, необходимые для изменения установок печати}
    dmDefaultSource := DMBIN_LOWER;
    {этот код приведен в "Windows.pas"}
  end;

  Printer.NewPageDC(DevMode);

  Printer.Canvas.TextOut(50, 50, 'Эта страница печатается из НИЖНЕГО ЛОТКА.');
  Printer.EndDoc;
end;

{*************************************************************

Примечание от автора:

Я использовал это во многих своих программах, поэтому я уверен в работоспособности кода.

Данный кода был создан в Delphi Client/Server 2.01 под WinNT 4.0, но впоследствии был
проверен на других версиях Delphi, а также под Windows95.
Правда я еще не поробовал его под Delphi 4... Если вы имеете любые комментарии или улучшения,
не постесняйтесь отправить их мне...

************************************************************}





Похожие по теме исходники

Изменение цвета изображения

Очередность выполнения процессов




Copyright © 2004-2022 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter   Ссылка на Telegram