Delphining grafik imkoniyatlari

var
Forml: TForml;
implementation
f$R *.dfm}
// yulduzchani chizish
procedure StarLine(x0,y0,r: integer; Canvas: TCanvas);
// x0,y0 — yulduzcha markazining koordinatasi
//r — yulduzcha radiuasi
var
р : array [1.. 11] of TPoint;
// Uchli va botiq joylarning koordinatalari massivi
a: integer; // OX o’q bilan yulduzcha markazidan uchli yoki botiq joyining
//oxiriga o’tkaziluvchi to’g’ri chiziq orasidagi burchak
i: integer;
begin
а := 18;
for i:=l to 10 do begin
if (i mod 2=0) then begin // uchi (yulduzchaning baland nuqtalari)
p[i].x := x0+Round(r/2*cos(a*pi/180) ) ;
p[i] .y:=y0-Round(r/2*sin(a*pi/180) ) ;
end
else
begin // uchi
[i] .x:=x0+Round(r*cos (a*pi/180) ) ;
[i] .y:=y0-Round(r*sin(a*pi/180) ) ;
end;
a := a+36;
end;
p[ll].X := p[l].X; // yulduzcha konturlarini to’ldirish uchun
Canvas. Polyline (р) ; // yulduzcha chizish
end;
// Sichqoncha tugmasini bosilishi
procedure TForm1 . FormMouseDown (Sender : TObject; Button: TmouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft // chap tugma bosildimi?
then Form1. Canvas . Pen . Color : = clRed
else Form1. Canvas. Pen. Color := clGreen;
StarLine(x, y, 30, Forml. Canvas );
end;
end.

10.5-rasm. Yulduzcha
Aylana va ellips
Ellipse uslubi parametr qiymatlariga bog’liq holda ellips yoki aylana chizadi. Uslubdan foydalanishning umumiy ko’rinishi quyidagicha:
Ob’yekt.Canvas.Ellipse(x1,y1, х2,у2)
Bu yerda,

• 
  ob’yekt – ellipse chiziluvchi ob’yekt (komponent) ning nomi;
  
• 
  x1, y1, х2, у2 — ichida ellips chiziluvchi to’g’ri to’rtburchakning koordinatalari, agar kvadrat bo’lsa aylana chiziladi (10.6-rasm).