Вниз
Скачать: CL | DM;

TabControl и ширина кнопок   Найти похожие ветки 

 
Диман   (2004-05-11 01:21) [0]

Привет всем!!!
Есть проблема.
Как можно программно изменять ширину кнопок в заголовке TabControla?

В VCL у PageControla было свойство TabWidth, в KOL я такого не нашел...


 
SPeller ©   (2004-05-11 11:04) [1]

TC_ItemRect


 
Диман   (2004-05-11 15:15) [2]

TabControl1.TC_ItemRect[i]:= ....
ты это имел в виду?
Если да, то так нельзя сделать, т.к. компилятор ругается, что нельзя к левой стороне ничего присвоить :(
может еще как?


 
Диман   (2004-05-11 15:33) [3]

Получилось через API

SendMessage(TabControl1.Handle,TCM_SETITEMSIZE, 0, MAKELPARAM(_Width, _Height));


 
SPeller ©   (2004-05-12 02:50) [4]

Хм, я посмотрел что такой метод есть, и написал. Не знал что он рид-онли, не пользовался я им. Остаётся, по всей видимости, через API.


 
Диман   (2004-05-12 10:44) [5]

Ну в принципе проблема решена... это не так сложно.....
жаль компоненты писать не умею, а томно было бы такое свойство добавить в TabControl


 
SPeller ©   (2004-05-12 11:10) [6]

В принципе, это это можно добавить, безболезненно для тех кто это не использует. Вот вам, Диман, и задача, поковыряться в kol.pas и добавить туда свойство к TControl чтобы изменять ширину и высоту заголовков табов, а потом предложить это Владимиру Кладову, чтобы внёс в "официальный" вариант kol.pas. )


 
Диман   (2004-05-12 12:49) [7]

ок, если смогу, то сделаю, предложу Владимиру Кладову...
правда щас делов много, защита диплома через месяц, надо и за него браться по серьезному


 
Silver Dragon ©   (2004-12-09 14:04) [8]

А вот, у меня через WinApi изменяется только высота и ширина кнопки :(



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c
14-1118143664
mmms
2005-06-07 15:27
2005.07.11
Зачем машины продаются? Раздавало бы государство


14-1118569480
AngeL B.
2005-06-12 13:44
2005.07.11
Ошибка при запуске на ноуте


5-1088818458
antonn
2004-07-03 05:34
2005.07.11
TPersistent & Co


1-1118151224
Ded Moroz
2005-06-07 17:33
2005.07.11
TListView


14-1118596069
le[x]
2005-06-12 21:07
2005.07.11
Помогите с курсовой




   Наверх