procedure TForm1.Button1Click(Sender:TObject);
var
pol: array[1..3] of TPoint; //uchburchak nuktalari koordinatasi
{TPointqrecord
X:longint;
Y:longint
End;}
Begin
Pol[1].x:=10;
Pol[1].y:=50;
Pol[1].x:=40;
Pol[1].y:=10;
Pol[1].x:=70;
Pol[1].y:=50;
Form1.Canvas.Polygon(pol);
End;
Cеktor.
Ellips yoki aylana sеktorini hosil qilishda Pie uslubidan foydalaniladi. Pie ning umumiy yozilish formati:
Ob’еkt.Canvas.Pie(x1,y1,x2,y2,x3,y3,x4,y4)
bu yerda
ob’еkt – yoy chiziluvchi ob’еkt nomi;
x1,y1,x2,y2 – hosil bo‘luvchi sеktorni davom ettirib hosil qilinuvchi ellips (aylana)ga tashqi chizilgan to‘g‘ri to‘rtburchakning mos koordinatalari;
x3,y3 – sеktorning boshlang‘ich nuqtasi;
x4,y4 – sеktorning tugash nuqtasi.
5.6-rasm.
Do'stlaringiz bilan baham: |