Taxiatosh tumani kasb-hunar maktabi "tasdiqlayman"

Image1.Canvas.Font.Size:=8;
Image1.Canvas.TextOut(10,20, '8');
Image1.Canvas.Font.Size:=14;
Image1.Canvas.Font.Color:=clRed;
Image1.Canvas.TextOut(20,20, '14');
Image1.Canvas.Font.Size:=20;
Image1.Canvas.Font.Color:=clBlue;
Image1.Canvas.TextOut(40,20, '20');
Image1.Canvas.Font.Name:='Times New Roman';
Image1.Canvas.Font.Size:=30;
Image1.Canvas.Font.Color:=clGreen;
Image1.Canvas.TextOut(70,20, '30');
Image1.Canvas.Font.Size:=40;
Image1.Canvas.Font.Color:=clBlack;
Image1.Canvas.TextOut(110,20, '40');
Image1.Canvas.Font.Size:=50;
Image1.Canvas.Font.Color:=RGB(255,0,255);
Image1.Canvas.TextOut(180,20, '50');
Ilovani ishga tushirib, uning tugmasini bosamiz.

2. Rasmga shakllarni joylash. Rasmga bir qator geometrik shakllarnijoylash mumkin. Ulardan to‘g‘ri to‘rtburchak, ellips kesmalarni qanday joylashni avvalgi mashg‘ulotlarda ko‘rib chiqqan edik. Endi ular yoniga boshqalarini qo‘shamiz.
Ellips yoyini rasmga qo‘shish uchun arc(x1,y1,x2,y2, x3,y3,x4,y4) usulidan foydalaniladi. Ellips uchlari (x1, y1), (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 sektorini rasmga qo‘shish uchun Pie(x1,y1,x2,y2, x3,y3,x4,y4) usulidan foydalaniladi. Unga misol quyida keltirilgan: