Delphining grafik imkoniyatlari

private
{ Private declarations }
public
{ Public declarations }
end;
var
Forml: TForm1;
sky,aplane: TBitMap; // bitli tasvirlar: osmon va samolyot
implementation
($R *.DFM}
procedure TForm1.FormPaint(Sender: TObject);
begin
// bitli tasvirni yaratish
sky := TBitMap.Create;
aplane := TBitMap.Create;
// rasmlarni yuklash
sky.LoadFromFile('sky.bmp');
aplane.LoadFromFile('aplane.bmp') ;
Form1.Canvas.Draw(0,0,sky); // fonni chizish
Form1.Canvas.Draw(20,20,aplane); // chapdagi samolyotni chizish
aplane.Transparent:=True;
// endi rasmning chap-quyi qismidagi rangga
// mos keluvchi ranglar chizilmaydi
Form1.Canvas.Draw(120,20,aplane);
// o’ng samolyotni chizish
// xotirani tozalash.
sky.free;
aplane.free;
end;
end.
Dastur ishga yuklanganidan keyin ilova oynasida (10.14-rasm) osmon fonida uchayotgan samoyotlar tasvirini ko’rish mumkin. Fon va samolyot – bitli tasvirlardir. Chapdagi samolyotning atrofidagi oq rang aplane bitli tasvirning haqiqiy o’lchamini beradi. O’ngdagi samolyotni yuklash avval Transparent ga True qiymat berilganligi uchun uning atrofidagi oq rang ko’rinmaydi.

10.14-rasm. Tasvirni chiqarishda Transparent xususiyatining ta’siri 
multiplikatsiya
Multiplikatsiya deganda odatda xarakatlanuvchi va o’zgaruvchi rasmlar tushuniladi. Oddiy xolatlarda rasm faqat xarakatlanishi yoki o’zgarishi mumkin.
Yuqorida ko’rsatilganidek, rasm grafik elementlardan (chiziq, aylana, yoy, ko’pburchak va x.k.) tashkil topishi mumkin. Rasmni xarakatga keltirish juda oddiy: avval rasm ekranda hosil qilinadi, bir oz vaqtdan so’ng uni o’chiriladi va avvalgi joyidan bir oz farqlanuvchi joyda yana hosil qilinadi. Rasmni avvalgi va keyingi hosil qilinayotgan joylarning oraliq masofasi bir xilda o’zgartirilib, bu jarayon ketma-ket davom ettirilsa rasm xarakarlanayotganga o’xshaydi va tekis xarakat qiladi.
Quyidagi 10.8-listingda keltirilgan dasturda aylanani dastur oynasi bo’ylab chapdan o’ngga xaakatlanishi keltirilgan. Forma ko’rinishi 10.15-rasmda berilgan.