Tibbiyotda axborot texnologiyalari

Matn hosil qilish 
 
10.5-rasm. «Maydonlarni to‘ldirish usuli» dasturining 
dialogli oynasi. 
 
Grafik obyekt sirtida matnni hosil qilish uchun TextOut 
uslubidan foydalaniladi. TextOut uslubining yozilish formati 
quyidagicha: 
Оb’yekt.Canvas.TextOut(x, y, Text); 
Bu yerda 

---

Ob‘yekt – matn hosil bo‗luvchi obyekt nomi; x, y – matn 
boshlanuvchi koordinata (8.5-rasm); 
Text – hosil bo‗luvchi belgi kattalikdagi matn yoki satrli 
o‗zgaruvchi. 
rasm. Matn hosil bo‗luvchi soha koordinatasi 
Hosil bo‗luvchi matn belgilari Canvas obyektiga muvofiq 
keluvchi Font xususiyati orqali ifodalanadi. Font xususiyati TFont 
obyektiga 
tegishli 
bo‗lib, 
quyidagi 
jadvalda 
belgi 
xarakteristikalari va qo‗llaniluvchi uslublari keltirilgan: 
Xususiyat 
Aniqlanishi 
Name 
Foydalaniluvchi shrift. Qiymat sifatida shrift nomi 
yoziladi, masalan, Arial Cyr 
Size 
punktlarda ifodalaniluvchi shrift o‗lchami. Punkt-
poligrafiyada qo‗llaniluvchi o‗lchov birligi bo‗lib, u 
taxminan 1/72 dyuymga teng 
Style 
belgini yozish usuli, quyidagicha bo‗lishi mumkin: 
oddiy, qalin, kursiv, ostiga chizilgan, sirtiga 
chizilgan. Bo‗lar quyidagi konstantalar yordamida 
amalga oshiriladi: fsBold (qalin), fsItalic (kursiv), 
fsUnderline (ostiga chizilgan), fsStrikeOut (sirtiga 
chizilgan). style bir nechta usullarni 
kombinatsiya qilishi mumkin. Masalan, qalin kursiv 
holatini ifodalash: Ob‘yekt.Canvas.Font := [fsBold, 
fsItalic] 
Color 
Belgi 
rangi. 
Qiymat 
sifatida 
TColor 
konstantalaridan foydalanish mumkin. 
Quyidagi dastur qismi TextOut uslubini qodlash uchun misol 
bo‗la oladi: 
with Forml.Canvas do begin 
Brush.Color := Forml.Color; 
Font.Size := 14; 
Font.Style := [fsItalic, fsBold]; 
TextOut(10, 10, ‘Salom, Delphi!‘); end; 

---

Matn oynada hosil bo‗lgandan so‗ng ko‗rsatkich uning o‗ng 
yuqori burchagiga siljiydi. 
Ba‘zida matndan so‗ng biror ma‘lumotni chiqarish kerak 
bo‗lib qoladi. Agar matn uzunligi noma‘lum bo‗lsa ko‗rsatkich 
turgan koordinatani aniqlash mushkul. Masalan «so‗m» so‗zini 
raqamdan keyin hosil qilish kerak bo‗lsin. Bunday holatlarda 
ko‗rsatkich turgan koordinatadan boshlab davom etish uchun 
PenPos dan foydalanishga to‗g‗ri keladi: 
with Form1.Canvas do begin 
TextOut(10, 10, SumPr); // SumPr – String tipli kattalik 
TextOut(PenPos.X, PenPos.Y, ‘ sum‘); 
end;