Контрольные вопросы

1. Какие компоненты используются в Delphi для вывода информации на печать?

2. Какими способами можно печатать текст?

3. Опишите основные свойства объекта Printer?

4. Опишите основные свойства стандартных диалогов печати и настройки принтера?

5. Каким образом можно осуществлять масштабирование графических изображений при печати?

ЛАБОРАТОРНАЯ РАБОТА №3

Работа с накопителями Рекомендации по выполнению работы

Для успешного выполнения работы необходимо повторить основные принципы работы с файлами средствами Delphi [1, c. 192], [2, c. 199].

Для работы с файловой системой Windows необходимо использовать компоненты классов TShellComboBox, TShellListView. Для их совместной работы необходимо указать имя компонента класса TShellListView в свойстве ShellListView компонента класса TShellComboBox. Для компонента класса TShellListView необходимо разрешить множественный выбор объектов, для чего свойству AllowMultiSelect нужно присвоить значение true. Способ отображения значков объектов в компоненте класса TShellListView задается его свойством ViewStyle. Отображаемые им объекты хранятся в списке Items. Пути к объектам можно получить обращаясь к свойству PathName списка Folders, например так: ShellListView_main.Folders[i].PathName. Если объект был выбран пользователем, то соответствующее ему свойство Selected будет иметь значение true.

Пример программы

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

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

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

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

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, ShellCtrls;

type

TfrmFileOperator = class(TForm)

ShellListView_main: TShellListView;

Memo_Selected: TMemo;

btnReadSelection: TButton;

ShellComboBox_main: TShellComboBox;

procedure btnReadSelectionClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmFileOperator: TfrmFileOperator;

implementation

{$R *.dfm}

Обработчик нажатия кнопки

procedure TfrmFileOperator.btnReadSelectionClick(Sender: TObject);

var i:longint; //Счётчик

begin

//Проверка списка объектов

for i:=0 to ShellListView_main.Items.Count-1 do begin

//Если объект выбран

if ShellListView_main.Items.Item[i].Selected=true then

//Добавляем путь к нему в текстовое поле

Memo_Selected.Lines.add(ShellListView_main.Folders[i].PathName);

end;

end;

Задания для самостоятельного выполнения

Выполните индивидуальное задание из таблицы 4 в соответствии со своим вариантом.

Таблица 4 – Варианты индивидуальных заданий

Вариант	Задание
	Разработать приложение для копирования группы файлов.
	Разработать приложение для перемещения группы файлов.
	Разработать приложение для удаления группы файлов.
	Разработать приложение для переименования отдельных файлов.
	Разработать приложение для печати списка выделенных объектов файловой системы.
	Разработать приложение для поточного переименования группы выделенных файлов.
	Разработать приложение для поточного изменения расширений группы выделенных файлов.
	Разработать приложение для замены выбранных файлов папками с аналогичными именами.
	Разработать приложение для помещения группы выделенных файлов в отдельные папки с аналогичными именами.
	Разработ ать приложение для обрезания имен группы выделенных файлов до длины в 8 символов.
	Разработать приложение для обмена содержимого двух выбранных файлов.
	Разработать приложение для сцепления группы выделенных файлов в один.