Вверх ↑
Ответов: 1327
Рейтинг: 30
#1: 2022-05-28 22:37:27 ЛС | профиль | цитата
flint2 писал(а):
А ты что, в одинаре его используешь?
А если репу почесать?...

Всё уже решено, до того, как зародились мамонты, а HiAsm - это только одна из проекций.
На вечный двигатель заявки давно не принимаются.
Может стоит посмотреть, что не ладно в Вашем королевстве?


......


а чё не работает, а кто ошибся с точками??, почему точка называется onSelect а не onClick????, в описании же написано про клик....
Add(MainForm,2953706,119,126)
{
link(onCreate,720251:doRead,[])
}
Add(ChanelToIndex,11705371,504,140)
{
Count=4
link(onIndex,720251:doWrite,[(564,146)(564,73)(212,73)(212,153)])
}
Add(IndexToChanel,328290,371,140)
{
Count=4
Point(Index)
Point(Data)
link(onEvent1,8303004:doSelect,[(419,146)(419,125)])
link(onEvent2,12026675:doSelect,[(419,153)(419,160)])
link(onEvent3,12742712:doSelect,[(419,160)(419,195)])
link(onEvent4,2198198:doSelect,[(419,167)(419,230)])
link(Index,7151283:Value,[(377,128)(325,128)(325,184)(272,184)])
link(Data,11625228:Value,[])
}
Add(Ini,720251,224,140)
{
FileName="cfg"
Section="cfg"
Key="pos"
link(onResult,7151283:doValue,[])
}
Add(RadioButton,8303004,434,119)
{
Left=25
Top=15
Width=20
Caption=""
link(onSelect,11705371:doWork1,[(485,125)(485,146)])
}
Add(RadioButton,12026675,434,154)
{
Left=45
Top=15
Width=20
Caption=""
link(onSelect,11705371:doWork2,[(485,160)(485,153)])
}
Add(RadioButton,12742712,434,189)
{
Left=25
Top=35
Width=20
Caption=""
link(onSelect,11705371:doWork3,[(485,195)(485,160)])
}
Add(RadioButton,2198198,434,224)
{
Left=45
Top=35
Width=20
Caption=""
link(onSelect,11705371:doWork4,[(485,230)(485,167)])
}
Add(Memory,11625228,378,98)
{
Default=Integer(1)
}
Add(Memory,7151283,266,140)
{
link(onData,8684092:doTimer,[])
}
Add(Timer,8684092,315,140)
{
Interval=1
Enable=1
AutoStop=1
link(onTimer,328290:doEvent,[])
}

а вот если сделать правку, то всё отлично работает и никому не мешает...

procedure THIRadioButton._work_doSelect;
begin
if ReadBool(_Data) then
SendMessage(Control.Handle,BM_CLICK,0,0)
else
Control.Checked := false;
_hi_OnEvent(_event_onSelect);
end;
карма: 2

0
Редактировалось 1 раз(а), последний 2022-05-28 22:38:11