Пользовательский нарисованный текст вкладки управления страницей не отображается в Windows 10 - PullRequest
Новая
       47

Пользовательский нарисованный текст вкладки управления страницей не отображается в Windows 10

0 голосов
/ 06 февраля 2020

Я хочу изменить цвет шрифта заголовка листа вкладки в Delphi 7. Он работает на Windows 7, но заголовок не отображается в Windows 10. Пожалуйста, сообщите.

Ниже код и скриншоты. 

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  if TabIndex = 0 then
    Control.Canvas.Font.Color:= clRed
  else if TabIndex = 1 then
    Control.Canvas.Font.Color:= clGreen
  else
    Control.Canvas.Font.Color:= clBlue;

  Control.Canvas.TextOut(rect.lef, rect.top, PageControl1.Pages[TabIndex].Caption);
end;

Вкл. Windows 7

image

Вкл. Windows 10

image

...