Delphi tilida

end; 
end; 
Polyline usuli yordamida yopiq ko‘pburchak chizish uchun 
massivning birinchi va oxirgi e i elementi bir nuqtaning koordi-natalaridan 
iborat bolishi kerak. 

Aylana va ellips 

Bu yerda xl, yl, x2, u2 — ellipsni o‘z ichiga olgan minimal 
to‘rtburchak koordinatalari. Agar to‘rtburchak kvadrat bo‘lsa aylana 
chiziladi. 

Yoy 

Yoyni chizish uchun Arc usuli qollaniladi va u quyidagi umumiy 
ko‘rinishga ega: 

124 

Yoy soat miliga teskari tartibda chiziladi. 

To‘rtburchak 

ishlatiladigan ellips kattaligi. 

Yana ikki usul mo‘yqalamdan foydalanib to‘rtburchak chizishga 
imkon beradi. FillRect usuli ichi bo‘yalgan to‘rtburchak chizadi, 
FrameRect — faqat kontur. Bu usullarda faqat bitta parametrga ega
—TRect tipidagi tuzilma. Quyidagi misolda FillRect va FrameRect 
usullari orqali forma yuzasiga qizil to‘rtburchak soha va yashil konturli 
to‘rtburchak chizuvchi protsedura keltirilgan. 

Procedure TForml.ButtonlClick(Sender: TObject); 
Var 
rl, r2: TRect; 
begin 
rl := Rect(20,20,60,40); 
r2 := Rect(10,10,40,50); 
with forml.Canvas do begin 
Brush.Color := clRed; 
FillRect(rl); 
Brush.Color := clGreen; 

125 

FrameRect(r2}; 
end; 
end; 

Ko‘pburchak 

Polygon usuli ko‘pburchak chizishga moljallangan bolib. para- 
metri TPoint tipidagi massivdir. Massivning har bir elementi (x,y) 
maydonlari ko‘pburchak uchi koordinatalaridan iborat bo‘lgan 
yozuvdir. 
Quyida polygon usuli yordamida uchburchak chizish protsedurasi 
keltirilgan: