Вверх ↑
Ответов: 26
Рейтинг: 6
#1: 2014-07-07 18:52:13 ЛС | профиль | цитата
Задача:
1.Создается таблица(MTStrTbl) добавлением столбцов.
2.Дальше вручную выставляется ширина столбцов (двигая границы на самой таблице)
3.Сохранить таблицу с параметрами столбцов
4.Загрузить таблицу с сохраненными параметрами столбцов.
Вопрос: Как сделать так чтоб сохранилась установленная движением границ ширина столбцов и потом загрузилась?

Add(MainForm,2953706,21,105)
{
Width=915
Height=529
}
Add(MTStrTbl,2452207,182,63)
{
Left=10
Top=60
Width=435
Height=411
Name="tab"
FlatScroll=1
ColumnClick=1
Redaction=0
Grid=0
}
Add(MST_Load,4029420,553,322)
{
FileName="2013.c"
MSTControl="tab"
}
Add(Button,11674927,280,147)
{
Left=730
Top=65
Width=125
Caption="Добавление столбца"
link(onClick,1115700:doData,[])
}
Add(Button,11181501,259,252)
{
Left=445
Top=145
Width=445
Caption="Сохраненяем"
link(onClick,4985552:doSave,[])
}
Add(MST_Save,4985552,413,252)
{
FileName="2013.c"
MSTControl="tab"
}
Add(Button,14797034,259,315)
{
Left=450
Top=190
Width=440
Caption="Открываем то что сохранили"
link(onClick,3285328:doEvent1,[])
}
Add(DoData,1115700,336,147)
{
link(onEventData,8206848:doColAction,[])
link(Data,15480744:Text,[])
}
Add(Edit,15480744,336,91)
{
Left=450
Top=65
Width=265
}
Add(MST_ColAction,8206848,420,147)
{
MSTControl="tab"
}
Add(Label,1428768,336,196)
{
Left=450
Top=110
Width=440
Height=22
Caption="Изменяем ширину столбцов в ручную - двигая за границы"
AutoSize=1
}
Add(Label,13754802,332,45)
{
Left=450
Top=30
Width=300
Height=17
Caption="Добавляем пару столбцов"
AutoSize=1
}
Add(Hub,3285328,315,315)
{
link(onEvent1,8104764:doClear,[(441,321)(441,286)])
link(onEvent2,4029420:doLoad,[])
}
Add(MST_Clear,8104764,553,280)
{
ClearAll=0
MSTControl="tab"
}


карма: 1

0
файлы: 1code_33952.txt [998B] [499]