Color del Caption en un TabSheet

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[TOPX]

Hola,

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

[Caro]

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


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

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[Caro]

Es cosa de ir jugando con los colores y las posiciones.


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.


................
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

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"