Color en un TabSheet

[ajgomezlopez]

Buenas noches.

Utilizo un Tabsheet en un TPage control (Delphi 2009) y aunque edito las propiedades de la fuente y de los colores, estas no se se muestran. Por ejemplo, si a la fuente le pongo color rojo, al compilar, el texto sigue en negro. ¿Alguna idea?

Muchísimas gracias por adelantado.

Lo siento mucho, este tema ya estaba solucionado, pero no lo habia encontrado. Este es el código

Código Delphi [-]
procedure Tform1.Port_StatusDrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
 var
 Re : TRect;
 Titulo : String;
begin
Titulo := PageControl1.Pages[TabIndex].Caption;
 Re := Rect;
 Case TabIndex of
  0 : PageControl1.Canvas.Font.Color := clRed;
  1 : PageControl1.Canvas.Font.Color := clYellow;
  2 : PageControl1.Canvas.Font.Color := clGreen;
  3 : PageControl1.Canvas.Font.Color := clBlue;
  else
   PageControl1.Canvas.Font.Color := clBlack;
 end;
  DrawText(
    PageControl1.Canvas.Handle, PChar(Titulo), Length(Titulo), Re,
    DT_CENTER or DT_VCENTER or DT_SINGLELINE);
    end;

Por cierto, que es .Canavas. ??? No me sale esa propiedad.

[droguerman]

Existe una propiedad llamada ownerdraw que debe estar en true para que funcione

[ajgomezlopez]

En primer lugar gracias por tu respuesta.

En segundo lugar.

Si dentro del TabSheet podemos esditar propiedades del tipo, Fuente, color, etc. ¿Porqué el componente no las usa?