Delphining grafik imkoniyatlari

with form1.Canvas do
begin
// оси
MoveTo(l,b);LineTo(l,b-h);
MoveTo(x0,y0);LineTo(x0+w,y0);
TextOut(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3));
TextOut(l+5,b,FloatToStrF(yl,ffGeneral,6,3));
// grafikani qurish
x:=xl; repeat
y:=f(x);
Pixels[x0+Round(x*mx),y0-Round(y*my)]:=clRed;
x:=x+dx;
until (x >= x2);
end;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
GrOfFunc; end;
// oyna o’lchamlari o’zgardi
procedure TForm1.FormResize(Sender: TObject);
begin
// formani tozalash
forml.Canvas.FillRect(Rect(0,0,ClientWidth,
ClientHeight));
// grafikani qurish
GrOfFunc;
end;
end.
Asosiy ishni GrOfFunc protsedurasi bajaradi. Bu protsedura funksiyaning maksimal (y2) va minimal (y1) qiymatlarini [x1,x2] oraliqda hisoblab chiqadi. Keyin grafika chiquvchi sohaning kengligi (Forml.Clientwidth -40) va balandligi (Form1.ClientHeight - 40) haqidagi ma’lumotlardan foydalanib X (mx) va Y (my) o’qlar bo’yicha mas’shtabni hisoblaydi.
Grafik chiquvchi sohaning balandligi va kengligi formaning sarlavha satri va chegaralarini hisobga olmagan holda ishchi sohaning o’lchamlari bilan aniqlanadi. Mas’shtab hisoblanganidan keyin protsedura Y koordinata (y0) gorizontal o’qni hisoblaydi va grafikaning koordinatalar o’qini chizadi. Keyin bevosita grafika qurish bajariladi (10.10-rasm). GrOfFunc protsedurasiga onPaint va onFormResize hodisa protseduralariga murojaat qilinadi. Tform1.FormPaint protsedurasi dastur ishga yuklanish bilan ekranda forma hosil bo’lganidan keyin grafika chizilishini ta’minlaydi. Shuningdek, dastur ishlab turgan vaqtda boshqa oyna grafika ustida hosil qilinib, keyin o’chirilganda yoki siljitilganda grafikani ko’rinmay turgan qismlarini qayta hosil qilishni ta’minlaydi. Tform1.FormResiza protsedurasi forma o’lchami o’zgargandan keyin grafikani qayta chizishni ta’minlaydi.

10.10-rasm. GrOfFunc protsedurasi yordamida qurilgan grafika
keltirilgan dastur yetarlicha ommaviy (universal)dir. F(x) funksiyani o’zgartirib, ixtiyoriy funksiya grafigini chizish mumkin. Funksiyaning ko’rinishiga bog’liq ravishda uning grafigi butun ekran soxasida hosil bo’ladi.