Delphining grafik imkoniyatlari

end;
end;
// taymer signalini qayta ishlash
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Titanik(x,y,form1.color); // rasmni o’chirish
if x < Form1.ClientWidth
then x := x+5
else begin // harakatni yangitdan boshlash
x := 0;
у := Random(50) + 100;
end;
Titanik(x,у,clWhite); // yangi nuqtada chizish
end;
procedure TForml.FormActivate(Sender: TObject);
begin
x:=0; y:=100;
Form1.Color:=clNavy;
Timerl.Interval := 50; // taymer signali har 50 sekundda
end;
end.
Korabl tasvirini chizish va o’chirishni Titanik protsedurasi bajaradi. Protsedura parametrlari sifatida bazaviy nuqta koordinatasi va chiziq ranglari beriladi. Agar protsedura chaqirilayotganda berilayotgan rang fon rangidan farq qilsa korabl chiziladi, agar fon bilan bir xil bo’lsa korabl o’chiriladi. Protsedurada tasvirning nuqta koordinatalarini hisoblashda qadamni belgilovchi dx va dy konstantalar e’lon qilingan. Bu konstantalarning qiymatlarini o’zgartirish bilan tasvirni mas’shtablash mumkin.
Bitli tasvirlardan foydalanish.
Avvalgi misolda tasvir grafik elementlardan tashkil topgan edi. Endi bir murakkab tasvirni boshqa bir tasvir fonida qanday xarakatlanishini ko’rib chiqamiz. Masalan, shahar fonida samolyotni uchishi.
Rasmni xarakatlanishi uning avvalgi joyiga bog’liq ravishda boshqa joyda qayta chizilishi bilan xarakterlanadi. Shunday ekan, rasmni yangi nuqtada hosil qilish uchun avval uning eski joydagigisini o’chirish kerak. Rasmni o’chirish uchun fondagi rasmni yangitdan chizish yoki harakatlanuvchi ob’yekt joylashgan qisminigina qayta chizish bilan amalga oshiriladi.
Biz ko’rib o’tadigan dasturda ikkinchi yo’ldan foydalanamiz. Rasm Image komponenti Canvas xususiyatining Draw uslubi yordamida amalga oshiriladi. O’chirishni esa fonning kerakli qismini buferdan Image komponenti sirtiga nusxasini olish (CopyRect uslubi) yo’li bilan aalga oshiriladi.
Dastur formasi 10.18-rasmda, dastur matni esa 10.10-listingda keltirilgan.
Image komponenti fonni chiqarish uchun, Timer komponenti esa samolyotni o’chirish va yangi joyda hosil qilish sikllari orasidagi to’xtab turishni tashkil qilish uchun ishlatiladi.