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

•  DeLiKaTeS Tetris (Тетрис)  1 484

•  TDictionary Custom Sort  4 168

•  Fast Watermark Sources  3 854

•  3D Designer  5 941

•  Sik Screen Capture  4 119

•  Patch Maker  4 665

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

•  ListBox Drag & Drop  3 733

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

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

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

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

•  Canvas Drawing  3 605

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

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

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

•  Paint on Shape  1 975

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

•  Головоломка Paletto  2 161

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

 

 

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

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

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

 

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;).

Просмотры: 2 575
Дата: 13.07.2021, Автор: Gary Darby
Скачивания: 23

Комментарии пользователей:
Admin
30 ноября 2022
Заплатите 49 рублей и все скачается
   
Baetovva
30 ноября 2022
не скачивается
   

Написать сообщение:

 

 

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


 

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


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

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

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

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

 

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

 

© 2004-2024 "DS"

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