Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Как печатать в цвете

Более мощный компьютер глючит быстрее и точнее.

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


 uses Printers;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   Device: array [0..255] of char;
   Driver: array [0..255] of char;
   Port: array [0..255] of char;
   hDMode: THandle;
   PDMode: PDEVMODE;
 begin
   with Printer do
   begin
     PrinterIndex := PrinterIndex;
     GetPrinter(Device, Driver, Port, hDMode);
 
     if hDMode <> 0 then
     begin
       pDMode := GlobalLock(hDMode);
       if pDMode <> nil then
       begin
         pDMode.dmFields := pDMode.dmFields or dm_Color;
         pDMode.dmColor := DMCOLOR_COLOR;
         GlobalUnlock(hDMode);
       end;
     end;
 
     PrinterIndex := PrinterIndex;
     BeginDoc;
     Canvas.Font.Color := clRed;
     Canvas.TextOut(100,100, 'Delphi World is COOL :)');
     EndDoc;
   end;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS