. : Программа укладки плитки : .

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

Программа была написана в 1992 году для создания макетных столешниц одного из проектов по деревообработке. Сланцевые плитки поставляются в коробках по 20 штук в размерах от 3х6 до 12х12 дюймов.

Программа позволяет пользователям определять набор доступных плиток и целевой размер итоговой таблицы. Шаблоны плиток таблицы генерируются случайным образом. Желаемые шаблоны можно сохранить в отдельном списке для последующего просмотра и печати. Наборы плиток можно сохранять и восстанавливать в текстовых файлах с расширением «.til».

Основные моменты

• HexStrToInt служит для преобразования шестнадцатеричных цветных строк обратно в целые числа. В Delphi есть функция IntToHex для создания шестнадцатеричных строк, однако они, похоже, забыли функцию обратного преобразования.
• GetNextBtnClick - это главная процедура, которая создает мозаичные узоры. Данная версия создает массивы доступных размеров плитки; затем в цикле она создает массив размеров тайлов, которые уместятся в любом пустом пространстве таблицы. Из подходящих плиток одна выбирается случайным образом, индикатор следующего пространства для заполнения обновляется и цикл продолжается.
• Если мы застряли, то есть не осталось плиток, соответствующих доступному пространству, мы просто сбрасываем все и начинаем заново.