Delphining grafik imkoniyatlari


Bitli tasvirlar (Битовые образцы)


Download 0.58 Mb.
bet16/29
Sana09.03.2023
Hajmi0.58 Mb.
#1254496
1   ...   12   13   14   15   16   17   18   19   ...   29
Bog'liq
delphi uzb графика

Bitli tasvirlar (Битовые образцы)
Grafika bilan ishlashda TbitMap (bitli tasvir) tipidagi ob’yektlardan foydalanish qulayroqir. Bitli tasvirlar o’zida kompyuter xotirasidagi ko’rinmas grafik sirtga ega bo’lgan tasvirni saqlaydi. Bunday bitli tasvirlar forma sirtida yoki Image komponent sohasida oson va asosiysi tez hosil qilinadi. Shuning uchun dasturlarda bitli tasvirlardan uncha katta bo’lamagan tasvirlarni saqlash uchun foydalaniladi, masalan, buyruq tugmachasining rasmi. Bitli tasvirga kerakli rasmni yuklash uchun LoadFromFile uslubidan foydalanish mumkin. Parametr sifatida kerakli illyustratsiya joylashgan BMP faylning nomi beriladi.
Masalan, agar dasturda pic-o’zgaruvchi TbitMap tipida e’lon qilingan bo’lsa, u holda pic.LoadFromFiie('е:\images\aplane.bmp') instruksiyasi bajarilgandan so’ng pic bitli tasvir samolyot tasviriga ega bo’ladi. Bitli tasvirdagi rasmni forma sirtiga yoki Image komponentiga chiqarish uchun Draw uslubidan foydalanish mukin. Masalan, Image1.Canvas.Draw(x,y,bm) instruksiyasi bm-bitli tasvirni Image1 komponent sirtida xosil qiladi (x va y parametrlar tasvirning chap-yuqori nuqtasining komponent sirtidagi koordinatasi).
Raw uslubidan foydalanishdan avval TbitMap ob’yektining Transparent xususiyatiga True qiymati berilsa, u holda rasmning chap-quyi nuqtasiga mos keluvchi ranglari ko’rinmas bo’lib qoladi, ya’ni, shu nuqtalarning orqasidagi fon ko’rinib qoladi. Agar rasmning chap-quyi nuqtasidagi rangdan boshqa rangni ko’rinmas holatga keltirish loqim bo’lsa, u holda TransparentColor xususiyatiga kerakli rangning belgili konstantasi berilishi yetarlidir.
10.7-listingda berilgan dasturda bitli tasvirlardan foydalanib bir nechta rasmlarni chiqarish keltirilgan.
10.7-listing. Bitli tasvirdan foydalanish
unit aplanes_;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs;
type
TForml = class(TForm)
procedure FormPaint(Sender: TObject);

Download 0.58 Mb.

Do'stlaringiz bilan baham:
1   ...   12   13   14   15   16   17   18   19   ...   29




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