Delphi Sources

Delphi Sources

 




 

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

 

. : Scrolling LED Signs : .

 

Delphi - Программа имитации прокручивающихся светодиодных вывесок, которые обычно можно увидеть в Burger King

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

В программе есть элементы управления, позволяющие пользователю устанавливать текст и шрифт сообщения, а также размер и цвет светодиода. Тип записи TLEDChar определяет один символ - он содержит целочисленную переменную Charwidth и двумерный динамический массив байтов (строки и столбцы изображения светодиода, где 0 = выключено, а 1 = включено). Массив Chars содержит записи TLEDChar для всех 256 возможных символов. Неопределенные символы можно идентифицировать по значению 0 CharWidth. Процедура LoadFont загружает массив Chars из файла шрифта, выбранного пользователем.

Символы создаются во временном растровом изображении, а затем копируются в TImage для отображения. Функция DrawLED генерирует указанный символ в растровом изображении, начиная с указанного места.

Как только светодиодное сообщение создано, Copyrect используется для его копирования в видимый TImage. Теперь нам нужно его прокрутить. Цикл используется для копирования самой правой части растрового изображения (из начальной позиции, которая увеличивается на 1 светодиод каждый раз) в крайнюю левую часть изображения. Затем не скопированная крайняя левая часть растрового изображения копируется в крайнюю правую часть изображения. Это создает иллюзию, что сообщение прокручивается влево.

Просмотры: 1 412
Дата: 05.07.2021, Автор: Gary Darby
Скачивания: 22
Написать сообщение:

 

 

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


 

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


Image Scrolling

TLedLevelDisplay

TSwitchLed

Installed Devices List

 

 


Форум по Delphi программированию - Ошибка базы данных

Кажется, произошла проблема с базой данных Форум по Delphi программированию.
Пожалуйста, попробуйте зайти снова, нажав на кнопку Обновить вашего браузера.

Нашей службе технической поддержке был послан email. Вы также можете написать им письмо, если проблема не решиться.

Извените за причинённые неудобства.