Вверх ↑
Ответов: 5126
Рейтинг: 578
#1: 2022-03-24 11:46:53 ЛС | профиль | цитата
Удалось таки нормально заставить работать потоки в FPC
Кто то вырезал низкоуровневые процедуры из системного модуля, пришлось пересобирать всё в отдельном.
Теперь такая схема работает отлично.

Add(MainForm,2953706,63,105)
{
Width=370
Height=360
}
Add(Button,2168206,140,105)
{
Left=15
Top=20
link(onClick,11191630:doEvent1,[])
}
Add(Memo,3686666,469,168)
{
Left=115
Top=30
Width=100
Height=275
AddType=1
ScrollBars=2
}
Add(Memo,2529294,469,105)
{
Left=240
Top=30
Width=100
Height=275
AddType=1
ScrollBars=2
}
Add(For,9637638,350,168)
{
End=500
link(onEvent,11662893:doWork2,[])
}
Add(Hub,11191630,203,105)
{
link(onEvent1,15209979:doStart,[])
link(onEvent2,5421242:doStart,[(249,118)(249,174)])
}
Add(Thread,15209979,280,105)
{
Delay=1
FastStop=0
link(onExec,12812207:doFor,[])
}
Add(For,12812207,350,105)
{
End=500
link(onEvent,7311804:doWork2,[])
}
Add(Thread,5421242,280,168)
{
Delay=1
FastStop=0
link(onExec,9637638:doFor,[])
}
Add(HubEx,7311804,406,105)
{
link(onEvent,2529294:doAdd,[])
}
Add(HubEx,11662893,420,168)
{
link(onEvent,3686666:doAdd,[])
}
Add(Label,15006110,63,154)
{
Left=15
Top=60
}
Add(Label,14465335,70,161)
{
Left=15
Top=85
}

карма: 5
0