Вверх ↑
Этот топик читают: Гость
Ответов: 758
Рейтинг: 112
#1: 2009-10-20 18:25:56 ЛС | профиль | цитата
Как можно получить полный список имен столбцов загруженых в MTStrTbl
карма: 1

0
Разработчик
Ответов: 26306
Рейтинг: 2146
#2: 2009-10-20 20:11:06 ЛС | профиль | цитата
miver писал(а):
полный список имен столбцов

Если я правильно понял, то вот так



Add(MainForm,2953706,98,280)
{
Width=389
Height=380
link(onCreate,557667:doEnum,[])
}
Add(MST_ArrayCols,7971168,154,238)
{
MSTControl="tab_1"
}
Add(MTStrTbl,7961748,98,238)
{
Left=10
Top=10
Width=355
Height=190
Name="tab_1"
Columns=#8:Столбец1|8:Столбец2|8:Столбец3|8:Столбец4|
}
Add(Memo,10810331,245,294)
{
Left=10
Top=205
Width=355
Height=115
}
Add(ArrayEnum,557667,154,294)
{
link(onItem,9791293:doSplit,[])
link(Array,7971168:ColumnArray,[])
}
Add(MultiStrData,9791293,196,294)
{
Char="="
Count=1
link(onPart1,10810331:doAdd,[])
}

карма: 22

1
Голосовали:miver
Ответов: 758
Рейтинг: 112
#3: 2009-10-21 11:31:43 ЛС | профиль | цитата
Попытался получить пары значений
- имя столбца;
- значение столбца выделенной строки.
не получилось
Как можно перебирать сразу два массива синхронно


code_15312.txt
карма: 1

0
файлы: 1code_15312.txt [1.9KB] [220]
Разработчик
Ответов: 26306
Рейтинг: 2146
#4: 2009-10-21 12:52:36 ЛС | профиль | цитата
miver, тебе это надо, что ли


Add(MainForm,3474812,287,266)
{
Width=383
Height=404
link(onCreate,9707509:doEnum,[])
}
Add(MST_ArrayCols,7971168,343,448)
{
MSTControl="tab_1"
}
Add(MTStrTbl,7961748,259,490)
{
Left=10
Top=10
Width=355
Height=190
Name="tab_1"
Columns=#8:Столбец1|8:Столбец2|8:Столбец3|8:Столбец4|
link(onClick,11531405:doEvent1,[])
}
Add(MST_DB,11163778,462,280)
{
MSTControl="tab_1"
}
Add(StrList,1229522,343,217)
{
Strings=#7:1;2;3;4|7:5;6;7;8|
}
Add(ArrayEnum,9707509,357,280)
{
link(onItem,16757127:doMT,[(401,286)(401,293)])
link(Array,1229522:Array,[])
}
Add(MT_String,16757127,413,280)
{
link(onResult,11163778:doAddRow,[])
}
Add(StringTable,1637030,546,560)
{
Left=10
Top=205
Width=355
Height=155
Columns=#1:1|1:2|1:3|
}
Add(InfoTip,16680458,245,182)
{
Info=#14:Заносим данные|
Width=288
Height=144
}
Add(Hub,11531405,301,490)
{
link(onEvent1,1637030:doClear,[(329,496)(329,440)(529,440)(529,573)])
link(onEvent2,5996210:doEnum,[])
}
Add(MT_Add,14688123,434,560)
{
InputMT=1
link(onAdd,14306317:doStr,[])
link(Data,10012012:Part1,[])
}
Add(InfoTip,2707843,217,357)
{
Info=#27:Хочу получить пары данных: |17: - имя столбца; |39: - значение столбца выделенной строки.|
Font=[MS Sans Serif,10,1,0,1]
Frame=2
HAlign=0
Width=386
Height=270
Margin=20
}
Add(MT_Enum,5996210,350,497)
{
link(onItem,5086762:doEvent1,[])
link(MT,7971168:MTCols,[])
}
Add(Hub,5086762,399,497)
{
link(onEvent1,10012012:doSplit,[])
link(onEvent2,14804483:doEMatrix,[(422,510)(422,603)(345,603)(345,566)])
}
Add(MT_String,14306317,483,560)
{
link(onResult,1637030:doAdd,[])
}
Add(MST_Matrix,14804483,357,560)
{
Y=-1
MSTControl="tab_1"
link(onEMatrix,14688123:doAdd,[])
link(X,5996210:Index,[])
}
Add(MultiStrPart,10012012,434,497)
{
Char="="
Count=1
}
карма: 22

1
Голосовали:miver
Ответов: 1328
Рейтинг: 69
#5: 2009-10-21 12:56:54 ЛС | профиль | цитата
или может это?

Add(MainForm,2953706,308,364)
{
Width=445
Height=607
Caption="MTStrTbl_As_TabGrid_with_EditCtrl"
Position=1
link(onCreate,9707509:doEnum,[])
}
Add(MST_UseEditCtrl,3498945,455,504)
{
MSTControl="MtS_tbl"
PColor(onCellSize,8421440)
PColor(onEscCell,32768)
}
Add(MTStrTbl,4376548,252,574)
{
Left=10
Top=5
Width=420
Height=305
Color=-16777194
Font=[MS Sans Serif,10,1,128,1]
Name="MtS_tbl"
HintManager="mtst_hint"
Layout="horiz_1"
WidthScale=100
HeightScale=100
Columns=#8:Col1=132|8:Col2=132|8:Col3=132|
ColumnClick=1
SmallIconsManager="icm"
StateIconsManager="check"
DrawManager="mtst_draw"
Point(onMouseMove)
link(onMouseMove,7983871:doCase,[])
}
Add(MST_RowAction,2904434,497,364)
{
MSTControl="MtS_tbl"
}
Add(MST_ArrayCols,7971168,371,497)
{
MSTControl="MtS_tbl"
}
Add(StringTable,5403691,539,609)
{
Left=10
Top=315
Width=420
Height=242
Color=-16777194
Font=[MS Sans Serif,10,1,0,1]
Layout="horiz_1"
Columns=#1:1|1:2|
}
Add(ArrayRW,5733719,371,609)
{
link(onRead,9791293:doSplit,[])
link(Array,7971168:ColumnArray,[])
link(Index,3498945:SubItem,[(384,573)(468,573)])
}
Add(MultiStrData,9791293,420,609)
{
Char="="
Count=1
link(onPart1,15164474:doString,[])
}
Add(FormatStr,15164474,469,609)
{
Mask="%1;%2"
link(onFString,5403691:doAdd,[])
link(Str2,3498945:Cell,[])
}
Add(Case,7983871,301,602)
{
Value=Integer(0)
link(onTrue,5733719:doRead,[])
}
Add(StrList,1229522,378,315)
{
Strings=#7:1;2;3;4|7:5;6;7;8|
}
Add(ArrayEnum,9707509,392,378)
{
link(onItem,16757127:doMTString,[])
link(Array,1229522:Array,[])
}
Add(MT_String,16757127,448,364)
{
link(onResult,2904434:doRowAction,[])
}
Add(MST_DrawManager,15127737,224,336)
{
Name="mtst_draw"
SingleString=0
TabGrid=0
TabGridFrame=0
GutterStyle=3
ColorRowSel=0
GutterColor=-16777203
}


карма: 2

1
Голосовали:miver
Ответов: 758
Рейтинг: 112
#6: 2009-10-21 12:59:38 ЛС | профиль | цитата
Вот так
code_15314.txt
Спасибо
карма: 1

0
файлы: 1code_15314.txt [1.9KB] [217]
Разработчик
Ответов: 26306
Рейтинг: 2146
#7: 2009-10-21 13:04:02 ЛС | профиль | цитата
miver писал(а):
Спасибо

Да на здоровье. Я показал общий принцип горизонтально-вертикального преобразования таблицы
карма: 22

0
7
Сообщение
...
Прикрепленные файлы
(файлы не залиты)