Недавно добавленные исходники

•  3D Designer  829

•  Sik Screen Capture  571

•  Patch Maker  513

•  Айболит (remote control)  627

•  ListBox Drag & Drop  464

•  Доска для игры Реверси  8 587

•  Графические эффекты  560

•  Рисование по маске  441

•  Перетаскивание изображений  486

•  Canvas Drawing  487

•  Рисование Луны  379

•  Поворот изображения  259

•  Рисование стержней  314

•  Paint on Shape  189

•  Генератор кроссвордов  247

•  Головоломка Paletto  225

•  Теорема Монжа об окружностях  270

•  Пазл Numbrix  185

•  Заборы и коммивояжеры  302

•  Игра HIP  204

 

 

Архив исходников

   
  Базы данных
  Графика & Мультимедиа
  Сети & Интернет
  Система
  Разное
   

Ссылки и Баннеры ...

 

Delphi Sources

Delphi Sources

 




 

ИСХОДНИК ПРОГРАММЫ

 

. : Рисование стержней : .

 

Delphi - Компонент, упрощающий отображение вариантов раскроя отрезков заданной длины

Исходник программы, показывающей пример того, как найти наилучший способ вырезать набор деталей необходимой длины из набора имеющихся на складе деталей указанной длины. В зависимости от области применения заготовка может представлять собой пиломатериалы, трубы, проволоку, рулоны материала для резки и т.д.

Особенности исходника

  • Рисование на холсте TImage: В течение многих лет я думал, что свойства высоты и ширины Picture.Bitmap должны быть установлены, прежде чем мы сможем рисовать на холсте изображения. Это больше не так. Если вы используете свойство TImage Canvas, ссылки на TImage.Canvas вызывают GetCanvas, который проверяет (и при необходимости устанавливает) Picture.Bitmap.Height и Width.
  • Команда arc: для рисования стержня используется процедура Arc свойства Canvas изображения. Дуга требует 8 целочисленных параметров для определения части эллипса, которую нужно нарисовать. Это четыре набора координат (X, Y). Два набора определяют верхнюю левую и нижнюю правую границы эллипса. Два других набора определяют конечные точки двух воображаемых линейных сегментов от центра эллипса до точек на эллипсе или за его пределами. Точки пересечения этих линий с эллипсом определяют начальную и конечную точки дуги, всегда нарисованной против часовой стрелки.
  • Добавление записей в Scrollbox: это было для меня в новинку. Элемент управления TScrollBox может увеличивать свой виртуальный размер по вертикали по мере необходимости для размещения размещенных на нем объектов. По сути, поле прокрутки становится окном в виртуальной области, которое перемещается вниз при прокрутке вверх и вверх при прокрутке вниз. Однако вертикальные координаты для элементов, вставленных в TScrollbox, относятся к текущей вершине этого окна (свойство Position вертикальной полосы прокрутки). Так, например, чтобы переместить панель в позицию 1000, нам нужно вычесть текущее значение VertScrollBar.position (bottom := 1000 - vertscrollbar.position;).

Просмотры: 314
Дата: 13.07.2021, Автор: Gary Darby
Написать сообщение:
 

 

 

Скачать (8 Кб)   ↓ 7   Регистрация >>


 

Похожие исходники


Рисование кривой звука

Рисование математических формул

Рисование компаса

Рисование Луны

 

Рисование по маске

 

© 2004-2021 "DS"

Соглашение пользователя / Реклама / Карта сайта             Created by BrokenByte Software