VPF::Цветные вкладки в Builder'e - Форум программистов

Alexey91

Дата 17.6.2011, 10:00 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 195
Регистрация: 18.9.2008

Репутация: нет
Всего: нет

Здравствуйте!!!

Можно ли как-то в PageControl раскрасить вкладки цветами разными?

SVN74

Дата 18.6.2011, 11:22 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 740
Регистрация: 5.5.2008
Где: Комсомольск на Дн епре

Репутация: 11
Всего: 18

TControlCanvas *Canvas = new TControlCanvas;
Canvas->Control = myPageControl; (подставляем сюда любой контрол не имеющий средств для рисования)
Canvas-> Рисуем все...

ZVano

Дата 21.6.2011, 09:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 259
Регистрация: 11.12.2006
Где: Украина, Кривой Р ог

Репутация: 1
Всего: 4

Нужно прописать у PageControl обработчик OnDrawTab
Вот рабочий вариант.

Код


/*TPageControl *tbclX;
*tbclX->OnDrawTab = tbclXDrawTab;
*/
void __fastcall TfrmX::tbclXDrawTab(TCustomTabControl *Control, int TabIndex, const TRect &Rect, bool Active) {
  //Простая заливка без текста
  // Control->Canvas->Brush->Color = clRed;
  // Control->Canvas->FillRect(Rect);

  // Далее показано как подсветить закладку и вывести текст с центрированием
  if (TabIndex == 1) 
    Control->Canvas->Brush->Color = clRed;
  else
    Control->Canvas->Brush->Color = clGreen;
          
  Control->Canvas->FillRect(Rect);
  Control->Canvas->Font = tbclX->Font;
  AnsiString tabText = tbclX->Tabs->Strings[TabIndex];
  DrawText(Control->Canvas->Handle, tabText.c_str(), -1, &Rect, DT_SINGLELINE | DT_CENTER | DT_VCENTER);
}

Это сообщение отредактировал(а) ZVano - 21.6.2011, 09:26

--------------------

НЕ ФЛУДИМ. Пользуемся кнопками "+" или "-" для выражения своего отношения к теме или сообщению.
Гуглим "Как правильно задавать вопросы"

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »