Лабораторная работа№26 Примеры использования компонентов OpenDialog, SaveDialog и FontDialog.
Цель занятия: научиться создавать приложения, используя компоненты OpenDialog, SaveDialog и FontDialog
Студент должен
знать:
назначение компонентов OpenDialog, SaveDialog и FontDialog
как изменять свойства компонентов во время выполнения программы;
уметь:
создавать приложения, используя компоненты OpenDialog, SaveDialog и FontDialog
Примеры и задания.
Компоненты OpenDialog – диалог «Открыть файл» и SaveDialog - диалог «Сохранить файл как», пожалуй, используются чаще всего, в большинстве приложений. Компонент FontDialog используется для вызова стандартного диалогового окна выбора шрифтов и их характеристик.
Пример использования компонентов OpenDialog, SaveDialog, FontDialog.
Создадим простой текстовый редактор, который позволил бы с помощью диалоговых окон сохранять и открывать текстовые файлы, а также изменять характеристики шрифта.
Решение
Создадим новую папку : D\MyProject\DIALOG.
Откроем новый проект с помощью команды главного меню File| New | Application.
Разместим на Form 1 следующие компоненты (см. рис. 1):
Рисунок 1. Расположение компонентов OpenDialog, SaveDialog, Memo и Button на форме.
Компоненты OpenDialog, SaveDialog , FontDialog выберем из страницы Dialogs, а Memo 1, Button 1,Button 2 Button 3 - из страницы Standard Палитры Компонентов.
Выберем свойство Lines компонента Memo1 и щелкнем по появившейся кнопке с тремя точками. В появившемся окне уладим текст ‘Memo 1’. Нажмем OK. Мы добились того, что при запуске программ окно редактора будет пустым.
Выберем свойство Filter компонента Open Dialog и щелкнем по появившейся кнопке с тремя точками. Появится диалоговое окно Filter Editor, с помощью которого можно задать тексты фильтров и сами фильтры (см. рис. 2).
Рисунок 2. Окно редактора файловых фильтров
В первой строке в окне Filter Name введем:
Текстовые файлы (*. Txt, *.doc)
А в окне Filter:
*. txt, *.doc
Во второй строке в окне Filter Name введем:
Все файлы (*.*)
А в окне Filter:
*.*
Нажмем кнопку ОК.
Для компонента Save Dialog значение свойства DefaultExt установим равным txt. Т.е., если при сохранении файла расширение не будет указано, то по умолчанию добавиться расширение txt.
Кнопкам Button 1,Button 2 Button 3 установим свойство Caption равным ‘Открыть’, ’Сохранить’ и ’Шрифт’ соответственно.
В обработчик событий On Click для кнопки Button 1 вставим следующие операторы:
With OpenDialog1 do
Begin
If not Execute then Exit;
Memo1. Lines. SaveToFile (FileName)
End;
В обработчик событий On Click для кнопки Button 2 вставим следующие операторы:
With CaveDialog1 do
Begin
If not Execute then Exit;
Memo1. Lines. SaveToFile (FileName)
End;
В обработчик события On Click для кнопки Button 3 вставим следующие операторы:
With FontDialog1 do
Begin
If not Execute then Exit;
Memo1. Font: = Font
End;
Сохраните проект и запустите его на выполнение. Наберите произвольный текст в окне редактора (см. рис. 3). Сохраните его в папке D\MyProject\DIALOG.
Рисунок 3. Использование компонентов OpenDialog, SaveDialog, FontDialog
Очистите с помощью локального меню окно редактора. Для появления локального меню следует щелкнуть правой кнопкой мыши, когда её указатель находится в пределах окна редактора. Откройте ранее созданный файл. Измените его шрифт.
Приведем полный текст сформированного модуля.
Текст модуля Unit1. pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class (TForm)
OpenDialog: TOpenDialog;
SaveDialog: TSaveDialog;
FontDialog1: TFontDialog;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Procedure Buttin1Click (Sender: Object);
Procedure Buttin2Click (Sender: Object);
Procedure Buttin3Click (Sender: Object);
private
{Private declarations}
public
{Public declarations}
end;
var
Form1: TForm1;
Implantation
{SR *. DFM}
Procedure TForm1. Button1Click (Sender: TObject);
Begin
With OpenDialog1 do
Begin
If not Execute then Exit;
Memo1. Lines. LoadFromFile (FileName)
end
end;
Procedure TForm1. Button2Click (Sender: TObject);
Begin
With SaveDialog1 do
Begin
If not Execute then Exit;
Memo1. Lines.SaveToFile (FileName)
end
end;
Procedure TForm1. Button3Click (Sender: TObject);
Begin
With FontDialog1 do
Begin
If not Execute then Exit;
Memo1. Font:= Font
end
end;
end.
Задания для самостоятельной работы.
Поместить на панель компоненты для отображения цвета символов.
Создайте обработчик событий выбора этого компонента.
Поместите на панель компонент для вывода на устройство печати. Создайте обработчик событий выбора этого компонента.
Контрольные вопросы.
Какие компоненты называются невизуальными?
Какие диалоговые компоненты входят в библиотеку визуальных компонентов? Что общего в их использовании?
Для чего предназначен компонент OpenDialog?
Для чего предназначен компонент SaveDialog?
Для чего предназначен компонент FontDialog?