Не видны caption'ы в PadeControl

[KORT]

Доброе время суток.
В windows7 (64-разрядная ОС) при свойстве PageControl1.OwerDraw = true не видно отображения названий вкладок, даже если в обработчике OnDrawTab прописать следующее:

 
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
    lpRect: TRect;
  begin
    Control.Canvas.Font.Color:=clBlack;
    if Active then
      Control.Canvas.Font.Style:=Control.Canvas.Font.Style + [fsBold]
    else
      Control.Canvas.Font.Style:=Control.Canvas.Font.Style - [fsBold];
    lpRect:=Rect;
    Control.Canvas.FillRect(Rect);
    DrawText(Control.Canvas.Handle,PChar(TPageControl(Control).Pages[TabIndex].Caption),-1,lpRect,DT_SINGLELINE OR DT_VCENTER OR DT_CENTER);
end;

Что интересно в XP (32-разрядная ОС) работает все отлично - как и надо.
Ответ кроется в типе ОС или в чем-то другом...

[Аватар]

Одно из решений - вставить в проект модуль VCLFixes

[squirel]

Можно просто прорисовать на закладках текст названий через метод Canvas в процедуре PageControl1DrawTab

Control.Canvas.Font.Color:=clWhite; //выставляем контрастный цвет текста
Control.Canvas.TextOut(8,5,'Привет' ); //прорисовывает текст закладки