Color del Caption en un TabSheet
 

"Tolomeo se mudo al Polo Norte"

Hola,

http://www.clubdelphi.com/foros/showthread.php?t=40795

Hola Jose, también lo puedes hacer de esta forma, utilizando la función DrawText para darle formato al texto.

Código Delphi [-]
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
 Re : TRect;
 Titulo : String;
begin
 Titulo := PageControl1.Pages[TabIndex].Caption;
 Re := Rect;
 
 if Active then
  PageControl1.Canvas.Font.Color := clRed
 else
  PageControl1.Canvas.Font.Color := clBlack;
   
  DrawText(               
    PageControl1.Canvas.Handle, PChar(Titulo), Length(Titulo), Re,
    DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end;

El parametro Active te indica si ese TabSheet esta activo si es asi pinta de rojo, otra cosita debes colocar a True la propiedad OwnerDraw del PageControl para que haga el pintado, en el otro hilo no estaba especificado eso.

Si quieres que todos se pinten de un color entonces le quitas la condición y paar no repetir PageControl1 utilizas With.

Saluditos

"Tolomeo se mudo al Polo Norte"

No te estoy entendiendo muy bien, que es lo que no te satisface, si quieres pintar cada caption de los tabSheet de diferente color, puedes utilizar el parametro TabIndex.

Código Delphi [-]
 ................
 Re := Rect;
 
 Case TabIndex of
  0 : PageControl1.Canvas.Font.Color := clRed;
  1 : PageControl1.Canvas.Font.Color := clYellow;
  2 : PageControl1.Canvas.Font.Color := clGreen;
  else
   PageControl1.Canvas.Font.Color := clBlack;
 end;
   
 DrawText(               
    PageControl1.Canvas.Handle, PChar(Titulo), Length(Titulo), Re,
    DT_CENTER or DT_VCENTER or DT_SINGLELINE);

Saluditos

"Tolomeo se mudo al Polo Norte"

"Tolomeo se mudo al Polo Norte"

"Tolomeo se mudo al Polo Norte"

"Tolomeo se mudo al Polo Norte"

"Tolomeo se mudo al Polo Norte"