Лабораторна робота №8

Тема: Завантаження зображення із графічного файлу.

Мета: Навчитися викликати діалог відкриття графічних файлів, відкривати вибраний файл і розміщувати його вміст в поле компонента Image.

Лістинг програми:

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

int k1=0; String NF;

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner) { }

void __fastcall TForm1::N2Click(TObject *Sender)

{

if ( OpenDialog1->Execute() )

{ Image1->Picture->LoadFromFile( OpenDialog1->FileName ); k1=0;

} }

void __fastcall TForm1::N5Click(TObject *Sender)

{ Close(); }

void __fastcall TForm1::N3Click(TObject *Sender)

{ Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\0.jpg"); }

void __fastcall TForm1::Button1Click(TObject *Sender)

{ k1++; if(k1>30) k1=1;

if(k1==0) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\0.jpg");

if(k1==1) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\1.jpg");

if(k1==2) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\2.jpg");

if(k1==3) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\3.jpg");

if(k1==4) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\4.jpg");

if(k1==5) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\5.jpg");

if(k1==6) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\6.jpg");

if(k1==7) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\7.jpg");

if(k1==8) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\8.jpg");

if(k1==9) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\9.jpg");

if(k1==10) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\10.jpg");

if(k1==11) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\11.jpg");

if(k1==12) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\12.jpg");

if(k1==13) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\13.jpg");

if(k1==14) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\14.jpg");

if(k1==15) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\15.jpg");

if(k1==16) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\16.jpg");

if(k1==17) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\17.jpg");

if(k1==18) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\18.jpg");

if(k1==19) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\19.jpg");

if(k1==20) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\20.jpg");

if(k1==21) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\21.jpg");

if(k1==22) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\22.jpg");

if(k1==23) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\23.jpg");

if(k1==24) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\24.jpg");

if(k1==25) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\25.jpg");

if(k1==26) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\26.jpg");

if(k1==27) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\27.jpg");

if(k1==28) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\28.jpg");

if(k1==29) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\29.jpg");

if(k1==30) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\30.jpg");

}

void __fastcall TForm1::Button2Click(TObject *Sender)

{

if(k1==30) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\29.jpg");

if(k1==29) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\28.jpg");

if(k1==28) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\27.jpg");

if(k1==27) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\26.jpg");

if(k1==26) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\25.jpg");

if(k1==25) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\24.jpg");

if(k1==24) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\23.jpg");

if(k1==23) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\22.jpg");

if(k1==22) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\21.jpg");

if(k1==21) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\20.jpg");

if(k1==20) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\19.jpg");

if(k1==19) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\18.jpg");

if(k1==18) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\17.jpg");

if(k1==17) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\16.jpg");

if(k1==16) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\15.jpg");

if(k1==15) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\14.jpg");

if(k1==14) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\13.jpg");

if(k1==13) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\12.jpg");

if(k1==12) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\11.jpg");

if(k1==11) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\10.jpg");

if(k1==10) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\9.jpg");

if(k1==9) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\8.jpg");

if(k1==8) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\7.jpg");

if(k1==7) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\6.jpg");

if(k1==6) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\5.jpg");

if(k1==5) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\4.jpg");

if(k1==4) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\3.jpg");

if(k1==3) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\2.jpg");

if(k1==2) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\1.jpg");

if(k1==1) Image1->Picture->LoadFromFile("My_PhotoAlbom_2\\30.jpg");

k1--; if(k1<1) k1=30;

}

Результат роботи:

Висновок. На даній лабораторній роботі я навчився викликати діалог відкриття графічних файлів, відкривати вибраний файл і розміщувати його вміст в поле компонента Image.