Нарисовать чертеж в Delphi

[min@y™]

Я прямоугольник только могу нарисовать

почему?

чтобы там сразу вписывались размеры не знаю как сделать.

Если рисуешь на TCanvas, - только вручную.

[Fahman]

Сообщение от min@y™

почему?

Если рисуешь на TCanvas, - только вручную.

Пока только прямоугольники научился.
Ну а в ручную, я не совсем не пойму что вы имеете ввиду. яснее можно?

[min@y™]

что вы имеете ввиду. яснее можно?

всё остальное (отверстия, осевые, текст) рисуй так же, как и прямоугольники. кстати, покажи, как ты это делаешь.

[Fahman]

Сообщение от min@y™

всё остальное (отверстия, осевые, текст) рисуй так же, как и прямоугольники. кстати, покажи, как ты это делаешь.

Прямоугольник так

Image1.Canvas.Brush.Color := clRed;
  Image1.Canvas.Rectangle(10, 10, StrToInt(Edit2.Text), StrToInt(Edit1.Text));

ну можно и не закрашивать его.
круг кстати тоже нарисовал там где нужно, но как добавить линии с размерами пока не знаю.

[phomm]

Я бы рисовал в акаде через ОЛЕ-автоматизацию, попутно получая файл чертежа "на руки" (который можно потом раздать куда надо), а если надо, в своей программе можно отобразить через встроенный в рабочую область ОЛЕ-объект (подобно тому, как эксель-таблицы в ворд встраиваются), или, на крайняк - запрашивать у акада холст на текущий вьюпорт открытого в памяти чертежа и рисовал его канвасом.
Рисовать ручками в канвасе - тру велосипед. Ну, может быть, кроме случая, когда Вам не надо в реальном производстве по ЕСКД работать, и достаточно наколенного растра.

[min@y™]

Я бы рисовал в акаде через ОЛЕ-автоматизацию, попутно получая файл чертежа "на руки"

Ты кому это пишешь-то? Посмотри, чел не в состоянии простейшую хрень ака "палка-палка-огуречик" на канвасе нарисовать, а ты ему чо?!

но как добавить линии с размерами пока не знаю.

Открой справку по TCanvas, там все методы описаны, ёмаё.

[Fahman]

Вроде разобрался. Осталось одна проблемка...
код

Image1.Canvas.Ellipse(30,30,StrToInt(Edit3.Text),StrToInt(Edit4.Text));

Это я рисую круг, в Edit3 и Edit4 задаю параметры Y,X но почему то это работает, за места того чтобы делать отступы он принимает как параметры Элипса, в чем проблема?
пробовал менять даже

Image1.Canvas.Ellipse(StrToInt(Edit3.Text),StrToInt(Edit4.Text),30,30);

рисует одно и то же

[min@y™]

в чем проблема?

тут нет проблемы. всё правильно.

[Fahman]

Сообщение от min@y™

тут нет проблемы. всё правильно.

и я об этом. так и так делаю всеравно один результат....

[min@y™]

Ты английский язык не знаешь, да?