[inferno mf]

Помогите найти ошибку в отображении графика...

В TChart он отображается нормально (1-ая картинка)

В Timage он отображается не полностью... виден только низ графика. (2-ая картинка)





Вот код, где выводится график и строится координатная сетка:

Код:

with Image1.Canvas do
  begin
   Brush.Color := clWhite;
   FillRect(Rect(0,0,450,322));
   Pen.Color:=clBlack;
   xmax:=Image1.Width;
   ymax:=Image1.Height;
   yo:=ymax div 2;
   hx1:=round(xmax / xomax);
   hy2:=round(ymax / abs(yomin));

   MoveTo(0,0);
   LineTo(xmax,1);
   MoveTo(0,0);
   LineTo(1,ymax);

  for i:=0  to round(xomax) do
   begin
    TextOut(round(i * (hx1-3))+2, 5, IntToStr(i));
    MoveTo(round(i * (hx1-3))+2 ,0);
    LineTo(round(i * (hx1-3))+2,round(ymax));
   end;
  for i:=1 to round(abs(yomin)) do
   begin
     TextOut(5, round(i * hy2)-10, IntToStr(-i));
     MoveTo(0, round(i * hy2)-3);
     LineTo(round(xmax),round(i * hy2)-3);
   end;


   Pen.Color:=clRed;
   Pen.Width:=2;
   hx:=(xomax - xomin)/xmax;
   hy:=(yomax - yomin)/ymax;
   h:=(xk - xn)/ (m-1);
   x:=xn;
   y:=f1(x);
    MoveTo(Round(x/hx), Round(yo/1000000 - y/hy));
   for i:=1 to m do
    begin
     x:=x + h;
     y:=f1(x);
     LineTo(Round( x/hx),Round(yo/1000000 -  y/hy));
    end;
  end;

Admin: Учимся пользоватеться тегами для оформления кода!

[NIch]

Может с масштабом что-то напутал))) Точнее не масшабировал...

[inferno mf]

Сообщение от NIch

Может с масштабом что-то напутал))) Точнее не масшабировал...

вполне возможно...но не знаю в чем может быть проблема