pagecontrol как у инетбраузеров

[beemoto]

Подскажите плз как зделать так, чтоб если табы непомещаются на экран, то свойство TabWight уменьшалось.
пример опера и лисица

пробовал зделать как посоветовал NEETER:

PageControl1.TabWidth := PageControl1.Width div PageControl1.PageCount - 1;

почти получилось, но......................

[Kotofff]

А если "вручную" следить за шириной PageControl`а и в соответствии изменять ширину табов и если ширина менее какого-то значения пользоваться свойством MultiColumn, т.е. включать его и пусть табы "уходят" вправо ?
Свойство TabWidth - есть по-моему у всех контролов такого типа.

[beemoto]

вручную непойдет, делов том что я пишу веббраузер...

[goblinyara]

и что? чем это вам браузер не угодил,что вы ручками работать не хотите? есть такое свойство у пэйдж-контрола,как pagecount, а также tabwidth.... от них и пляшите.... и про multicolumn вам kotofff написал... все исходные данные у вас есть

[beemoto]

Сообщение от goblinyara

и что? чем это вам браузер не угодил,что вы ручками работать не хотите?

ты о чем?
multicolumn - что это за свойство

PageControl1.TabWidth := PageControl1.Width div PageControl1.PageCount - 1;
if pagecontrol1.TabWidth > 250 then
pagecontrol1.TabWidth := 250;

так почти получилось но справа идут стрелкиююю

[DomiNick]

Может MultiLine..?

пример опера и лисица

В моей лисе они уменьшаются только до определённой ширины...
А потом уж как обычно...

А для чего в предыдущем посте в коде "-1"..? Оно там совершенно не нужно...
И наверное должно быть "меньше", а не "больше"...
Точнее даже надо бы и то и то ограничения...**

Интересно... А можно ли точно узнать какой в FireFox используется компонент?
Как-то модифицированный PageControl или вообще какой-то свой..?

[beemoto]

лисица на си написана, и 95% компонент сами писали