Исправление проблемы с отображением неактивных вкладок в `TPageControl` с стилем `Flat Buttons` в Delphi

Delphi , Компоненты и Классы , Вкладки и Страницы

Вопрос пользователя заключается в том, что при использовании стиля Flat Buttons для компонента TPageControl в Delphi и изменении цвета кнопок вкладок через событие OnDrawTab, неактивные вкладки отображаются с серым бордюром. Это связано с тем, что по умолчанию серый цвет используется для бордюра неактивных кнопок.

Пример кода, вызывающего проблему:

procedure TForm1.PageControlDrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  AText: string;
  ARect: TRect;
begin
  with (Control as TPageControl).Canvas do
  begin
    ARect := Rect;
    OffsetRect(ARect, 0, 4);
    Brush.Color := COLOR1;
    FillRect(Rect);
    AText := TPageControl(Control).Pages[TabIndex].Caption;
    with Control.Canvas do
      DrawText(Control.Canvas.Handle, PChar(AText), -1, ARect, DT_CENTER or DT_SINGLELINE);
  end;
end;

Решение проблемы:

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

Подтвержденное решение:

В качестве альтернативного варианта, можно использовать следующий подход для изменения цвета бордюра неактивных вкладок:

for I := 0 to TPageControl(Control).PageCount-1 do
  if TPageControl(Control).Pages[I].TabIndex = TabIndex then
  begin
    FillRect(Control.Canvas.Handle, aRect, Control.Canvas.Brush.Handle);
    // Установите цвет бордюра для неактивной вкладки, например, clWhite
    Control.Canvas.Brush.Color := clWhite;
    Pen.Color := clWhite; // Цвет пера для бордюра
    // Отрисовка прямоугольника вкладки
    Control.Canvas.Pen.Width := 1; // Толщина бордюра
    Control.Canvas.Rectangle(Rect);
    // Продолжение отрисовки текста и других элементов вкладки
    break;
  end;

Данный код позволяет изменить цвет бордюра на белый (или любой другой цвет, который вы предпочтете) для неактивных вкладок, что решает проблему с серым бордюром.

Альтернативный подход:

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

Заключение:

Для решения проблемы с отображением бордюра неактивных вкладок в TPageControl с стилем Flat Buttons в Delphi, можно использовать предложенный выше код для изменения цвета бордюра. Это позволит сохранить функциональность вкладок и улучшить внешний вид компонента.

При написании статьи важно учитывать, что примеры кода должны быть понятны разработчикам, знакомым с Object Pascal и Delphi, и при этом быть достаточно простыми для понимания

Создано по материалам из источника по ссылке.

Вопрос связан с исправлением проблемы отображения неактивных вкладок в компоненте TPageControl с использованием стиля Flat Buttons в среде разработки Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Вкладки и Страницы ::