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 shakllarni
joylash 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:
Image1.Canvas.pie(0,0,100,100, 50,0,0,50);
Image1.Canvas.pie(100,0,200,100, 0,50,150,0);
2 Rasmga shakllarni joylash.
Rasmga bir qator geometrik shakllarni joylash 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 yoyini chizadigan operatorlar va ular chizgan yoylarni quyida
ko‘rsatilgan.
Do'stlaringiz bilan baham: |