Вверх ↑
Разработчик
Ответов: 26264
Рейтинг: 2140
#1: 2022-05-01 21:38:03 ЛС | профиль | цитата
ric писал(а):
посмотри ошибку

Убери XP-стиль, и ошибка исчезнет.

--- Добавлено в 2022-05-01 22:01:00

Можно еще попытаться добавлять нужную ширину при добавлении столбца, но обязательно отличную от дефолтной
Схема

Add(MainForm,5412717,434,154)
{
 Height=386
 Name="form"
 Position=1
 Point(Handle)
 Point(Width)
 link(onCreate,8279789:doTimer,[(473,174)(473,202)(263,202)(263,216)])
}
Add(MST_ColAction,935753,385,210)
{
 MSTControl="tab"
}
Add(DoData,5286389,336,210)
{
 Data=String(col;110)
 link(onEventData,935753:doColAction,[])
}
Add(MTStrTbl,2452207,371,154)
{
 Top=32
 Width=384
 Height=315
 Align=5
 Font=[MS Sans Serif,8,1,0,204]
 TabOrder=-1
 Name="tab"
 ColorSp=12639424
 ColDelimiter=";"
 ColumnWidth=120
 ColorItems=0
 HeaderDragDrop=0
 TextAlign=2
 Grid=0
 InfoTip=1
 SmallIconsManager="ico2"
 DrawManager="userE"
 Point(Handle)
 Point(ItemAtPos)
 Point(onDblClick)
 Point(doFont)
}
Add(Timer,8279789,273,210)
{
 Interval=500
 Enable=1
 AutoStop=6
 link(onTimer,5286389:doData,[])
}
Add(StyleXP,1464817,273,154)
{
}

Я пока не вижу решения на уровне компонента.
карма: 22

0
Редактировалось 2 раз(а), последний 2022-05-01 22:01:18