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.