Add(MainForm,13127573,210,224)
{
 Width=970
 Height=632
 link(onCreate,16428629:doEvent1,[])
}
Add(SQLite_DB,7096009,343,238)
{
 FileName="elementsdelphielements.db"
 link(onOpen,16569659:doValue,[])
}
Add(GlobalVar,16569659,399,238)
{
 Name="dbHandle"
}
Add(GlobalVar,9211588,392,315)
{
 Name="dbHandle"
}
Add(SQLite_Query,6201095,392,343)
{
 SQL="SELECT * FROM elements ;"
 link(onQuery,3664807:doAddRow,[])
 link(onColumns,3664807:doAddCols,[])
 link(dbHandle,9211588:Var,[])
}
Add(Hub,8199579,343,287)
{
 OutCount=4
 link(onEvent2,5639258:doClear,[])
 link(onEvent3,6201095:doQuery,[(370,307)(370,349)])
 link(onEvent4,15735357:doColAction,[(365,314)(365,398)])
}
Add(Hub,16428629,315,238)
{
 link(onEvent1,7096009:doOpen,[])
 link(onEvent2,8199579:doEvent1,[(333,251)(333,293)])
}
Add(MTStrTbl,4694401,483,238)
{
 Left=670
 Top=495
 Align=5
 Font=[Courier,8,0,0,204]
 Name="tab"
 ColDelimiter="$"
 Grid=0
}
Add(MST_Clear,5639258,483,294)
{
 ClearAll=0
 MSTControl="tab"
}
Add(MST_DB,3664807,483,343)
{
 MSTControl="tab"
}
Add(MST_ColAction,15735357,483,392)
{
 Action=9
 Index=-1
 MSTControl="tab"
}

AutoColWidth - IndexCol (-1 - AllColumns)

*onBeforeLineChange=Событие происходит всякий раз перед редактированием строки в списке и выдает эту строку в поток|2|0

procedure ThiMTStrTbl._OnBeforeLineChange;
begin
  _hi_OnEvent(_event_onBeforeLineChange, Idx);
end;

procedure THIStringTable._OnBeforeLineChange;
begin
   _hi_OnEvent(_event_onBeforeLineChange,Idx);
end;

procedure THIStringTable._OnLineChange;
begin
   _hi_OnEvent(_event_onLineChange,Idx);
end;