Компонент tOpenDialog и tSaveDialog
TOpenDialog |
|
И TSaveDialog |
|
Компоненты TOpenDialog и TSaveDialog предназначены для организации стандартных диалоговых окон.
Свойства:
FileName: String;
- позволяет на входе в диалоговое окно задать маршрут поиска. При выходе в свойстве содержится имя выбранного файла;
InitialDir: String;
- позволяет установить начальный каталог;
Filter: String
- позволяет установить фильтр файлов, показываемых в диалоговом окне. Представляет собой любое количество пар последовательностей символов, разделенных вертикальными линиями. В каждой паре первая часть – это текст - названии фильтра, вторая часть – сам фильтр. Например:
Filter := ’Текстовые файлы (*.txt, *.doc)|*.txt, *.doc’;
Пример 1. Вывести содержимое текстового файла в компонент TMemo.
procedure TForm1.Button1Click(Sender: TObject);
var
S : String;
F : TextFile;
begin
//Настройка фильтра
OpenDialog1.Filter := 'Текстовые файлы|*.txt,*.doc';
//Настройка папки
OpenDialog1.InitialDir := 'D:\DEMO Delphi Examples';
//Выполнение диалога
if OpenDialog1.Execute then
begin
AssignFile(F, OpenDialog1.FileName);
Reset(F);
Memo1.Lines.Clear;
While not eof(F) do
begin
Readln(F, S);
Memo1.Lines.Add(s);
end;
CloseFile(F);
end;
end;
Компонент tOpenPictureDialog и tSavePictuteDialog
TOpenPictureDialog |
|
и TSavePictuteDialog |
|
Компоненты TOpenPictureDialog и TSavePictuteDialog позволяют организовать специальные диалоги открытия и сохранения графических изображений.
Пример 1. Открыть диалог просмотра графических изображений:
procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
Image1.Stretch := True;
end;
end;
Это не работает. Пока убрать
Пример 2. Пусть требуется сохранить графическое изображение в файле по нажатию на изображении.
Procedure TForm1.Button1Click( );
begin
SavePictureDialog1.InitialDir := ’D:\DEMO DELPHI
Examples\DEMO DIALOGS’;
SavePictureDialog1.FileName := ’Fig1.bmp’;
if SavePictureDialog1.Execute then
Image1.Picture.SaveToFile (SavePictureDialog1.FileName);
end;
Компонент tColorDialog
TColorDialog |
|
Этот компонент позволяет выбрать стандартный цвет, либо задать собственный. Основным свойством данного компонента является
Color: TColor;
в котором содержится выбранный цвет.
Пример. Пусть на форме расположена кнопка BitBtn1, по нажатию на которую требуется менять цвет панели Panel1.
Procedure TForm1.Button1Click( );
begin
if ColorDialog1.Execute then
Panel1.Color := ColorDialog1.Color;
end;
Компонент tFontDialog
TFontDialog |
|
С помощью этого компонент можно выбрать шрифт из множества шрифтов Windows.
Свойства компонента TFontDialog задаются множеством:
Device =(fdScreen, fdPrinter);
- указывает, для какого устройства задается шрифт.
Font: TFont;
- содержит описание выбранного шрифта.
Пример. Пусть на форме расположены компоненты SpeedButton1, FontDialog1, Labe1 и ColorDialog1. По нажатию на SpeedButton1 необходимо осуществить последовательно диалоги выбора цвета и шрифта. Пример:
Procedure TForm1.Button1Click( );
begin
if ColorDialog1.Execute then
Form1.Color := ColorDialog1.Color;
if FontDialog1.Execute then
Label1.Font := FontDialog1.Font;
end;