O‗zbekiston respublikasi oliy va o‘rta maxsus ta‘limi vazirligi a. Qodiriy nomidagi jizzax davlat pedagogika instituti ta‘limda axborot texnologiyalari kafedrasi

 
 
 
 

---

3. procedure
SetFontName(name: 
string
); 
name nomli shriftni ekranga chiqariladigan matn uchun joriy shrift sifatida
o‗rnatadi.
Misol.
uses graphABC;
begin
SetFontName('Times new roman');
textout(20,20,'Times new roman shrifti');
SetFontName('Courier new');
textout(20,40,'Courier new shrifti');
end.
4. procedure
SetFontStyle(fs: integer);
Ekranga chiqariladigan matnning stilini (yozilishi shaklini) belgilaydi. Shrift
stillari uchun quyidagi o‗zgarmaslar kiritilgan:
fsNormal=0 – oddiy;
fsBold =1– qalin;
fsItalic=2 – qiyalangan;
fsBoldItalic=3 – qalin va qiyalangan;
fsUnderline =4– ostiga chizilgan;
fsBoldUnderline=5 – qalin va ostiga chizilgan;
fsItalicUnderline=6 – qiyalangan va ostiga chizilgan;
fsBoldItalicUnderline=7 – qalin, qiyalangan va ostiga chizilgan.
Misol. 
uses graphABC;
begin
SetFontstyle(fsNormal);
textout(20,20,'Oddiy matn');
SetFontstyle(fsBold);
textout(20,40,'Qalin matn');
SetFontstyle(fsItalic); textout(20,60,'Qiyalangan matn');
SetFontstyle(fsBoldItalic);
textout(20,80,'Qalin va qiyalangan matn');
SetFontstyle(fsUnderline);
textout(20,100,'Ostiga chizilgan matn');
SetFontstyle(fsBoldUnderline);
textout(20,120,'Qalin va ostiga chizilgan matn');
SetFontstyle(fsItalicUnderline);
textout(20,140,'Qiyshiq va ostiga chizilgan matn');
SetFontstyle(fsBoldItalicUnderline);
textout(20,160,'Qalin, qiyalangan va ostiga chizilgan matn');
end.

---

5. procedure
SetFontSize(sz: 
integer); 
Matn shrifti o‗lchamini belgilaydi.
Misol.
uses graphABC;
begin
SetFontName('Times new roman');
setfontsize(8);
textout(10,20,'8 o''lchamli matn');
setfontsize(16);
textout(10,40,'16 o''lchamli matn');
setfontsize(32);
textout(10,80,'32 o''lchamli matn');
setfontsize(64);
textout(10,160,'64 o''lchamli matn');
end.