Cita:
Empezado por JoseFco
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.
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