Вниз
Скачать: 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.025 c
8-1106649051
Son
2005-01-25 13:30
2005.07.11
Координаты картинки в TImage


14-1118742776
vk
2005-06-14 13:52
2005.07.11
Учебная DELPHI


1-1118920806
olevacho
2005-06-16 15:20
2005.07.11
невидимое приложение


4-1115717709
Maksimius
2005-05-10 13:35
2005.07.11
Службы Windows XP


14-1118399699
Ega23
2005-06-10 14:34
2005.07.11
Слушайте, а "Взлетит!" к чему было сказано?




   Наверх