Студопедия — Пример программы. Ниже приведен вид формы и текст модуля приложения, выводящего на печать содержимое поля Memo и картинку
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Пример программы. Ниже приведен вид формы и текст модуля приложения, выводящего на печать содержимое поля Memo и картинку






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

Форма приложения представлена на рисунке 2.

 

Рисунок 2 — Вид формы приложения

Текст модуля приложения:

 

unit PrintDemo_;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls, StdCtrls, Printers;

 

type

TfrmPrintDemo = class(TForm)

btnPrintMemo: TButton;

Memo: TMemo;

Image: TImage;

btnPrintImage: TButton;

PrintDialog: TPrintDialog;

procedure btnPrintMemoClick(Sender: TObject);

procedure btnPrintImageClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

frmPrintDemo: TfrmPrintDemo;

 

implementation

 

{$R *.dfm}

 

 

Процедура печати текста из Memo

procedure TfrmPrintDemo.btnPrintMemoClick(Sender: TObject);

var i: integer;

Prn: TextFile;

begin

//Если запущен диалог печати и не было отмены

if PrintDialog.Execute then begin

//Задание количества копий

Printer.Copies: =PrintDialog.Copies;

//Задание параметров шрифта

Printer.Canvas.Font.Name: ='Times New Roman';

Printer.Canvas.Font.Size: =14;

//Связывание текстового файла с принтером по умолчанию

AssignPrn(Prn);

try

//Открытие файла для записи

Rewrite(Prn);

try

//Вывод строк из поля Memo

for i: = 0 to Memo.Lines.Count — 1 do

writeln(Prn, Memo.Lines[i]);

finally

//Закрытие принтера

CloseFile(Prn);

end;

except

//Сообщение при ошибке

on EInOutError do

MessageDlg('Ошибка печати текста.', mtError, [mbOk], 0);

end;

end;

end;

 

 







Дата добавления: 2014-11-10; просмотров: 510. Нарушение авторских прав; Мы поможем в написании вашей работы!



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

Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...

Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...

Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...

Выработка навыка зеркального письма (динамический стереотип) Цель работы: Проследить особенности образования любого навыка (динамического стереотипа) на примере выработки навыка зеркального письма...

Словарная работа в детском саду Словарная работа в детском саду — это планомерное расширение активного словаря детей за счет незнакомых или трудных слов, которое идет одновременно с ознакомлением с окружающей действительностью, воспитанием правильного отношения к окружающему...

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

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

Ведение учета результатов боевой подготовки в роте и во взводе Содержание журнала учета боевой подготовки во взводе. Учет результатов боевой подготовки - есть отражение количественных и качественных показателей выполнения планов подготовки соединений...

Сравнительно-исторический метод в языкознании сравнительно-исторический метод в языкознании является одним из основных и представляет собой совокупность приёмов...

Studopedia.info - Студопедия - 2014-2024 год . (0.01 сек.) русская версия | украинская версия