гграфика в делфи

[ПИнасол]

не могу никак сравнять штрихи на 0 ,чтобы по х и у они совпадали
помогите плиз

Procedure TFormMaid.FormPaint(Sender: TObject);
Var i:integer;
Begin
     x0:=FormMaid.Width div 3;
     y0:=FormMaid.Height div 3;
     l:=FormMaid.Width div 21;
     r:=FormMaid.Width - FormMaid.Width div 3 - FormMaid.Width div 21;
     u:=FormMaid.Height div 22;
     d:=FormMaid.Height - FormMaid.Height div 3 - FormMaid.Height div 20;
    with FormMaid.Canvas do begin
          Moveto(l,y0);
          Lineto(r,y0);
          Moveto(x0,u);
          Lineto(x0,d);
          Moveto(r,y0);
          Lineto(r-FormMaid.Width div 50,y0+FormMaid.Height div 50);
          Moveto(r,y0);
          Lineto(r-FormMaid.Width div 50,y0-FormMaid.Height div 50);
          Moveto(x0,u);
          Lineto(x0-FormMaid.Width div 90,u+FormMaid.Height div 30);
          Moveto(x0,u);
          Lineto(x0+FormMaid.Width div 90,u+FormMaid.Height div 30);
          m:=15;
          k:=23;
          xs:=round((r-l)/(k+1));
          ys:=round((d-u)/(m+1));
          for i:=1 to k do begin
              Moveto(l+xs*i,y0+FormMaid.Height div 80);
              Lineto(l+xs*i,y0-FormMaid.Height div 80);
          end;
          for i:=1 to m do begin
              Moveto(x0-FormMaid.Width div 130,u+ys*i);
              Lineto(x0+FormMaid.Width div 130,u+ys*i);
          end;
          Textout(r-FormMaid.Width div 50,y0+FormMaid.Height div 50,'x');
          Textout(x0-FormMaid.Width div 50,u+FormMaid.Height div 50,'y');
          FormMaid.Canvas.Ellipse(round(5*l),round(2.8*l),round(x0+2*l),
              round(y0+1.36*l));
     end;
End;

[Rin]

Чтобы "уравнять штрихи" нужно плясать от начала координат и с постоянными расстояниями ставить эти самые "штрихи".
А можно уточнить - что за код такой интересный?

...
x0:=l+r*(DIV 3);
y0:=u+d*(div3);
...

Компилятор не ругает? div - это ведь бинарная операция.

[ПИнасол]

это моя опечатка забыл закомментировать , хотел сделать так чтобы делилось все на равные количество.
напиши код плиз не совсем понял что ты хочешь сделать

[Rin]

Если абсцисса и ордината делят форму на 4 квадрата, то так

var 
Tp:TPoint;
i:integer;
....
Form1.ClientWidth:=400;
Form1.ClientHeigth:=400;
Tp.x:=Form1.ClientWidth div 2;
Tp.y:=Form1.ClientHeigth div 2;
// с центра формы вниз
i:=Tp.x+20;
while i<=Form1.ClientHeigth do
begin
Canvas.MoveTo(i,Tp.y-5);
Canvas.LineTo(i,Tp.y+5);
i:=i+20;
end;
// с центра формы вверх
i:=Tp.x-20;
while i>=0 do
begin
Canvas.MoveTo(i,Tp.y-5);
Canvas.LineTo(i,Tp.y+5);
i:=i-20;
end;
// с центра формы влево
i:=Tp.y-20;
while i>=0 do
begin
Canvas.MoveTo(Tp.x-5,i);
Canvas.LineTo(Tp.x+5,i);
i:=i-20;
end;
// с центра формы вправо
i:=Tp.y+20;
while i<=Form1.ClientWidth do
begin
Canvas.MoveTo(Tp.x-5,i);
Canvas.LineTo(Tp.x+5,i);
i:=i+20;
end;