R. A. Yusupov C++ Builderda masalalar va topshiriqlar samarqand 2018 yil

Download 3,49 Mb.

bet	48/147
Sana	03.01.2022
Hajmi	3,49 Mb.
	#314841

1 ... 44 45 46 47 48 49 50 51 ... 147

Bog'liq
c asosiy

Xususiyati
Qiymati
Autosize	false
Stretch	false
Proportional	true

#include //SelectDirectoryga murojaat

//uchun

#include //JPEG formatdagi suratlar bilan

// ishlashni ta'minlaydi

String aPath; // rasmlar joylashgan katalog

TSearchRec aSearchRec; // fayllarni izlash natijasi

void __fastcall TForm1::FormCreate(TObject *Sender)

{

aPath = ""; // joriy katalog – dastur ishga tushgan

// katalog

FirstPicture(); // dastur katalogidagi mavjud

// rasmlarni ko’rsatish

}

// Katalog tugmasini bosish

void __fastcall TForm1::Button1Click(TObject *Sender)

{

if(SelectDirectory("Rasmlar joylashgan katalogni "

"tanlang. ", "", aPath) !=0)

{

// foydalanuvchi katalogni tanladi va OK ni bosdi

aPath = aPath + "\\";

if (FirstPicture()) // rasmlarni chiqarish

CheckBox1->Enabled = true;

else

Label1->Caption=aPath+" katalogida jpg–rasmlar

yo’q.";

}

// birinchi rasmni chiqarish va keyingisini topish

bool __fastcall TForm1::FirstPicture()

{

Image1->Visible=false; // Image1 komponentni yashirish

Button2->Enabled=false;//Keyingi tugma murojaatli emas

CheckBox1->Enabled = false;

CheckBox1->Checked = false;

Label1->Caption = "";

if(FindFirst(aPath+"*.jpg", faAnyFile,aSearchRec)==0)

{

Image1->Picture->LoadFromFile(aPath+aSearchRec.Name);

Image1->Visible = true;

Label1->Caption = aPath + aSearchRec.Name;

if (FindNext(aSearchRec)==0)//keyingi rasmni topish

// rasm bor

Button2->Enabled=true;//endi Keyingi tugma

// murojaatli

CheckBox1->Enabled = true;

Download 3,49 Mb.

Do'stlaringiz bilan baham: