Delphining grafik imkoniyatlari

with forml.Canvas do begin
cross:=dcross;
MoveTo(x0,v0); LineTo(x0,y0-h); // X o’q
MoveTo(x0,y0); LineTo(x0+w, y0); // Y o’q
x:=x0+dx;
lx:=dlx;
repeat
MoveTo(x,y0-3);LineTo(x,yO+3); // kesik chiziq
cross:=cross-1;
if cross = 0 then // raqamlash
begin
TextOut(x-8,y0+5,FloatToStr(lx));
cross:=dcross ;
end;
Pen.Style:=psDot;
MoveTo(x,y0-3);LineTo(x,y0-h); // to’r chizig’i
Pen.Style:=psSolid;
lx:=lx+dlx;
x:=x+dx;
until (x>x0+w);
// kesik chiziqlar, y o’qi bo’yicha to’r va raqaml
y:=y0-dy;
ly:=dly;
repeat
MoveTo(х0-3,у);LineTo(х0+3,у); // kesik chiziq
TextOut(х0-20,у,FloatToStr(1у)); // raqam
Pen.Style:=psDot;
MoveTo(х0+3,у); LineTo(x0+w,у); // to’r chizig’i
Pen.Style:=psSolid;
y:=y-dy;
ly:=ly+dly; until (yend;
end;
end.
Keltirilgan dasturning axamiyatli tomoni shundaki, bu yerda to’r va raqamlash qadamlarini berish mumkin. Bundan tashqari, to’rning X o’qi bo’yicha xar bitta chizig’ini emas, balki bitta, ikkita va x.k. ta oralatib raqamlash imkonini beradi.
Siniq chiziq.
PolyLine uslubi siniq chiziq chizadi. Uslub parametr sifatida Tpoint tipidagi massivni oladi. Massivning xar bir elementi siniq chiziqning xar bir sinish nuqtasining koordinatasi X, Y dan tashkil topadi. PolyLine massivda joylashgan koordinatalarni ketma-ket to’g’ri chiziq bilan tutashtirib chiqadi. PolyLine uslubiga misol qilib 10.3-listingni ko’rishimiz mumkin.
10.3-listing.
10.3-listing. Funksiya grafigi (Polyline uslubidan foydalanish)
procedure TForml.Button1Click(Sender: TObject);
var
gr: array[1..50] of TPoint; // grafik — siniq chiziq
x0,y0: integer; // koordinata boshining nuqtasi
dx,dy: integer; // to’rning X va Y o’qlari bo’yicha qadam
i: integer; begin
х0 := 10; у0 := 200; dx :=5; dy := 5;
// gr massivni to’ldiramiz