Add(MainForm,2953706,112,112)
{
Width=290
Height=292
Caption="О Б Ъ Ё М"
Point(onClose)
link(onCreate,11295149:doLoad,[])
link(onClose,3891818:doEnum,[(155,139)(155,202)])
}
Add(StringTable,11295149,182,105)
{
Left=5
Top=5
Width=265
Height=240
Font=[Courier New,11,1,0,204]
FileName="dvs.ini"
Columns=#14:Двигатель =110|17:Объём см.куб.=130|
Grid=0
ColumnClick=1
StaticColumn=0
Point(FileName)
Point(doSort)
Point(doSortDigit)
Point(onDblClick)
Point(onColumnClick)
Point(Strings)
link(onDblClick,200931:doData,[])
link(onColumnClick,11295149:doSortDigit,[(223,125)(223,166)(170,166)(170,153)])
}
Add(DoData,200931,252,112)
{
Data=String(;)
link(onEventData,11295149:doAdd,[(297,118)(297,94)(170,94)(170,111)])
}
Add(ArrayEnum,3891818,231,196)
{
link(onItem,4219608:doCompare,[])
link(onEndEnum,11295149:doSort,[(276,209)(276,244)(163,244)(163,146)])
link(Array,11295149:Strings,[(237,176)(202,176)])
}
Add(If_else,4219608,287,196)
{
Op1=String(;)
link(onTrue,2910356:doData,[])
}
Add(DoData,2910356,343,196)
{
link(onEventData,11295149:doDelete,[(383,202)(383,86)(163,86)(163,125)])
link(Data,3891818:Index,[(349,184)(332,184)(332,238)(244,238)])
}
Ответов: 16884
Рейтинг: 1239
|
|||
Леонид, ещё раз вернусь к теме Двигательобъём. А ведь можно решить и так с добавлением в список, удалением, сортировкой по названию или по объёму.
|
|||
карма: 25 |
|