- •Министерство образования респулики беларусь
- •Оглавление
- •Устройства ввода Краткие теоретические сведения
- •Пример приложения
- •Задания для самостоятельного выполнения
- •Контрольные вопросы
- •Устройства вывода. Работа с принтером Краткие теоретические сведения
- •Компонент tPrintDialog
- •Пример программы
- •Процедура печати текста из Memo
- •Процедура печати картинки из Image
- •Задания для самостоятельного выполнения
- •Контрольные вопросы
- •Работа с накопителями Рекомендации по выполнению работы
- •Пример программы
- •Обработчик нажатия кнопки
- •Задания для самостоятельного выполнения
- •Контрольные вопросы
- •Работа с параллельным портом Основные теоретические сведения
- •Задания для самостоятельного выполнения
- •Контрольные вопросы
- •Список использованных источников
Контрольные вопросы
Какие компоненты используются в Delphi для вывода информации на печать?
Какими способами можно печатать текст?
Опишите основные свойства объекта Printer?
Опишите основные свойства стандартных диалогов печати и настройки принтера?
Каким образом можно осуществлять масштабирование графических изображений при печати?
ЛАБОРАТОРНАЯ РАБОТА №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 символов. |
|
Разработать приложение для обмена содержимого двух выбранных файлов. |
|
Разработать приложение для сцепления группы выделенных файлов в один. |