Листание картинок

//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <jpeg.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TScrollBox *ScrollBox1;
        TImage *Image1;
        TImage *Image2;
        TImage *Image3;
        TImage *Image4;
        TImage *Image5;
        TImage *Image6;
        TImage *Image7;
        TImage *Image8;
        TPanel *Panel1;
        TButton *Button1;
        TButton *Button2;
        TButton *Button3;
        void __fastcall Button3Click(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Image2DblClick(TObject *Sender);
private:    // User declarations
public:     // User declarations
        void __fastcall LoadPict(int); //<<== Руками прописвыаем этот метод
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
int PictNum; //Глобальная переменная, указывающая номер миниатюры
const int PictStart = 2, PictCount = 8; //Номера первой и последней миниатюры
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender) //Кнопка Выход
{
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LoadPict(int PN) 
//Собственный метод, объявленый в заголовочном файле
//Находит компонент Image по имени и грузит картинку из него в Image1
{
  TImage *Img = dynamic_cast<TImage*>(FindComponent("Image" + IntToStr(PN)));
  Image1->Picture->Assign(Img->Picture);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//Стартовые параметры
  ScrollBox1->VertScrollBar->Position = 0; //Позиция бегунка в ScrollBox1 наверху
  PictNum = PictStart; //Начальный номер картинки
  LoadPict(PictNum); //Загрузка картинки
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
//Кнопка Вперед
  PictNum++; //Увеличиваем номер картинки
  if(PictNum > PictStart) Button1->Enabled = true; //Разблокируем кнопку Назад
  if(PictNum >= PictCount) Button2->Enabled = false; //Если картинка последняя в списке - блокируем кнопку Вперед
  LoadPict(PictNum); //Грузим картинку с заданным номером
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//Кнопка назад
  PictNum--; //Уменьшаем номер картинки
  if(PictNum <= PictStart) Button1->Enabled = false;  //Если картинка первая в списке - блокируем кнопку Назад
  if(PictNum < PictCount) Button2->Enabled = true; //Разблокируем кнопку Вперед
  LoadPict(PictNum);  //Грузим картинку с заданным номером
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image2DblClick(TObject *Sender)
{
//Обработчик двойного клика на миниатюре справа
//Создать событие OnDblClick для компонента Image2
//Назначить его для всех остальных миниатюр справа
  Image1->Picture->Assign(((TImage*)Sender)->Picture); //Грузим выбраную картинку
  if(((TImage*)Sender)->Name == "Image8") //Если миниатюра последняя...
   {
     Button2->Enabled = false; //Блокируем кнопку Вперед
     Button1->Enabled = true; //Разблокируем кнопку Назад
     PictNum = PictCount; //Номер картинки == Начальному номеру
   }
  else
   if(((TImage*)Sender)->Name == "Image2") //Если миниатюра первая...
    {
      Button1->Enabled = false; //Блокируем кнопку Назад
      Button2->Enabled = true; //Разблокируем кнопку Вперед
      PictNum = PictStart; //Номер картинки == Конечному номеру
    }
   else //Если миатюра посередине...
    {
      Button1->Enabled = true; //Разблокированы обе кнопки
      Button2->Enabled = true;
//Номер картинки == номеру компонента Image миниатюры
      PictNum = StrToInt(((TImage*)Sender)->Name.SubString(((TImage*)Sender)->Name.Length(), 1));
    }
}
//---------------------------------------------------------------------------