Як динамічно - змінювати розмір tabsheet

як динамічно # 032; змінювати розмір TabSheet?

Я вже ставив це питання, але рішення так і не знайшлося при всій удаваній легкості завдання: Як динамічно змінити розмір КОНКРЕТНОГО Tab, повторю - не всіх одночасно, а окремого.
Справа в тому, що виникла необхідність малювати картинки на Tab ах, але не з ImageList, а зі свого набору, звідси висновок: OwnerDraw: = true; і малюємо в подію OnDrawTab.
Так ось намалювати текст і картинку це добре, але не виходить динамічно змінювати розмір Tab якщо текст виходить за його розміри. Підкажіть будь ласка.

Це змінює розмір всіх Item ів PageControla.
Мені необхідно змінити розмір конкретно Tab, як наприклад відбувається коли забиваєш його Caption і він розтягується.

> Це змінює розмір всіх Item ів PageControla.
Саме так влаштований PageControl - він сам обчислює розмір Tab-а, виходячи з ширини тексту і наявності / розміру картинки.
Що не дає внести свої картинки в imagelist?
Можна також додавати прогалини до напису, щоб створити потрібний порожній проміжок.

> Саме так влаштований PageControl - він сам обчислює розмір Tab-а, виходячи з ширини тексту і наявності / розміру картинки.
Тобто виходить що ситуація безвихідна?

> Що не дає внести свої картинки в imagelist?
Картинки зберігаються в ресурсі. Створювати ImageList динамічно потім вбивати його? А якщо картинок десь 200-300?

> Можна також додавати прогалини до напису, щоб створити потрібний порожній проміжок.
Пробував так, Tab.Caption: = Concat ( "", Tab.Caption); Добре якщо 16x16, а якщо більше. відповідно і прогалин більше. Ну ось і перебуваю в пошуку, вродеби весчь виглядає просто, а ось ті на.

Пам'ять: 0.73 MB
Час: 0.047 c