Delphi. Страница Dialogs. Васильев В.В - 8 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

8
7. Создайте процедуру обработки
пункта меню
Файл⏐Сохранить как.
Метод Execute вызывает диалого-
вое окно и возвращает значение
True при выборе ключевой кноп-
ки. Метод SaveToFile переписыва-
ет строки компонента Memo в
файл SaveDialog1.filename, имя
которого указанно в диалоговом
окне Сохранение файла. В заго-
ловке формы появляется имя со-
храненного файла.
procedure TMainform.N4Click(…);
begin
savedialog1.filename:=file_name;
if SaveDialog1.Execute then
begin
Memo1.Lines.savetofile
(saveDialog1.filename);
file_name:=SaveDialog1.filename;
caption:=file_name+
' - Текстовый редактор';
end;
end;
8. Поместите на форму компонент PrintSetupDialog
Закладка Dialogs
9. Создайте процедуру обработки
пункта меню
Файл⏐Макет
страницы…
procedure TMainform.N6Click(…);
begin
printersetupdialog1.execute;
end;
10. Поместите на форму компонент PrintDialog
Закладка Dialogs
11. Подключите модуль Printers
Напишите после implementation
Uses Printers;
12. Создайте процедуру обработ-
ки пункта меню
Файл⏐Печать…
Если нажата кнопка
Печать –
printdialog1.execute, то вызывается
метод подготовки передачи по-
тока текста на принтер
Printer.BeginDoc. Содержимое
компонента
Memo построчно вы-
водится на печать. Метод
TextOut
имеет три параметра:
(x,y) – ко-
ординаты позиции начала выво-
да строки текста и
s – выводимая
строка. В конце печати вызыва-
ется метод
Printer.EndDoc, преры-
вающий процесс передачи дан-
ных на принтер.
procedure TMainform.N7Click(…);
var i:integer;
begin
{включение в диалоговое окно кно-
пок Help и Warning}
printdialog1.options:= [poHelp,
poWarning];
if printdialog1.execute then
begin
printer.BeginDoc;
for i:=0 to Memo1.Lines.Count
do begin
printer.Canvas.TextOut(0,0,'');
printer.Canvas.TextOut(0,i*100,
Memo1.Lines[i])
end;
Printer.EndDoc
End
end;
13. Запустите программу на исполнение. Проверьте
работу всех пунктов меню Файл
Run⏐Run
14. Сохраните результаты работы
File⏐Save
3. Работа с буфером обмена. Компоненты
FontDialog, ColorDialog, FindDialog, ReplaceDialog
В примере работы 3 будут созданы обработчики пунктов меню Правка.
План примера 3

Страницы