Delphining grafik imkoniyatlari

end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
// fonni buferdan tiklash bilan rasmni o’chiramiz
Form1.image1.canvas.Draw(x,y, Buf);
x:=x+2;
if x>form1.Image1.Width then x:=-W;
// fonning saqlanuvchi sohasini aniqlaymiz
BackRct:=Bounds(x,у,W,H);
// uning nusxasini saqlaymiz
Buf.Canvas.CopyRect(BufRct,Back.Canvas,BackRct);
// rasmni ekranga chiqaramiz
Form1.image1.canvas.Draw(x,y,bitmap);
end;
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Back.Free;
bitmap.Free ;
Buf.Free;
end;
end.
Rasmni resursdan yuklashning afzalliklari ko’rinib turibdi: dasturni ishlatishda illyustratsiya fayllari mavjudmi yoki yo’qligi haqida o’ylash shart emas, kerali rasmlarning barchasi dastur ichida joylashgan bo’ladi.
“Multik” ko’rish
endi esa muloqot oynasida oddiy “multik”ni qanday ko’rsatish mumkinligini ko’rib chiqamiz. Tushunarli bo’lishi uchun, Internetga ulanayotgan vaqtda Установка связи (aloqani o’rnatish) muloqot oynasidagi harakatni olishimiz mumkin.
Telefon bilan kompyuter o’rtasida “yugirib yuruvchi” qizil kvadrat bir-biridadn farqlanuvchi rasmlar va ularni o’zaro almashib turishi hisobiga hosil bo’ladi.
Multik kadrlari odatda bitta faylda yoki bitta resursda joylashgan bo’ladi. Dastur ish boshlashidan avval ular foydalanish uchun qulay bo’lgan TbitMap tipli ob’yekt sifatida buferga yuklanadi. Multikni namoyish qilish protsedurasining vazifasi tartib bo’yicha kerakli kadrni belgilash va uni formaning tegishli joyida hosil qilishdan iborat.
Kadrni formaning sirtida hosil qilishni formaning Canvas xususiyatiga CopyRect uslubini qo’llash yordamida amalga oshirish mumkin. Copyrect uslubi bir grafik sirtning to’g’ri to’rtburchakli sohasini boshqasiga nusxasini oladi.
CopyRect uslubini qo’llash instruksiyasi umumiy ko’rinishda quyidagicha bo’ladi:
Canvas1.CopyRect(Soha1, Canvas2, Soha2)
Bu yerda

• 
  canvas1 — nusxa qo’yish bajarilayotgan grafik sirt;
  
• 
  Canvas2 — nusxa olish bajarilayotgan grafik sirt;
  
• 
  Soha2 — nusxalanuvchi to’g’ri to’rtburchakli sohalarning joylashishi va o’lchamalarini beradi, Soha1 parametr esa nusxaning Canvas1 sirtdagi joylashishi;
  

Soha1 va Soha2 larning parametrlari sifatida Trect tipli o’zgaruvchilar foydalaniladi. Trect maydonlarini to’ldirish uchun Bounds funksiyasidan foydalanish mumkin, funksiyaning umumiy ko’rinishi quyidaicha:
Bounds(x,у,Width,Height)
Bu yerda:

• 
  х va у — sohaning chap-yuqori burchagi;
  
• 
  width и Height — sohaning kengligi va balandligi.
  

10.12-listingda keltirilgan navbatdagi dastur matni oddiy multik – Delphi kolonnasini muloqot oynasida chiqaradi. 10.19-rasmda bu multikning kadrlari ko’rsatilgan (film.bmp fayli).

10.20-rasmda dasturning muloqot oynasi keltirilgan. Oynada faqat bitta taymer komponenti bor xolos.