Деления на осях координатной плоскости

[Gamst]

Привет!
Пишу программу, которая рисует график. Примером взял вот это: http://www.cyberforum.ru/delphi-begi...ead122904.html
Получается в осях х и у нет никакого деления, как сделать что бы были деления?

[Rin]

canvas.TextOut(x, y, str) исправит положение.

[denisbrain]

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

canvas.TextOut(x, y, str) исправит положение.

на форме должен быть PaintBox1

// процедура перерисовки стрелки Cn:Tcanvas; - холст для рисования (Form1.canvas; Form1.Image1.Canvas)
// x1,y1 начало стрелки
// X2,y2 - конец стрелки
// fhs - длина стрелочки по умолчанию 25
// a - угол стрелки по умолчанию 30
Procedure DrawStrelka(Cn:Tcanvas;x1,y1,x2,y2:integer;fhs:integer=25;a:integer=30);
  var ugol:real;
begin
     Cn.MoveTo(x1,y1);
     Cn.LineTo(x2,y2);
     if (abs(x2-x1)+abs(y1-y2))>0 then begin
     if (x2-x1)<>0 then
     ugol:=arctan(((y2-y1)/((x2-x1))))
     else ugol:=pi/2;
     if x2-x1>0 then ugol:=ugol+pi;
     if (y2-y1>0) and ((x2-x1)=0) then ugol:=-pi/2;
     Cn.LineTo(round((x2+(cos(ugol-30*pi/180)*fhs))),round(y2+(sin(ugol-30*pi/180)*fhs)));
     Cn.MoveTo(x2,y2);
     Cn.LineTo(round((x2+(cos(ugol+30*pi/180)*fhs))),round(y2+(sin(ugol+30*pi/180)*fhs)));
  end;
end;
// фаункция перерисовки осей каординат
procedure DrawPole;
var x,y:integer;
begin
   cx:=form1.PaintBox1.Width div 2;
   cy:=form1.PaintBox1.Height div 2;

// рисуем  ось ординат  (Y)
   DrawStrelka(form1.PaintBox1.CANVAS,cx,form1.PaintBox1.Height-30,cx,10,10);
// рисуем  ось абсцисс (Х)
   DrawStrelka(form1.PaintBox1.CANVAS,0,cy,form1.PaintBox1.Width-30,cy,10);
   // деления между каординат
   form1.PaintBox1.CANVAS.TextOut(cx+5,cy+5,'0');
   for x:=0 to ((form1.PaintBox1.Width-30) div 10)-3 do begin
     form1.PaintBox1.CANVAS.MoveTo(x*10,cy-10);
     form1.PaintBox1.CANVAS.lineTo(x*10,cy+10);
     if x mod 5 = 0 then begin
       form1.PaintBox1.CANVAS.TextOut(x*10+2,cy-20,inttostr(x*10-cx));
       form1.PaintBox1.CANVAS.MoveTo(x*10,cy-15);
       form1.PaintBox1.CANVAS.lineTo(x*10,cy+15);

     end;
     // подписываем точки по Х

   end;
   for y:=0 to ((form1.PaintBox1.Height-30) div 10)-3 do begin
     form1.PaintBox1.CANVAS.MoveTo(cx-10,30+10*y);
     form1.PaintBox1.CANVAS.lineTo(cx+10,30+10*y);
    if y mod 5 = 0 then begin
     form1.PaintBox1.CANVAS.TextOut(cx+2,y*10,inttostr(cy-y*10));
     form1.PaintBox1.CANVAS.MoveTo(cx-15,30+10*y);
     form1.PaintBox1.CANVAS.lineTo(cx+15,30+10*y);
     end;

     // подписываем точки по Y
   end;

end;