Mirsaid Aripov, Nurillo Otaxanov


-listing. Bitli tasvirlardan foydalanish



Download 9,81 Mb.
bet130/209
Sana16.01.2022
Hajmi9,81 Mb.
#371485
1   ...   126   127   128   129   130   131   132   133   ...   209
Bog'liq
DELPHI dasturlash titli 2018

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


Download 9,81 Mb.

Do'stlaringiz bilan baham:
1   ...   126   127   128   129   130   131   132   133   ...   209




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish