Вверх ↑
Ответов: 2308
Рейтинг: 679
#1: 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;//добавить 
карма: 11

0