Yoy
Yoyni chizish uchun Arc usuli qollaniladi va u quyidagi umumiy ko‘rinishga ega:
Object.Canvas.Arc(xl,yl,x2,y2,y3,y3,x4,y4)
Bu yerda:
• x 1, y 1, x 2, u 2 - yoyga tegishli bolgan ellips yoki aylana parametrlari;
• x 3, y3 — yoyning boshlangich nuqta parametrlari;
• x 4, y 4 — so‘ngi nuqtali parametrlari. Yoy soat miliga teskari tartibda chiziladi.
To‘rtburchak
To‘rtburchak Rectangle usuli bilan chizilib, bu usulni chaqirish instruksiyasiningumumiy ko‘rinishi quyidagicha:
Object.Canvas.Rectangle(xl, yl,x 2 , y2)
Bu yerda x l, yl va x2, y2 — chapgi yuqori va o‘nggi pastgi burchaklar koordinatalari.
RoundRec usuli burchaklari yumaloq to‘rtburchak chizishga imkon beradi. RoundRec usulini chaqirish instruksiyasi quyidagi ko‘rinishga ega:
Object.Canvas.RoundRec(xl,yl,x2, y2, x3, y3) Bu yerda:
• x 1, y 1, x 2 , y 2 - to‘rtburchak parametrlari;
• x 3 i y 3 — chorak qismi yumaloq burchak chizish uchun 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
r l , r2: TRect;
begin
r l := Rect(20,20,60,40);
r2 := Rect(10,10,40,50);
with forml.Canvas do begin
Brush.Color := clRed; FillRect(rl);
Brush.Color := clGreen;
FrameRect(r2};
end; end;
Ko‘pburchak
Polygon usuli ko‘pburchak chizishga mo’ljallangan bo’lib. parametri 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:
Dostları ilə paylaş: |