Вверх ↑
Ответов: 2059
Рейтинг: 132
#1: 2016-02-21 01:22:32 ЛС | профиль | цитата
[flood]Наконец то добрался.[/flood]
Когда не выбран массив строк, то сортировка по столбцу в левой таблице.
Когда выбрано несколько строк, то сортируется по выбранному столбцу и переносится в правую таблицу. (сделано по убыванию - для баллов).
Add(MainForm,2953706,357,287)
{
Width=787
Height=627
link(onCreate,790530:doEnum,[])
}
Add(StrList,2732518,441,126)
{
Strings=#16:3; Ученик #2; 90|16:1; Ученик #8; 93|16:2; Ученик #6; 94|16:1; Ученик #1; 90|16:1; Ученик #2; 85|16:3; Ученик #3; 89|16:1; Ученик #6; 79|16:1; Ученик #7; 74|16:3; Ученик #7; 94|16:2; Ученик #8; 97|16:2; Ученик #9; 93|16:2; Ученик #2; 90|16:2; Ученик #3; 89|16:2; Ученик #5; 85|16:1; Ученик #3; 74|16:2; Ученик #7; 83|16:2; Ученик #4; 80|16:3; Ученик #8; 95|16:1; Ученик #5; 80|16:3; Ученик #4; 94|16:3; Ученик #1; 92|16:2; Ученик #1; 99|16:3; Ученик #6; 89|16:1; Ученик #4; 94|16:3; Ученик #5; 85|
}
Add(ArrayEnum,790530,455,301)
{
link(onItem,9631054:doMTString,[])
link(Array,2732518:Array,[])
}
Add(MT_String,9631054,511,287)
{
link(onResult,6788460:doRowAction,[])
}
Add(MST_RowAction,6788460,567,287)
{
MSTControl="lll"
}
Add(MTStrTbl,14130833,637,287)
{
Left=10
Top=5
Width=385
Height=365
Name="lll"
Columns=#5:Класс|11:Имя ученика|4:Балл|
ColumnClick=1
Redaction=0
MultiSelect=0
link(onColumnClick,7270494:doValue,[])
}
Add(MST_Selected,1404927,532,336)
{
MSTControl="lll"
Point(SelCount)
}
Add(MST_ArrayRows,3293888,644,385)
{
MSTControl="lll"
}
Add(MT_MTArrayRW,7022694,644,441)
{
link(onRead,4264146:doRowAction,[])
link(Array,3293888:Strings,[])
link(Index,5316292:Index,[(657,429)(601,429)(601,478)(545,478)])
}
Add(ArrayEnum,5316292,532,434)
{
link(onItem,8842106:doCase,[])
link(onEndEnum,1940395:doData,[(572,447)(572,510)])
link(Array,1404927:SelectArray,[])
}
Add(Case,8842106,581,434)
{
Value=Integer(1)
link(onTrue,7022694:doRead,[])
}
Add(MTStrTbl,4881026,764,441)
{
@Color=16755370
Left=405
Top=115
Width=360
Height=210
Name="tab_2"
Columns=#5:Класс|11:Имя ученика|4:Балл|
MultiSelect=0
}
Add(MST_RowAction,4264146,693,441)
{
@Color=16755370
MSTControl="tab_2"
}
Add(MST_SortInCol,1938432,721,504)
{
@Color=16755370
MethodSort=1
MSTControl="tab_2"
}
Add(Memory,7270494,756,294)
{
link(onData,9654373:doCompare,[(800,300)(800,332)(702,332)(702,363)])
}
Add(DoData,1940395,588,504)
{
link(onEventData,1938432:doSort,[])
link(Data,7270494:Value,[(594,412)(762,412)])
}
Add(MST_Clear,12299871,476,434)
{
@Color=16755370
MSTControl="tab_2"
link(onChange,5316292:doEnum,[])
}
Add(MST_SortInCol,4681644,784,364)
{
MSTControl="lll"
}
Add(If_else,9654373,714,357)
{
Type=2
Op2=Integer(1)
link(onTrue,12299871:doClear,[(758,363)(758,401)(464,401)(464,440)])
link(onFalse,4681644:doSort,[])
link(Op1,1404927:SelCount,[(720,345)(667,345)(667,380)(552,380)])
}


карма: 6

0
файлы: 1code_36964.txt [2.8KB] [385]