OwnerDraw en TPageControl

[salvica]

Haber si ahora podeis ayudarme

En el ejemplo que pone Román aquí me ocurre lo mismo, entonces he optado por meter algunos controles en una de las pestañas que debe estar oculta, (hasta ahora estaban vacías y pensaba que lo que estaba viendo era correcto).

Craso error , la variable TabIndex del procedimiento OnDrawTab del TPageControl recibe el número de órden de las pestañas visibles por lo que la línea

Código Delphi [-]
Texto := PageControl1.Pages[TabIndex].Caption

no se corresponde con la realidad

Ejemplo:

PageIndex   TabIndex   Caption
=========   ========   =======
    0           0      Inicio
    1          -1      Uno
    2          -1      Dos
    3           1      Tres

Pintaría la pestaña cero (PageIndex = 0) con Caption = Inicio
no pintaría pas pestañas uno y dos (TabIndex = -1), o sea TabVisible = false
Al pintar la pestaña tres (TabIndex = 1) PageControl1.Pages[TabIndex].Caption = Uno

¿Como puedo resolver el problema? (Saber el PageIndex de la pestaña a dibujar)

Gracias
Salvica

[cesarsoftware]

Hola Salvica

Mira a ver si este codigo te puede ayudar

Código Delphi [-]
procedure TMC.PageControl1Change(Sender: TObject);
begin
  BotonBorraRuta.Enabled := False;
  TBotonBorraRuta.Enabled := False;
  MenuBorraRuta.Enabled := False;
  BotonAutoBorrar.Enabled := False;
  TBotonAutoBorrar.Enabled := False;
  MenuAutoBorrar.Enabled := False;
  case PageControl1.ActivePageIndex of
    0: begin
       TabRutasAjustar();
       AjustaRutaBotones();
       BotonBorraRuta.Enabled := True;
       TBotonBorraRuta.Enabled := True;
       MenuBorraRuta.Enabled := True;
    end;
    1: begin
       TabOperacionAjustar();
       AjustaOperacionBotones();
    end;
    2: begin
       TabInformeAjustar();
    end;
    3: begin
       TabAutoAjustar();
       BotonAutoBorrar.Enabled := True;
       TBotonAutoBorrar.Enabled := True;
       MenuAutoBorrar.Enabled := True;
    end;
    4: begin
       TabFtpAjustar();
    end;
    5: begin
    end;
  end;
end;
 
procedure TMC.PageControl1Changing(Sender: TObject; var AllowChange: Boolean);
begin
  case PageControl1.ActivePageIndex of
    0: begin
    end;
    1: begin
    end;
    2: begin
    end;
    3: begin
    end;
    4: begin
       MemorizaSitioFtp();
       GuardaSitiosFtp();
       LeeSitiosFtp();
    end;
    5: begin
    end;
  end;
end;
 
procedure TMC.PageControl1Enter(Sender: TObject);
begin
  PageControl1Change(Nil);
end;