Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.11;
Скачать: 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 вся ветка

Текущий архив: 2005.07.11;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.069 c
1-1118911549
serguncho
2005-06-16 12:45
2005.07.11
Цвет в ColorDialog


1-1118870859
marri2005
2005-06-16 01:27
2005.07.11
Delphi и Word


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


1-1118380019
dp200
2005-06-10 09:06
2005.07.11
Разбивка стоки


9-1110377372
mr_Coder
2005-03-09 17:09
2005.07.11
Вопрос новичка по GLScene





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский