Delphining grafik imkoniyatlari

end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
DrawKadr;
end;
end.
Dastur uchta protseduradan tashkil topgan. TForm1. FormActivate protsedurasi Film ob’yektini yaratadi va unga film kadrlari joylashgan Film – BMP-faylni yuklaydi. Keyin, yuklangan bitli tasvir o’lchamlari haqidagi ma’lumotdan foydalanib kadrning xarakteristika qiymatilari (balandligi va kengligi) ni o’rnatadi.
Shundan so’ng joriy kadrni saqlab turish uchun Kadr o’byekti (TbitMap tipli) yaratiladi. Kadr ob’yekti yaratilganidan keyin Width va Height xususiyat qiymatlari majburiy o’rnatilayotganligiga e’tibor berish kerak. Agar bu ish bajarilmasa, u holda yaratilgan ob’yekt mavjud bo’ladi, lekin bitli tasvirni saqlash uchun xotira ajratilmaydi. Tform1. FormActivate protsedurasi o’z ishini yakunlayotganda joriy kadrning raqamini I;rnatadi va taymerni ishga yuklaydi.
Dasturdagi asosiy ishni DrawKadr protsedurasi bajaradi. Ya’ni, filmdan navbatdagi kadrni belgilaydi va uni formaga chiqaradi. rasmni bir sirtdan boshqasiga nusxasini olish yo’li bilan kadrni belgilash va uni chizishni CopyRect uslubi (10.21-rasm) bajaradi.
Fragmentning filmdagi o’rnini, ya’ni, chap-yuqori burchagining x koordinatasini kadrning kangligiga uning tartib nomerini ko’paytirish yo’li bilan topiladi. DrawKadr protsedurasini TForm1.Timer1Timer protsedurasi ishga yuklaydi.

10.21-rasm. Canvas1. CopyRect (Rect1, Canvas2, Rect2) instruksiyasi