Вверх ↑
Этот топик читают: Гость
Ответов: 2265
Рейтинг: 676
#31: 2022-08-21 12:03:06 ЛС | профиль | цитата
envoy_sky писал(а):
выдаёт ошибку
В архив попали устаревшие файлы (dpr и dll), обновил архив.

Редактировалось 1 раз(а), последний 2022-08-21 12:35:12
карма: 11

0
Ответов: 315
Рейтинг: 26
#32: 2022-08-21 12:27:40 ЛС | профиль | цитата
Проверил, ошибка исправлена
карма: 2
0
Ответов: 2265
Рейтинг: 676
#33: 2022-08-21 13:05:38 ЛС | профиль | цитата
Внесены изменения:
-Добавлена возможность изменять ширину линии при отрисовке сегментов контуром.
-Изменен первый пример.
-Внесены изменения в файл отрисовки для отображения в редакторе форм.
Текущая версия 2.53. Архив в первом посте обновлен.
карма: 11

1
Голосовали:tig-rrr
Ответов: 495
Рейтинг: 163
#34: 2022-09-22 22:00:54 ЛС | профиль | цитата
sla8a, привет, посмотри пожалуйста, если использовать LedNumberEx совместно с Label (свойство прозрачности вкл.) - моргает при перемещении окна. Kомпилятор d-----i

пример

Add(LedNumberEx,6293750,455,168)
{
Left=105
Top=110
Width=150
Height=30
Name="A"
Text="00.000"
ShowLines=0
DotSize=50
FonColor=-16777201
SegColor=255
NoSegColor=15000804
NoSegHover=12632256
Point(doText)
}
Add(Label,12077656,385,168)
{
Left=150
Top=60
Height=28
Font=[MS Sans Serif,14,0,0,1]
Transparent=0
AddHint(-4,47,37,13,Transparent)
}


Редактировалось 2 раз(а), последний 2022-09-23 14:33:46
карма: 4

0
Ответов: 2265
Рейтинг: 676
#35: 2022-09-23 11:34:56 ЛС | профиль | цитата
tig-rrr, посмотрю позже, но скорее всего это из той же оперы:
https://forum.hiasm.com/topic/60899/3
карма: 11

0
Ответов: 2265
Рейтинг: 676
#36: 2022-09-23 18:05:07 ЛС | профиль | цитата
tig-rrr, оказалось что проблема в отрисовке компонента. Стандартный LedNumber моргает также, а код был изначально из него. Изменил способ отрисовки, в логику изменений не вносил, достаточно будет заменить pas файл и желательно протестировать хорошенько. После обновлю архив в первом посте.
Pas файл для тестирования

Редактировалось 1 раз(а), последний 2022-09-23 18:08:03
карма: 11

0
Ответов: 495
Рейтинг: 163
#37: 2022-09-23 19:08:00 ЛС | профиль | цитата
sla8a,спасибо, теперь не моргает , еще одна тонкость осталась на примере хорошо видно.
пример

Add(MainForm,2953706,98,126)
{
Width=398
Height=160
Color=16777215
}
Add(LedNumberEx,8135338,210,126)
{
Left=180
Top=45
Width=150
Height=30
Name="V"
Text="00.000"
ShowLines=0
DotSize=50
FonColor=-16777201
SegColor=16711680
NoSegColor=15000804
SegHover=16711680
NoSegHover=12632256
Point(doText)
}
Add(Label,12068493,259,126)
{
Left=325
Top=54
Width=17
Height=28
Font=[Arial,16,1,16711680,204]
Caption="V"
}
Add(ChildForm,13781660,217,189)
{
}
BEGIN_SDK
Add(EditMulti,9505279,21,21)
{
Width=461
Height=277
}
Add(MainForm,14754099,77,119)
{
Left=35
Top=105
Width=362
Height=171
Color=16777215
}
Add(Label,15858110,147,126)
{
Left=65
Top=55
Width=196
Height=17
Font=[MS Sans Serif,12,0,0,1]
Transparent=0
Caption="включена прозрачность"
}
Add(VisualShape,2255569,294,126)
{
Left=310
Top=80
Width=10
Height=25
PColor=255
PWidth=2
ShapeType=2
Transparent=0
}
Add(LedNumberEx,854376,196,126)
{
Left=185
Top=45
Width=130
Height=30
Name="V"
Text="00.000"
ShowLines=0
DotSize=50
FonColor=-16777201
SegColor=16711680
NoSegColor=15000804
SegHover=16711680
NoSegHover=12632256
Point(doText)
}
Add(Label,14495243,245,126)
{
Left=310
Top=54
Width=17
Height=28
Font=[Arial,16,1,16711680,204]
Caption="V"
}
END_SDK
Add(Label,12949701,161,126)
{
Left=35
Top=50
Width=200
Height=24
Font=[MS Sans Serif,12,0,0,1]
Caption="выключена прозрачность"
}

Что интересно в FPC работает правильно...
Еще одна особенность Label если включена прозрачность и Visible - False, элемент все равно виден что-то с этой прозрачностью не то , в разных компиляторах ведёт себя элемент непонятно, может не трогать её , а пойти другим путём...

Редактировалось 3 раз(а), последний 2022-09-23 19:46:49
карма: 4

0
37
Сообщение
...
Прикрепленные файлы
(файлы не залиты)