HiAsm

Форумы Между делом TabControl и иконками - ширина при длинном названии ? ← Ctrl12Ctrl →

Разработчик

Ответов: 26155

Рейтинг: 2127

#1: 2018-11-29 01:48:11 ЛС | профиль | цитата

А теперь внимательно смотрим вот сюда

const TabControlFlags: array[ TTabControlOption ] of Integer = ( TCS_BUTTONS,
           TCS_FIXEDWIDTH, not TCS_FOCUSNEVER,
           TCS_FIXEDWIDTH or TCS_FORCEICONLEFT, TCS_FIXEDWIDTH or TCS_FORCELABELLEFT,
           TCS_MULTILINE, TCS_MULTISELECT, TCS_RIGHTJUSTIFY, TCS_SCROLLOPPOSITE,
           TCS_BOTTOM, TCS_VERTICAL, TCS_FLATBUTTONS, TCS_HOTTRACK, 0, TCS_OWNERDRAWFIXED );

И видим, что флаг tcoIconLeft автоматически включает tcoFixedWidth. Естественно, если текст не лезет, то он его на иконку будет натягивать, пытаясь воткнуть текст во вкладку.

Я уберу это флаг, он не применим в данном случае.

Первоисточник -- https://docs.microsoft.com/en-us/windows/desktop/controls/tab-control-styles

--- Добавлено в 2018-11-29 02:02:26

sla8a писал(а):

можно исправить

Я вообще не понял, почему цвет маски именно clWhite, а не clNone? Ведь при конвертации bmp в иконки именно clNone дает Alpha-канал.
Фиг с ним, тут проверять надо, оставим пока "как есть"

карма: 22

Редактировалось 3 раз(а), последний 2018-11-29 02:05:36

Форумы Между делом TabControl и иконками - ширина при длинном названии ? ← Ctrl12Ctrl →