Delphining grafik imkoniyatlari


end; // birinchi illyustratsiyani chiqaramiz procedure


Download 0.58 Mb.
bet15/29
Sana09.03.2023
Hajmi0.58 Mb.
#1254496
1   ...   11   12   13   14   15   16   17   18   ...   29
Bog'liq
delphi uzb графика

end;
// birinchi illyustratsiyani chiqaramiz
procedure FirstPicture;
var
r : integer; // faylni izlash natijasi
begin
aPath := 'f:\temp\';
r := FindFirst(aPath+'*.bmp',faAnyFile,aSearchRec);
if г = 0 then
begin // ko’rsatilgan katalogda *.bmp fayl bor
aFile := aPath + aSearchRec.Name;
Form1.Image1.Picture.LoadFromFile(aFile); // illyustratsiyani yuklash
Scalelmage; //-komponent o’lchamini o’rnatish
Image r := FindNext(aSearchRec); // navbatdai faylni topish
if r = 0 then // yana illyustratsiya fayli bor
Forml.Button1.Enabled := True;
end;
end;
// navbatdagi illyustratsiyani chiqarish
Procedure NextPicture();
var
r : integer;
begin
aFile := aPath + aSearchRec.Name;
Forml.Image1.Picture.LoadFromFile(aFile);
Scalelmage;
// navbatdagi illyustratsiyani chiqarishga tayyorlaymiz
r := FindNext(aSearchRec); // navbatdagi faylni topish
if r<>0
then // illyustratsiya boshqa yo’q
Forml.Buttonl.Enabled := False;
end;
procedure TForml.FormActivate(Sender: TObject);
begin
Image1.AutoSize := False; // komponentning avto o’zgarishini ta’qiqlash
Image1.Stretch := True; // mas’shtablashga ruxsat etish
// illyustratsiya chiquvchi sohaning boshlang’ich qiymatlarini eslab qolamiz
iw := Imagel.Width;
in := imagel.Height;
Button1.Enabled := False;
FirstPicture; // birinchi illyustratsiyani chiqarish
end;
// ‘Navbatdagi’ tugmani bosish
procedure TForm1.Button1Click(Sender: TObject);
begin
NextPicture;
end;
end.
Dastur illyustratsiyani hech qanday buzilishlarsiz ko’rsatadi. Birinchi va boshqa illyustratsiyalarni yuklash uchun FirstPicture va NextPicture protseduralardan foydalaniladi. FirstPicture protsedurasi birinchi BMP faylning nomini aniqlab olishi uchun FindFirst funksiyasidan foydalanadi. FindFirst funksiyasining paraetrlari sifatida quyidagilar beriladi:

  • illyustratsiya joylashishi kerak bo’lgan katalog nomi;

  • agar ozlash muvaffaqqiyatli yakunlansa aSearchRec ning Name maydoni topilgan fayl nomini beradi;

  • illyustratsiya fayli maskasi.

Agar ko’rsatilgan katalogda xech bo’lmaganda bitta BMP fayl bo’lsa, u xolda FindFirst funksiyaning qiymati 0 ga teng bo’ladi. Bunday holatda LoadFromFile uslubi illyustratsiya faylini yuklaydi. Shundan so’ng ScaleImage funksiyasiga murojaat qilinadi. Bu funksiya illyustratsiya o’lchamlariga proporsional shaklda komponent o’lchamlarini o’rnatadi. Yuklangan illyustratsiya o’lchamlarini Form1.Image1.Picture.Width va Form1.Image1.Picure.Height xususiyatlariga murojaat qilib olish mumkin. Uning qiymatlari Image komponentning o’lchamlariga bog’liq emas.

Download 0.58 Mb.

Do'stlaringiz bilan baham:
1   ...   11   12   13   14   15   16   17   18   ...   29




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling