Программирование на С++ - eDrive

TImage *im;
TSearchRec sr;
25
Инициализировать переменные в конструкторе формы:
myPath = "";
im = Image1;
im–>AutoSize = false;
im–>Proportional = true;
FirstPicture ();
3. Первый файл. В последней строке конструктора вызывается функция отображения
первого графического файла в папке приложения:
void TForm1::FirstPicture ()
{ if (FindFirst (myPath + Edit1–>Text, faAnyFile, sr) == 0)
{ im–>Picture–>LoadFromFile (myPath + sr.Name);
Label1–>Caption = sr.Name; } }
4. Следующие файлы. Обработчик кнопки перехода на следующий файл текущей
папки может быть таким:
if (FindNext (sr) == 0)
{ im–>Picture–>LoadFromFile (myPath + sr.Name);
Label1–>Caption = sr.Name; }
5. Поиск файлов. Добавить в форму вторую кнопку, предназначенную для
поиска файлов в других папках. Обработчик кнопки поиска файлов открывает
стандартное окно поиска папки с файлами и вновь вызывает функцию
отображения первого файла папки:
if (SelectDirectory ("Выбор папки", "", myPath))
{ myPath += "\\"; FirstPicture (); }
6. Подключение редактора. Добавить в форму третью кнопку, предназначенную
для вызова графического редактора и кодировать ее обработчик:
AnsiString f = myPath + sr.Name;
ShellExecute (Handle, "open", f.c_str (), NULL, NULL, SW_RESTORE);
7. Аудио сопровождение. Добавить в форму четвертую кнопку и элемент
управления MediaPlayer с панели System, предназначенные для звукового
сопровождения демонстрации. Пример обработчика кнопки, открывающего
в элементе MediaPlayer первый из аудиофайлов формата .wav в папке
приложения: