Приложение 6

ОП-020699846.230105.13.14.12

Файл Project.exe

Листов 2

Выполнили:________ А. П. Тамоян

________ Е.С. Олоничев

2013

Литера ОП

ПРИЛОЖЕНИЕ 6

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

AnsiString path,path1,Path;

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{ TSearchRec SR;

if (SelectDirectory ("выберитепапку","",path)==1) //Выбор папки для просмотра изображения

{path1=path+"\\";

path+="\\*.bmp";

int done = FindFirst( path, faAnyFile, SR );

while(!done)

{

ListBox1->Items->Add(SR.Name);

done = FindNext(SR);

}

FindClose(SR);

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::ListBox1Click(TObject *Sender)

{

int k=ListBox1->ItemIndex; //Список изображений

Path=path1+ListBox1->Items->Strings[ListBox1->ItemIndex];

Image1->Picture->LoadFromFile(Path) ;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)

{

if (ListBox1->ItemIndex<ListBox1->Items->Count) //Перемещение на последующее изображение

{ Button2->Enabled=true;

ListBox1->ItemIndex++;

Path=path1+ListBox1->Items->Strings[ListBox1->ItemIndex];

Image1->Picture->LoadFromFile(Path) ;

}

else

if (ListBox1->ItemIndex==ListBox1->Items->Count-1)

{

Button3->Enabled=false;

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

if (ListBox1->ItemIndex>0) //Перемещение на предыдущее изображение

{

if (ListBox1->ItemIndex==1)

Button3->Enabled=true;

ListBox1->ItemIndex--;

Path=path1+ListBox1->Items->Strings[ListBox1->ItemIndex];

Image1->Picture->LoadFromFile(Path) ;

}

}

ПРИЛОЖЕНИЕ 6(продолжение)

//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)

{

ListBox1->ItemIndex=0; //Перемещение на начала списка изображений

Path=path1+ListBox1->Items->Strings[ListBox1->ItemIndex];

Image1->Picture->LoadFromFile(Path) ;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button5Click(TObject *Sender)

{ ListBox1->ItemIndex=ListBox1->Items->Count-1; //Перемещение на конец списка изображений

Path=path1+ListBox1->Items->Strings[ListBox1->ItemIndex];

Image1->Picture->LoadFromFile(Path) ;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

{

Form1->Close();

}

//---------------------------------------------------------------------------