можно вот-так
Add(MainForm,1350592,140,175)
{
Width=1003
Height=322
Caption="Библиотека 7 школа"
BorderStyle=1
Position=1
link(onCreate,1412200:doEnum,[])
}
Add(Button,3908359,133,259)
{
Left=20
Top=250
Width=95
Caption="Сохранить"
link(onClick,4648286:doExecute,[])
}
Add(ArrayEnum,1412200,231,189)
{
link(onItem,9459787:doMTString,[])
link(onEndEnum,15435863:doColAction,[(284,202)(284,223)])
link(Array,5483496:Array,[])
}
Add(StrList,5483496,217,119)
{
Strings=#41:Учебник 9 класс;000025;Иванов;01.09.2013 |40:Учебник 7 класс;000074;Петров;01.09.2013|41:Учебник 10 класс;000213;Пупкин;01.09.2013|42:Учебник 9 класс;000025;Сидоров;01.09.2013 |41:Учебник 7 класс;000074;Абрамов;01.09.2013|44:Учебник 10 класс;000213;Филоненко;01.09.2013|45:Учебник 9 класс;000025;Слободянюк;01.09.2013 |42:Учебник 7 класс;000074;Васильев;01.09.2013|42:Учебник 10 класс;000213;Хоменко;01.09.2013|41:Учебник 9 класс;000025;Усатюк;01.09.2013 |42:Учебник 7 класс;000074;Медведев;01.09.2013|40:Учебник 10 класс;000213;Орлов;01.09.2013|
Point(doInsert)
}
Add(MTStrTbl,11546581,357,133)
{
Left=15
Top=15
Width=450
Height=215
Name="tab"
Columns=#7:Учебник|15:Номер в журнале|6:Ученик|4:Дата|0:|0:|0:|
Grid=0
}
Add(MST_RowAction,11319082,357,175)
{
MSTControl="tab"
}
Add(MT_String,9459787,301,175)
{
link(onResult,11319082:doRowAction,[])
}
Add(MST_ColAction,15435863,357,217)
{
Action=9
MSTControl="tab"
}
Add(MST_HTML,12336260,217,399)
{
TitleText="Библиотека 7-й школы"
TitleFont=[MS Sans Serif,10,1,0,1]
HeadFont=[MS Sans Serif,10,1,0,1]
NoteText="""
MSTControl="tab"
Point(HTMLTab)
link(onTabToHTML,8924692:doString,[])
}
Add(MST_Save,16413624,357,259)
{
FileName="mycsv.csv"
SaveColProp=1
MSTControl="tab"
}
Add(Button,5902944,322,406)
{
Left=405
Top=250
Caption="Печать"
link(onClick,11234646:doPrint,[])
}
Add(Button,6853432,133,399)
{
Left=325
Top=250
Width=70
Caption="Просмотр"
link(onClick,12336260:doTabToHTML,[])
}
Add(WebBrowser,11234646,385,371)
{
Left=475
Top=15
Width=500
Height=215
Point(doFromText)
Point(doPrint)
}
Add(SDialog,4648286,210,259)
{
Filter="Файлы Excel|*.csv"
link(onExecute,16413624:doSave,[])
}
Add(FormatStr,8924692,266,399)
{
Mask="<CENTER><img src="%1"></CENTER>\r\n<CENTER>\r\n%2\r\n</CENTER>"
link(onFString,11234646:doFromText,[])
link(Str1,3100728:Value,[])
}
Add(Memory,3100728,266,350)
{
}
Add(Button,11795119,133,350)
{
Left=145
Top=250
Width=115
Caption="Вставить картинку"
link(onClick,9526743:doExecute,[])
}
Add(ODialog,9526743,196,350)
{
Filter="Image|*.jpg;*.png;*.bmp;*.ico"
link(onExecute,3100728:doValue,[])
}