Cambiar el color en un TTabSheet con XPMan incluido

[[white_zombie]]

Hola, crea un formulario con un pagecontrol con 3 pestañas y pega esto en el evento OnDrawTab del pagecontrol.

Código Delphi [-]
PageControl1.Canvas.FillRect(rect);

if TabIndex = 0 then
  begin
  PageControl1.Canvas.font.Color := $0053A6AC;
  PageControl1.Canvas.font.Style:=[];
  PageControl1.Canvas.textout(rect.left+4,rect.top+4,PageControl1.Pages[0].Caption);
    if Active then
      begin
        PageControl1.Canvas.font.Color := clPurple;
        PageControl1.Canvas.font.Style:=[fsBold];
        PageControl1.Canvas.textout(rect.left+5,rect.top+5,PageControl1.Pages[0].Caption);
      end;
  end;
if TabIndex = 1 then
  begin
  PageControl1.Canvas.font.Color := $0053A6AC;
  PageControl1.Canvas.font.Style:=[];
  PageControl1.Canvas.textout(rect.left+4,rect.top+4,PageControl1.Pages[1].Caption);
    if Active then
      begin
        PageControl1.Canvas.font.Color := clPurple;;
        PageControl1.Canvas.font.Style:=[fsBold];
        PageControl1.Canvas.textout(rect.left+5,rect.top+5,PageControl1.Pages[1].Caption);
      end;
  end;
if TabIndex = 2 then
  begin
  PageControl1.Canvas.font.Color := $0053A6AC;
  PageControl1.Canvas.font.Style:=[];
  PageControl1.Canvas.textout(rect.left+4,rect.top+4,PageControl1.Pages[2].Caption);
    if Active then
      begin
        PageControl1.Canvas.font.Color := clPurple;
        PageControl1.Canvas.font.Style:=[fsBold];
        PageControl1.Canvas.textout(rect.left+5,rect.top+5,PageControl1.Pages[2].Caption);
      end;
  end;

No olvides poner la propiedad ownerdraw a true.

El ejemplo como comprobaras le da un aspecto distinto al pagecontrol. Te pongo este ejemplo porque yo lo utilizo en mis aplicaciones y he copiado y pegado.

Un Saludo.