Вверх ↑
Этот топик читают: Гость
Ответов: 1988
Рейтинг: 633
#1: 2018-12-08 22:52:48 ЛС | профиль | цитата
Элемент LedNumberEx это доработка штатного элемента LedNumber (находится в вкладке: Интерфейс\Графические). Элемент отображает цифровое табло. Доработка не должна сказаться на совместимости, так что можно будет при желании заменить штатный.
Добавлено:
1. Изменена отрисовка цифр.
2. Округление углов.
3. Наклон цифр.
4. Отрисовка контура цифр.
5. Отступ от краев.
6. Интервал между цифрами.
7. Возможность сократить занимаемую ширину знаками препинания.
8. Автоматическое подстраивание ширины элемента под ширину текста.
9. Возможность рисования на циферблате. Используя элементы из вкладки Графика можно к примеру добавить рамку, фон или добавить графический эффект.
10. Отображение в Редакторе форм.

Скриншот часов с дорисовкой элементами Графика (пример в архиве)
Примеры цифрового табло

Для отображения элемента в Редакторе форм можно проделать:

Способ 1 (самый простой):
В HiAsm в папку \Elements\delphi\draw\ положить файл LedNumberEx.dll(есть в архиве).


Способ 2:
1. В HiAsm в папку \Elements\delphi\draw\ положить файл LedNumberEx.dpr
2. В файл \Elements\delphi\draw\make.bat добавить строку:
..\..\..\compiler\delphi\dcc32.exe -U..\..\..\compiler\delphi LedNumberEx.dpr

3. Запустить make.bat (появится консольное окно), в папке должен будет появится LedNumberEx.dll.
Вид LedNumberEx в Редакторе форм

В архиве файлы элемента (pas, ini, ico), файлы для отображения в редакторе форм (dpr, dll), плюс два примера (sha): скачать архив (10-12-2018)

Элемент в стадии доработки.

Идея доработки не моя.

Редактировалось 14 раз(а), последний 2018-12-15 15:08:21
карма: 9

4
Голосовали:Galkov, andrestudio, Tad, flint2
vip
#1.1контекстная реклама от партнеров
Разработчик
Ответов: 25687
Рейтинг: 2088
#2: 2018-12-08 23:18:14 ЛС | профиль | цитата
sla8a писал(а):
так что можно будет при желании заменить штатный

Вот не стоит менять штатный. Есть приставка Ex, вот пусть и будет Ex, у нас даже вкладка отдельная для этого есть. Если народу понравится, то тогда подумаем о добавлении.

Редактировалось 1 раз(а), последний 2018-12-08 23:19:00
карма: 20

0
Ответов: 1988
Рейтинг: 633
#3: 2018-12-08 23:27:14 ЛС | профиль | цитата
nesco писал(а):
Вот не стоит менять штатный
Не так выразился, имелось в виду не замена в самом HiAsm, а в проекте (в sha файле). Так то и стоит приставка Ex.

Дабы не создавать новой темы. Была выловлена ошибка у штатного LedNumber.

Add(MainForm,2953706,371,266)
{
link(onCreate,8796146:doData,[])
}
Add(DoData,8796146,427,280)
{
Data=Integer(0)
link(onEventData,13136908:doWidth,[])
AddHint(0,-24,21,13,Data)
}
Add(LedNumber,13136908,476,273)
{
Left=565
Top=270
Point(doText)
Point(doWidth)
}
Вылечить можно так:

procedure ThiLedNumberEx.UpdateDrawBuffer;
..
..
..
begin
with Control{$ifndef F_P}^{$endif} do begin
if (height = 0) or (width = 0) then exit;//добавить
карма: 9

0
Ответов: 16884
Рейтинг: 1237
#4: 2018-12-08 23:46:18 ЛС | профиль | цитата
sla8a писал(а):
так что можно будет при желании заменить штатный.
Я уже давно заменил на штатную ... Label.

Просто применяю LCD-шрифт.
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1988
Рейтинг: 633
#5: 2018-12-09 00:09:42 ЛС | профиль | цитата
Так Tad-у как штатный так и этот не нужн. Вычеркиваем. Еще есть те кому не нужен? Желательно что бы все отписались кому не нужно.
карма: 9

0
Ответов: 16884
Рейтинг: 1237
#6: 2018-12-09 00:22:02 ЛС | профиль | цитата
sla8a писал(а):
Вычеркиваем
Ну-ну. Я за! А Label применяю не от хорошей жизни, а от топорного отображения цифр штатным LedNumber.
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1988
Рейтинг: 633
#7: 2018-12-09 00:28:01 ЛС | профиль | цитата
Tad писал(а):
топорного отображения цифр штатным LedNumber
Вот и мне сказали что на дверь похоже.
карма: 9

0
Разработчик
Ответов: 25687
Рейтинг: 2088
#8: 2018-12-09 01:18:11 ЛС | профиль | цитата
Tad писал(а):
Просто применяю LCD-шрифт

Не поделишься, случаем?
карма: 20

0
Ответов: 16884
Рейтинг: 1237
#9: 2018-12-09 05:33:07 ЛС | профиль | цитата
nesco писал(а):
Не поделишься, случаем?
http://forum.hiasm.com/getfile/38535
http://allfont.ru/

--- Добавлено в 2018-12-09 06:07:15

sla8a,
@OutLine=Обводить сегменты синией|14|1|True,False
если я не ошибаюсь, это по русски
@OutLine=Контурное отображение сегментов|14|1|True,False
А иконкой от старого LedNumber-а сражен наповал. (и правда - на двери похоже)

Редактировалось 5 раз(а), последний 2018-12-09 06:29:44
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
файлы: 15168022.rar [8.1KB] [290]
Голосовали:sla8a
Ответов: 4744
Рейтинг: 530
#10: 2018-12-09 08:28:57 ЛС | профиль | цитата
Tad писал(а):
А иконкой от старого LedNumber-а сражен наповал

И кто мешает новую нарисовать и предложить? Во-во тут разве поглумится можно над этим...

можно ваще не выкладывать результаты своих трудов нахаляву, народу ведь уже и иконку нарисовать влом. Свежо в памяти как одному челу цветомузыку склепал, а он типа "Ну не художник Я!"
карма: 6
0
Ответов: 1988
Рейтинг: 633
#11: 2018-12-09 15:32:26 ЛС | профиль | цитата
1. Изменил иконку.
2. Добавлены файлы dll и dpr для отображения элемента в Редакторе форм.
3.
Tad писал(а):
@OutLine=Контурное отображение сегментов14|1|True,False

Архив с обновленными файлами в первом посте.

Редактировалось 2 раз(а), последний 2018-12-10 02:07:37
карма: 9

0
Разработчик
Ответов: 25687
Рейтинг: 2088
#12: 2018-12-15 14:45:13 ЛС | профиль | цитата
Ну че, добавлять будем? Если будем, то иконку надо бы сменить, чтобы не путался со штатным. В принципе, штатный я могу закрыть

Редактировалось 1 раз(а), последний 2018-12-15 14:46:13
карма: 20

0
Ответов: 16884
Рейтинг: 1237
#13: 2018-12-15 14:53:05 ЛС | профиль | цитата
Я за "Добавить!".
Штатный скрыть.
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1988
Рейтинг: 633
#14: 2018-12-15 15:07:26 ЛС | профиль | цитата
Рано еще, идет тестирование. Последняя версия не выложена (вносил некоторые дополнения). Иконка уже обновлена (можно посмотреть в архиве). О чем собственно и писал выше:
sla8a писал(а):
1. Изменил иконку.


Редактировалось 2 раз(а), последний 2018-12-15 15:13:10
карма: 9

0
Ответов: 1892
Рейтинг: 165
#15: 2018-12-16 19:34:34 ЛС | профиль | цитата
nesco писал(а):
Tad писал(а):
Просто применяю LCD-шрифт

Не поделишься, случаем?


Tad писал(а):
http://forum.hiasm.com/getfile/38535


А вот с поддержкой кириллицы: http://forum.hiasm.com/getfile/38546
карма: 8
0
файлы: 1a_LCDNova Regular.rar [10.6KB] [300]
15
Сообщение
...
Прикрепленные файлы
(файлы не залиты)