Раскрасить ярлычки TPageControl

@TatShurik · Регистрация: 13.02.2019

Студворк — интернет-сервис помощи студентам

Привет всем!

Хочется раскрасить в разные цвета ярлычки листов объектов TPageControl.

Всё, что смог найти - это способ раскрасить саму вкладку, а не ярлычки (смю прицеп)

А хочется обратного - чтобы вкладка была по-прежнему серой, а ярлычок - красным

@gunslinger · 14.02.2019, 01:43

Задать произвольный цвет в PageControl

@TatShurik · 14.02.2019, 10:07 **[ТС]**

Это не совсем то, чего я хотел. то, что в первом посте вполне выполняется одной строчкой:

C++
1
TabSheet1->Brush->Color = clBlue; // Меняем

Второй вариант весь TPageControl красит в голубой цвет.
мне же надо не это.
Пусть сами вкладки остаются серыми, как и были. Надо раскрасить только их ярлыки в TPageControl
Насколько понимаю - это надо делать в самом TPageControl, как-то раскрасив TRect, относящийся к конкретным ярлычкам. Вопрос - как получить эти TRect, относящиеся каждый к определённым вкладкам?

Вот такое хочу (см. прицеп)

@volvo · 14.02.2019, 11:00

TatShurik, значит, достаточно вот такого перехватчика:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
namespace Colored_TabSheet
{
    class TPageControl : public Comctrls::TPageControl
    {
    public:
        __fastcall virtual TPageControl(Classes::TComponent* AOwner)
            : Comctrls::TPageControl(AOwner)
        {
            OwnerDraw = true;
        }
 
    protected:
        MESSAGE void __fastcall MyDrawItem(TWMDrawItem &Message)
        {
            TColor tabColors[3] = {clRed, clTeal, clYellow}; // Здесь нужно быть уверенным, что цветов будет достаточно для ВСЕХ вкладок
            TColor Color = tabColors[Message.DrawItemStruct->itemID];
 
            ::SetDCBrushColor(Message.DrawItemStruct->hDC, Color);
            ::SelectClipRgn(Message.DrawItemStruct->hDC, 0);
 
            TRect Rect = Message.DrawItemStruct->rcItem;
            if(!Message.DrawItemStruct->itemState & ODS_SELECTED)
            {
                InflateRect(Rect, 2, 2);
            }
            FillRect(Message.DrawItemStruct->hDC, &Rect, (HBRUSH)::GetStockObject(DC_BRUSH));
            String s = Pages[Message.DrawItemStruct->itemID]->Caption;
            ::SetBkMode(Message.DrawItemStruct->hDC, TRANSPARENT);
            ::DrawText(Message.DrawItemStruct->hDC, s.c_str(), s.Length(), &Rect, DT_CENTER);
 
            // Активную вкладку помечаем рамкой фокуса ввода
            if(Message.DrawItemStruct->itemState & ODS_SELECTED)
            {
                ::SetROP2(Message.DrawItemStruct->hDC, R2_NOTXORPEN);
                ::DrawFocusRect(Message.DrawItemStruct->hDC, &Rect);
            }
 
            HRGN Rgn = ::CreateRectRgn(0, 0, 0, 0);
            ::SelectClipRgn(Message.DrawItemStruct->hDC, Rgn);
            ::DeleteObject(Rgn);
 
            Message.Result = 1;
            Comctrls::TPageControl::Dispatch(&Message);
        }
 
        BEGIN_MESSAGE_MAP
            MESSAGE_HANDLER(CN_DRAWITEM, TWMDrawItem, MyDrawItem)
        END_MESSAGE_MAP(Comctrls::TPageControl);
    };
}
#define TPageControl Colored_TabSheet::TPageControl

Вот так оно выглядит (разумеется, можно поиграть с Rect, тем самым подкорректировать позицию выводимого текста. Не помню, есть ли InflateRect в BCB6, если нет - то Left и Top увеличить на 2, а Right и Bottom - уменьшить. Это то, что делает InflateRect) :

@TatShurik · 14.02.2019, 14:22 **[ТС]**

Заработало!!!
InflateRect - не знает 6.

Заменил на

C
1
2
3
                //InflateRect(Rect, 2, 2);
                Rect.Top += 1; Rect.Left += 1;
                Rect.Bottom -= 1; Rect.Right -= 1;

вот такое получилось:

Новые блоги и статьи Все статьи Все блоги /
Настройка записи справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .

@TatShurik 0 / 0 / 0 Регистрация: 13.02.2019 Сообщений: 3

	Builder 6 Раскрасить ярлычки TPageControl 13.02.2019, 16:59. Показов 1811. Ответов 4 Метки нет (Все метки) Привет всем! Хочется раскрасить в разные цвета ярлычки листов объектов TPageControl. Всё, что смог найти - это способ раскрасить саму вкладку, а не ярлычки (смю прицеп) А хочется обратного - чтобы вкладка была по-прежнему серой, а ярлычок - красным Миниатюры 0

@gunslinger place status here 3190 / 2227 / 640 Регистрация: 20.07.2013 Сообщений: 6,023
	14.02.2019, 01:43
	Задать произвольный цвет в PageControl 0

Раскрасить ярлычки TPageControl

Решение