Задание Для подготовленных заранее цифровых фотографий создать программную

Задание: Для подготовленных заранее цифровых фотографий создать программную оболочку, организующую их просмотр в упорядоченном порядке.

Изображения необходимо подготовить заранее. Кроме этого заранее продумаем структуру вывода рисунков и подготовим дополнительные материалы (текстовые файлы содержащие названия рисунков)

Рисунки сохраним в созданной папке DATA: Panel 11. jpg, Panel 12. jpg , Panel 13. jpg, Panel 21. jpg, Panel 22. jpg , Panel 23. jpg, Panel 31. jpg, Panel 32. jpg , Panel 33. jpg. Текстовым файлам дадим расширение DAT и сохраним их в папке проекта: spisok 01. dat, spisok 02. dat, spisok 03. dat

procedure TForm 1. Form. Create(Sender: TObject); begin Radio. Button 1. Checked: =false; Сбросим переключатели на кнопке выбора Radio. Button 2. Checked: =false; Radio. Button 3. Checked: =false; Сделаем невидимым список загружаемых изображений List. Box 1. Visible: =false; Image 1. Picture. Load. From. File('DATA/start. jpg'); Загрузим «стартовое» изображение end;

TForm 1 = class(TForm) Group. Box 1: TGroup. Box; Image 1: TImage; procedure Imena_Picture(punct: Integer); List. Box 1: TList. Box; Radio. Button 1: TRadio. Button; Radio. Button 2: TRadio. Button; Radio. Button 3: TRadio. Button; procedure Form. Create(Sender: TObject); procedure Imena_Picture(punct: Integer); private { private declarations } public { public declarations } end;

procedure TForm 1. Imena_Picture(punct: Integer); begin Очистим список от предыдущих данных List. Box 1. Clear; Загрузим данные из подготовленного файла List. Box 1. Items. Load. From. File('spisok 0'+Int. To. Str(punct)+'. dat'); List. Box 1. Visible: =true; Сделаем список видимым end; Перейдем в раздел описания переменных и добавим одну глобальную переменную var Form 1: TForm 1; Переменная для хранения номера выбранного подпункта (Старый город =1, На Оке = 2, Щипотьевский n: Integer; лес =3)

procedure TForm 1. Radio. Button 1 Click(Sender: TObject); begin Выбор номера подпункта, загрузка списка в соответствии с выбранным подпунктом. n: =1; Imena_Picture(n); end; procedure TForm 1. Radio. Button 2 Click(Sender: TObject); begin Выбор номера подпункта, загрузка списка в соответствии n: =2; Imena_Picture(n); с выбранным подпунктом. end; procedure TForm 1. Radio. Button 3 Click(Sender: TObject); begin Выбор номера подпункта, загрузка списка в соответствии n: =3; Imena_Picture(n); с выбранным подпунктом. end;

procedure TForm 1. List. Box 1 Click(Sender: TObject); begin Вывод поясняющей надписи на панели группировки Group. Box 1. Caption: =List. Box 1. Items[List. Box 1. Item. Index]; Image 1. Picture. Load. From. File('DATA/Panel'+ Загрузка изображения в соответствии с выбранным из списка. Int. To. Str(n)+Int. To. Str(List. Box 1. Item. Index+1)+'. jpg') ; end;