Лабораторная работа №10. Компоненты управления файлами
Цели работы: Практическое освоение методологии и принципов создания элементов управлениями файлов.
О
писанные
выше диалоговые панели работы с файлами
общего назначения (тип OpenDialog и SaveDialog)
часто несут избыточную информацию,
например, когда требуется только список
файлов текущего каталога или список
логических устройств. В этом случае
используют простые файловые компоненты
с закладки Win3.1. Таких компонент здесь
четыре:
FileListBox
– список файлов указанного каталога;
D
irectoryListBox
– список каталогов указанного диска;
DriveComboBox – список логических устройств;
FilterComboBox – задание шаблона для FileListBox.
Приведем
пример проекта работы с файлами с
использованием простых файловых
компонент.
Поместим перечисленные выше компоненты на форму вместе с компонентом Image (рисунок 6) для просмотра выбранных из списка файлов, содержащих графические изображения.
Рисунок 6
Свойство Filter шаблона файлов (FilterComboBox) определим при создании формы
procedure TForm1.FormCreate(Sender: TObject);
begin
FilterComboBox1.Filter:= 'метафайлы|*.wmf|'+'иконки|*.ico|'+'растры|*.bmp'
end;
Свойство DblClick для DirectoryListBox определяем как
FileListBox1.Directory:=DirectoryListBox1.Directory
Свойство OnChange для DriveComboBox (смена диска) определяем как
DirectoryListBox1.Drive:=DriveComboBox1.Drive;
FileListBox1.Directory:=DirectoryListBox1.Directory
Выбранный файл должен отображаться в области компонента Image1, поэтому в FileListBox на событие OnClick вводим
Image1.Picture.LoadFromFile(FileListBox1.FileName)
Лабораторная работа №11. Программа с мультипликацией, видеоклипом
Цели работы: Практическое освоение методологии и принципов создания мультипликации и работа с видеоклмпами.
Создать в графическом редакторе Paint новый рисунок с размерами 500 на 100
пикселей. Вставив из файлов ХЛЕБА.BMP и ХЛЕБА 1.BMP рисунки, сформировать киноленту.
Разместить в форме панель c размерами 100х100.
Поместить компоненты Label, Button(вкладка Standard), OpenDialog (вкладка Dialogs) и Timer (System) в форму Form1.
Прямо на панель точно по левому краю разместить компонент IMAGE1 с размерами 500х100 и вставить на него киноленту.
Установить следующие свойства объектов
-
Объект
Свойство
Значение
Form1
Caption
Media Player
Label1
Caption
Label1
Alignment
TaLeftJustify
Button1
Caption
О&ткрыть
Button2
Caption
В&ыход
OpenDialog
Filter
Аудио файл (*.wav; *.mid)|*.wav; *.mid
RxGIFAnimator1
Animate
True
Поместить компоненты RxGIFAnimator(вкладка RX Controls) и в форму Form1.
Разместить в форме таймер с интервалом 250 и для события OnTimer записать код
With RxGIFAnimator1 do Begin
RxGIFAnimator1.Left:=RxGIFAnimator1.Left+10;
Image1.Left := Image1.left + 10;
End;
5. Запустить и при успешной работе сохранить программу.
6. Разместить новую панель и компонент MediaPlayer1.
Записать код для обработки события Click на объекте Button1:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
MediaPlayer1.FileName:=OpenDialog1.FileName;
Label1.Caption:= 'Загружен файл " '+ MediaPlayer1.FileName+'';
MediaPlayer1.Open;
end;
Записать код для процедуры обработки события Click (щелчок мыши) на кнопке Button2:
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close;
end;
Запустить и при успешной работе сохранить программу.
9. Разместить на форме надпись с текстом гиперссылки. Установить шрифт синего цвета с подчеркиванием. При подводе курсора сделать подсказку "Сайт преподавателя" и курсор в виде ручки.