Add(MainForm,4636594,140,266)
{
Width=690
Height=430
}
Add(TreeViewTrain,4303500,322,210)
{
Width=311
Height=392
Align=1
Font=[Arial,8,1,0,204]
WinStyle=2
Name="stgtree"
Layout="grid"
HeightScale=100
ModeSp=3
SizeSp=2
Tooltips=0
IconsManager="icons"
DragDrop=0
CaptionIndex=3
IDIndex=1
IconIndex=2
Numeric=0
Point(NextID)
Point(doExpand)
Point(onDrop)
Point(DropAccept)
Point(onMouseDown)
Point(onDblClick)
Point(doCollapse)
Point(Handle)
Point(doExpandNode)
Point(doSort)
Point(onKeyDown)
Point(doExpandToggle)
link(onClick,6728012:doSeparateMT,[])
}
Add(SStorage_DS,6540375,182,210)
{
Name="sstg"
Point(onError)
link(onOpenStorage,634141:doEvent1,[])
}
Add(STG_Enumerator,6644416,322,266)
{
SStorage_DS="sstg"
Point(onEndEnumAll)
link(onEnumAllElements,10415196:doAddNode,[])
}
Add(TVT_AddNode,10415196,364,266)
{
TreeView="stgtree"
}
Add(Hub,634141,231,210)
{
OutCount=3
link(onEvent1,4303500:doClear,[])
link(onEvent2,6644416:doEnumAllElements,[(259,223)(259,272)])
link(onEvent3,14789619:doData,[(255,230)(255,237)])
}
Add(Button,13267466,98,210)
{
Left=435
Top=365
Width=120
TabOrder=-1
Layout="grid"
Caption="Load"
link(onClick,16479320:doExecute,[])
}
Add(ODialog,16479320,140,210)
{
Filter="Файлы Excel (*.xls)|*.xls"
Title="Диалог выбора"
FileName=""
link(onExecute,6540375:doOpenStorage,[])
}
Add(MT_MultiData,6728012,364,210)
{
From=1
Count=1
link(onData1,2102961:doItemPath,[])
}
Add(TVT_ItemPath,2102961,406,210)
{
TreeView="stgtree"
link(onItemPath,346256:doExtractFileFrom,[])
}
Add(STG_ExtractFileFrom,346256,448,210)
{
SStorage_DS="sstg"
link(onExtractFileFrom,5132769:doConvert,[])
}
Add(Memo,740361,532,189)
{
Left=315
Width=355
Height=360
Layout="grid"
WidthScale=100
ScrollBars=2
}
Add(DoData,14789619,266,231)
{
Data=Integer(1)
link(onEventData,4303500:doExpandNode,[])
}
Add(Stream2Hex,5132769,490,210)
{
Mode=4
link(onResult,740361:doText,[])
}
Разработчик
Ответов: 26163
Рейтинг: 2127
|
|||
Quest, файлы xls старой версии -- это структуированное хранилище
|
|||
карма: 22 |
|