Mirsaid Aripov, Nurillo Otaxanov

11.6-listing. Bitli tasvirlardan foydalanish

var

Form1: TForm1;

sky, aplane: TBitMap;  bitli tasvir tipidagi o`zgaruvchilar

procedure TForm1.FormPaint(Sender: TObject);

begin

// o`zgaruvchilar initsializatsiya qilinmoqda

sky := TBitMap.Create;

aplane := TBitMap.Create;

// rasmlarni yuklash

sky.LoadFromFile('sky.bmp');

aplane.LoadFromFile('aplane.bmp') ;

Form1.Canvas.Draw(0, 0, sky); // fon

Form1.Canvas.Draw(20, 20, aplane); // chap samolyot

aplane.Transparent:=True;

// endi rasmning rangi bitli tasvir chap quyi burchagi

// rangi bilan bir hil bo`lgan qismi ko`rinmaydi




11.14-rasm. Transparent hususiyati-ning rasmga ta`siri
Form1.Canvas.Draw(120, 20, aplane); // o`ng samolyot // xotirani tozalash

sky.free; aplane.free;

end;
Dastur osmonda uchayotgan ikki samolyot tasvirini (11.14-rasm) hosil qiladi. Fon va samolyotlar fayllardan yuklanadi. Chap tomondagi samolyot atrofidagi oq maydon Aplane tasvirining haqiqiy o`lchamlarini ko`rsatadi. O`ng tomondagi samolyot atrofida esa bunday maydon yo`q. Chunki, uning Transparent hususiyati – True.

12.6. Mul’tiplikatsiya

Mul’tiplikatsiya deganda o`z holatini o`zgartirib (xarakatlanib) turadigan rasmlar tushuniladi.

Rasmni soha bo`ylab surilib borishini osongina ta`minlash mumkin: dastlab rasm sohaga chiqariladi, ma`lum bir muddatdan so`ng o`chiriladi va rasm navbatdagi pozitsiyadan chiqariladi va x.k. Rasmni sohaga chiqarish va o`chirish vaqti hamda "eski" va "yangi" pozitsiyasini shunday tanlash mumkinki, rasm xuddi soha bo`ylab xarakatlanayotganga o`xshay-di. Quyidagi dastur (11.7-listing) va formaning ko`rinishi (11.15-rasm) aylananing chap tomondan o`ngga qarab xarakatlanishini namoyish qiladi.

11.15-rasm. Xarakatlanayotgan aylana