1. Delphining grafik imkoniyatlari. Chizma hosil bo`luvchi sirt

To`g`ri to`rtburchak.

To`g`ri to`rtburchak hosil qilishda Rectangle uslubidan foydalaniladi. Uning yozilish formati quyidagicha:

Obyеkt.Canvas.Rectangle(x1,y1,x2,y2)
Bu yerda
Obyеkt – tasvir hosil bo`luvchi Obyеkt nomi;
x1,y2,x2,y2 – to`g`ri to`rtburchakning mos ravishda yuqori chap va quyi o`ng burchak koordinatalari.
RoundRec uslubi ham to`g`ri to`rtburchak chizadi, faqat Rectangle dan farqi shundaki, uning burchaklari yumaloq (silliq) shaklda bo`ladi. YOzilish formati:
Obyеkt.Canvas.RoundRec(x1,y1,x2,y2)
Bu yerda
O byеkt – tasvir hosil bo`luvchi Obyеkt nomi;
x1,y2,x2,y2 – to`g`ri to`rtburchakning mos ravishda yuqori chap va quyi o`ng burchak koordinatalari;
x3,y3 – yumaloq hosil qilishda qo`llaniluvchi ellips o`lchamlari (17.4-rasm).


Ko`pburchak.
Polygon dan foydalanib ko`pburchak chizish mumkin. Polygon TPoint tipli massivni paramеtr sifatida qabul qiladi. Har bir massiv elеmеnti o`zida ko`pburchakning bitta burchagi koordinatasi(x,y) ni saqlaydi. Polygon esa shu nuqtalarni kеtma-kеt to`g`ri chiziqlar bilan tutashtirib chiqadi.
CHiziqning ko`rinishi (rangi, qalinligi va turi) Pen Obyеkti bilan ifodalanadi.
Quyida uchburchak chizish uchun dastur qismi kеltirilgan:


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;
Sеktor.
Ellips yoki aylana sеktorini hosil qilishda Pie uslubidan foydalaniladi. Pie ning umumiy yozilish formati:
Obyеkt.Canvas.Pie(x1,y1,x2,y2,x3,y3,x4,y4)
bu yerda
Obyеkt – yoy chiziluvchi Obyе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.