Кажется перепутаны комментарии к точкам в ini-файле StringTable (hiStringTable_003.zip)
По возможности, хотелось бы увидеть точку onChange.
1) У ListBox вон она есть, а чем StringTable хуже?
2) У StringTable есть onChangeStrLst, а onChange нету...
3) По счетчику Count контролировать изменние количества строк можно, конечно,
и обвески не много...
Для двух методов так:
Add(MainForm,16407501,175,315)
{
Left=20
Top=105
Width=607
Height=211
Position=1
link(onCreate,8218197:doWork3,[(291,356)])
}
Add(StringTable,9968574,315,210)
{
Left=80
Top=25
Width=395
Height=115
IconsCheck=[]
MiscIcons=[]
Icons=[]
Columns=#1:1|1:2|
StringsStrLst=#3:111|3:222|
AutoTblStrLst=0
Point(doInitTxtTab)
Point(doInsert)
Point(doLoadFStream)
Point(doMT_Add)
}
Add(Button,1517288,175,210)
{
Left=15
Top=25
Caption="doAdd"
Data=String(new;new)
link(onClick,9055412:doEvent1,[(222,216)(222,216)])
}
Add(HubEx,8218197,287,287)
{
link(onEvent,13316249:doData,[])
}
Add(Edit,7496807,483,294)
{
Left=485
Top=65
Width=110
Text="onChange"
}
Add(Check,13042707,371,294)
{
Caption="onChange"
link(onEvent,7496807:doText,[])
}
Add(Hub,9055412,231,210)
{
link(onEvent1,9968574:doAdd,[(299,216)(299,216)])
link(onEvent2,8218197:doWork1,[(291,223)])
}
Add(ChangeMon,13316249,315,294)
{
Data=Integer(0)
link(onData,13042707:doWork,[])
link(Data,9968574:Count,[(321,278)(321,278)])
}
Add(Button,6052601,176,259)
{
Left=15
Top=50
Caption="doClear"
link(onClick,7492367:doEvent1,[])
}
Add(Hub,7492367,231,259)
{
link(onEvent1,9968574:doClear,[(303,265)(303,223)])
link(onEvent2,8218197:doWork2,[(276,272)(276,300)])
}
Только самих методов, затрагивающих количество строк, удвоилось, как минимум...