Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.02.2018, 18:28   #1
sermog
 
Регистрация: 14.03.2011
Сообщений: 9
По умолчанию Расчет арматурной сетки

Всем добрый день. Задача такая, нужно рассчитать вес сетки и т.д. и т.п. С данной задачей я справился (хоть и менеджер по продажам)) , но проблема для меня в следующем, нужно эту сетку нарисовать!
Заранее спасибо!
Изображения
Тип файла: jpg s1.jpg (99.9 Кб, 125 просмотров)
sermog вне форума Ответить с цитированием
Старый 25.02.2018, 10:00   #2
СтудПом
Форумчанин
 
Регистрация: 08.11.2017
Сообщений: 347
По умолчанию

См. Canvas и операции рисования. И, кстати, мне кажется эту ерунду практичнее делать на HTML-JS.
СтудПом вне форума Ответить с цитированием
Старый 25.02.2018, 18:03   #3
Heneken87
Форумчанин
 
Регистрация: 27.04.2012
Сообщений: 219
По умолчанию

Код:
  
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;
Пишу много и развернуто
Heneken87 вне форума Ответить с цитированием
Старый 26.02.2018, 02:13   #4
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,859
По умолчанию

Цитата:
Сообщение от sermog Посмотреть сообщение
но проблема для меня в следующем, нужно эту сетку нарисовать!
Зачем это нужно? И какие требования к рисованию?
P.S. С недавних пор по воле начальства озаботился проектной документацией разного рода.
northener вне форума Ответить с цитированием
Старый 27.02.2018, 02:23   #5
Igor[Игорь]
Пользователь
 
Аватар для Igor[Игорь]
 
Регистрация: 25.11.2011
Сообщений: 52
По умолчанию

Код:
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;
e-mail: igor23dec@yandex.ru , ICQ: 2168364 , Telegram: @IgorVN
Delphi, PHP
Примеры http://igorvn.ucoz.ru/
Igor[Игорь] вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Линии сетки Chuikov Microsoft Office Excel 1 08.07.2013 12:58
Скрытие заголовков и сетки segail Microsoft Office Excel 1 05.04.2010 05:22
рисование сетки GaLiof Помощь студентам 0 25.12.2009 17:59
Макрос-рисование сетки rzrwolf Microsoft Office Excel 3 03.01.2009 20:01