что-то плохо вставилось, и текст после схемы отрезало..
воть кусок схемы для страниц
Add(MainForm,15717611,98,273)
{
Left=20
Top=105
Width=327
Height=379
Point(onClose)
link(onCreate,3498104:doEvent1,[])
link(onClose,14138561:doSave,[])
}
Add(TabControl,4227473,434,182)
{
Left=10
Top=35
Width=300
Height=240
Bitmaps=[]
Point(PageDelete)
Point(Index)
Point(CurTabIndx)
Point(CurTabCaption)
}
Add(Button,13712691,105,182)
{
Left=5
Top=5
Width=80
Caption="+++ Add +++"
link(onClick,2290450:doEvent1,[])
}
Add(Button,5981520,315,273)
{
Left=160
Top=5
Width=90
Caption="--- Del --"
link(onClick,7270542:doEvent1,[])
}
Add(Edit,11015506,336,119)
{
Left=90
Top=5
Text=""
}
Add(HubEx,4373468,406,175)
{
link(onEvent,4227473:PageInsert,[])
}
Add(Hub,2290450,154,182)
{
OutCount=3
link(onEvent1,3305073:doData,[])
link(onEvent3,14138561:doAdd,[(201,202)(201,265)])
}
Add(Hub,3498104,161,287)
{
OutCount=3
link(onEvent1,14138561:doLoad,[])
link(onEvent3,2927700:doEnum,[(219,307)(219,328)])
}
Add(StrList,14138561,238,259)
{
FileName="список страниц.txt"
Point(doGetIndex)
Point(onGetIndex)
link(Str,16317198:Var1,[(244,170)])
link(onGetIndex,14138561:doDelete,[(282,272)(282,276)(226,276)(226,279)])
}
Add(ArrayEnum,2927700,252,322)
{
link(onItem,4373468:doWork3,[(410,328)])
link(Array,14138561:Array,[])
}
Add(DoData,3305073,336,182)
{
link(onEventData,4373468:doWork2,[])
link(Data,16317198:Var2,[])
}
Add(DoData,10220892,441,280)
{
link(onEventData,4227473:PageDelete,[(500,286)(500,218)(422,218)(422,195)])
link(Data,4227473:CurTabIndx,[])
}
Add(Hub,7270542,364,273)
{
link(onEvent1,11110410:doData,[(422,279)(422,244)])
link(onEvent2,10220892:doData,[])
}
Add(DoData,11110410,448,238)
{
link(onEventData,14138561:doGetIndex,[(490,244)(490,365)(228,365)(228,307)])
link(Data,4227473:CurTabCaption,[])
}
Add(GetDataEx,16317198,329,161)
{
link(Data,11015506:Text,[])
}