Проблема с TPageControl DrawTab

Question

Я установил стиль TPageControl на Плоские кнопки (tsFlatButtons) и изменил цвет кнопки вкладки с помощью события OnDrawTab.

Это работает, но кнопка, которая неактивна, имеет серый цвет (цвет btnFace) граница!

Есть идеи, как это исправить?

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;

Answer 1

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

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

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);
  // Do your text drawing here
  break;
end;

Answer 2

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

  for I := 0 to Pred(PageControl1.PageCount) do
    PageControl1.Pages[I].TabVisible := False;

и добавьте TTabSet с этими свойствами:

BackgroundColor := clGradientActiveCaption;
SelectedColor := clGradientActiveCaption;
Style := tsModernTabs

Answer 3

См. Этот блок ниже, чтобы исправить проблемы с ничьей на Win64bits

https://forums.embarcadero.com/thread.jspa?messageID=292598