Расчет арматурной сетки

[sermog]

Всем добрый день. Задача такая, нужно рассчитать вес сетки и т.д. и т.п. С данной задачей я справился (хоть и менеджер по продажам)) , но проблема для меня в следующем, нужно эту сетку нарисовать!
Заранее спасибо!

[СтудПом]

См. Canvas и операции рисования. И, кстати, мне кажется эту ерунду практичнее делать на HTML-JS.

[Heneken87]

  
procedure PaintForm(Sender: TObject); {событие OnPaint}
var
  PenWidth: Integer;
with {ЛЮБОЙ КОМПОНЕНТ с свойством Canvas  например Form} do 
  begin
    PenWidth := Canvas.Pen.Width;
    { Вертикаль лево }
    Canvas.MoveTo(0,0);
    Canvas.LineTo(0,Height);
     { Горизонталь верх }
    Canvas.MoveTo(0,0);
    Canvas.LineTo(Width,0);
    { Вертикаль право }
    Canvas.MoveTo(Width - 1,0);
    Canvas.LineTo(Width - 1,Height);
    { Горизонталь низ }
    Canvas.MoveTo(0,Height - 1);
    Canvas.LineTo(Width,Height - 1);
  end;
end;

[northener]

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

но проблема для меня в следующем, нужно эту сетку нарисовать!

Зачем это нужно? И какие требования к рисованию?
P.S. С недавних пор по воле начальства озаботился проектной документацией разного рода.

[Igor[Игорь]]

procedure TForm1.FormPaint(Sender: TObject);
var
  L, H: Integer;
  d1, d2: Integer;
  a, b: Integer;
  x, y, xn, yn: Integer;
  M: double;
begin
  L:=1000;
  H:=1000;
  d1:=5;
  d2:=5;
  a:=100;
  b:=100;

  M:=L / (Form1.Image1.Width-300);

  xn:=L div b;
  yn:=H div a;

  for x:=0 to xn do
  begin
    Form1.Image1.Canvas.MoveTo(round((x*a)/M)+10, 10);
    Form1.Image1.Canvas.LineTo(Round((x*a)/M)+10, Round((H)/M)+10);
  end;

  for y:=0 to yn do
  begin
    Form1.Image1.Canvas.MoveTo(10, round((y*b)/ M)+10);
    Form1.Image1.Canvas.LineTo(Round((L)/ M)+10, Round((y*b)/ M)+10);
  end;
end;