Mirsaid Aripov, Nurillo Otaxanov

11.9-listing. Uchayotgan samolyot

var

Back, bitmap, Buf : TBitMap;  fon, kartinka, bufer

BackRct : TRect;  buferdan tiklanadigan fon sohasi

BufRct: Trect;  Fonni tiklash uchun zarur bufer sohasi

x, y:integer;  rasmning joriy holati

W, H: integer;  rasm o`lchamlari

procedure TForm1.FormActivate(Sender: TObject);

begin

 uchta ob’yekt -bitli tasvir yaratish -

Back : TBitmap.Create;  fon

bitmap : TBitmap.Create;  rasm

Buf : TBitmap.Create;  bufer

 fonni yuklash va chiqarish

Back.LoadFromFile('factory.bmp');

Form1.Image1.canvas.Draw(0,0,Back);

 rasmni yuklash

bitmap.LoadFromFile('aplane.bmp');

 "shaffof" rangni tanlash

bitmap.Transparent : True;

bitmap.TransParentColor : bitmap.canvas.pixels[1,1];

 fon soha nusxasini saqlash uchun bufer yaratish

W : bitmap.Width;

H : bitmap.Height;

Buf.Width : W;

Buf.Height : H;

Buf.Palette : Back.Palette;  palitralar mosligini ta`minlash uchun !!

Buf.Canvas.CopyMode : cmSrcCopy;

 fonni tiklash uchun zarur bo`lgan bufer sohasini aniqlaymiz

BufRct : Bounds(0, 0, W, H);

 rasmning boshlang’ich holati

x : -W;

y : 20;

 fonning saqlanadigan qismi aniqlanadi va saqlanadi

BackRct : Bounds(x, y, W, H);

Buf.Canvas.CopyRect(BufRct, Back.Canvas, BackRct);

end;

 taymer signalini qayta ishlash

procedure TForm1.Timer1Timer(Sender: TObject);

begin

 buferdan fonni tiklab, rasm o`chiriladi

Form1.image1.canvas.Draw(x,y,Buf);

x : x  2;

if x>form1.Image1.Width then x : -W;

 saqlanadigan fon sohasi aniqlanadi va nusxasi saqlanadi

BackRct : Bounds(x, y, W, H);

Buf.Canvas.CopyRect(BufRct, Back.Canvas, BackRct);

 rasm chiqariladi

Form1.image1.canvas.Draw(x, y, bitmap);

end;

 dasturning ishi yakunlanadi

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

 bitli tasvir uchun ajratilgan xotira bo`shatiladi

Back.Free;

bitmap.Free;

Buf.Free;

end;

11.19-rasm. Samolyot dasturining foni va ish vaqtidagi ko`rinishi

Fon va samolyot bitli tasvirlarini, shuningdek samolyot to`sib qolgan fon sohasini saqlash uchun TbitMap tipidagi ob’yektlardan foydalaniladi. Bu ob’yektlar FormActivate protsedurasi yordamida dinamik hosil qilinadi. Shu protseduraning o`zi fon - factory.bmp hamda samolyot - plane.bmp fayllarini yuklaydi hamda samolyot birinchi marta qo`yiladigan fon sohasini saqlab qoladi.