10-sinf informatika 16. pdf

Bu protseduradan o ldin light off protsedurasini kiriting:

procedure light off; begin
forml.canvas.brush.Color:=clBlue; forml.canvas.Rectangle(l0,10,200,80); forml.canvas.brush.Color:=clGray; forml.canvas.Ellipse(20,20,70,70); forml.canvas.Ellipse(80,20,130,70); forml.canvas.Ellipse(140,20,190,70); end;

5. 
   Ilovani ishga tushirib, uning ishini kuzating:
   

1. Rasmga matn joylash. Rasmlar bilan ishlashda ko'p uchraydigan amallardan biri bu rasmga matn joylashdir. Bu amalni bajarish uchun Canvasning usuli bo'lgan TextOut (matn chiqarish) dan foydalaniladi. Uning uchta argumenti bo'lib, ulardan dastlabki ikkitasi matn chiqariladigan soha chap yuqori burchagining koordinatalari, uchinchisi esa ekranga chiqariladigan matn satri.
Masalan, Imagel.Canvas.TextOut(l0,20, 'Salom!'); operatori rasm sohasining ( 10, 20) nuqtasidan boshlab, 'Salom!' degan yozuvni chiqaradi.
144


Rasmga qo'yiladigan yozuvning qanday shriftda chiqishini Canvas ning Font (shrift) nomli xossasi belgilaydi. Masalan, shriftning o'lchamini 14 qilish uchun Image l. Canvas.Font.Size :=14; , shrift rangini qizil qilish uchun Image 1.Canvas.Font. Color:=clRed; operatoridan foydalaniladi.
Bu operatorlami qo'llash bilan tanishish uchun quyidagi ilovani yaratamiz. Unga Image va Button tugmalarini joylab, tugmani ikki marta bosamiz va quyida ko'rsatilgan operatorlami kiritamiz:
Imagel.Canvas.Font.Size:=8; Imagel.Canvas.TextOut(10,20, '8'); Imagel.Canvas.Font.Size:=14; Imagel.Canvas.Font.Color:=clRed; Imagel.Canvas.TextOut(20,20, '14'); Imagel.Canvas.Font.Size:=20; Imagel.Canvas.Font.Color:=clBlue; Imagel .Canvas.TextOut(40,20, '20'); Imagel.Canvas.Font.Name:='Times New Roman'; Imagel.Canvas.Font.Size:=30; Imagel.Canvas.Font.Color:=clGreen; Imagel.Canvas.TextOut(70,20, '30'); Imagel.Canvas.Font.Size:=40; Imagel.Canvas.Font.Color:=clBlack; Imagel.Canvas.TextOut(110,20, '40'); Imagel.Canvas.Font.Size:=50; Imagel.Canvas.Font.Color:=RGB(255,0,255); Imagel.Canvas.TextOut(180,20, '50');
Ilovani ishga tushirib, uning tugmasini bosamiz.
Shriftni o'zimiz bilgan Times New Roman ga almashtirganimizdan keyin ekrandagi math sifati yaxshilanganiga e'tibor bering.
145



2. Rasmga shakllarni joylash. Rasmga bir qator geometrik shakllami joylash mumkin. Ulardan to'g'ri to'rtburchak, ellips, kesmalami qanday joylashni avvalgi darslarda ko'rib chiqqan edik. Endi ular yoniga boshqalarini qo'shamiz.
Ellips yoyini rasmga qo'shish uchun arc(xl,yl,x2,y2, x3,y3,x4,y4) usulidan foydalaniladi. Ellips uchlari (xl, yl), (x2, y2) nuqtalarda bo'lgan to'g'ri to'rtburchakka ichki chizilgan va uning markazini (x3, y3), (x4, y4) nuqtalar bilan birlashtiruvchi to'g'ri chiziqlar bilan kesilgan qismi olinadi. Bunda uchinchi nuqtadan to'rtinchi nuqtaga soat miliga teskari yo'nalishda harakatlanadi.
Ellips yoyini chizadigan operatorlar va ular chizgan yoylami quyida ko'rsatilgan.
Imagel.Canvas.Arc(0,0,100,100, 50,0,0,50);
Imagel.Canvas.Arc(l00,0,200,100, 0,50,150,0);

Ellips segmentm1 rasmga qo'shish uchun Cord(xl,yl,x2,y2, x3,y3,x4,y4) usulidan foydalaniladi. Unga misol quyida keltirilgan:

Imagel.Canvas.Chord(0,0,100,100, 50,0,0,50);
Imagel.Canvas.Chord(l00,0,200,100, 0,50,150,0);
146



Ellips sektorini rasmga qo'shish uchun Pie(xl,yl,x2,y2, x3,y3,x4,y4) usulidan foydalaniladi. Unga misol quyida keltirilgan:

Imagel.Canvas.pie(0,0,100,100, 50,0,0,50);

Imagel.Canvas.pie(l00,0,200,100, 0,50,150,0);