Cita:
Empezado por olbeup
Hay un problema cuando el TabSheet está oculto o no es visible, ya no se corresponden los Caption's de los TabSheet's, si tienes 6 TabSheet y el que hace 3, lo pones oculto, el resto no se corresponde con su título, ¿cómo se pueden solucionar el problema?, la verdad, no lo se.
|
Hola olbeup, prueba de esta forma:
Código Delphi
[-]
var
aRect: TRect;
i, TIndex, Ind: Integer;
begin
if Active then
begin
Control.Canvas.Font.Style := [fsBold];
Control.Canvas.Font.Color := clRed;
end
else
begin
Control.Canvas.Font.Style := [];
end;
aRect := Rect;
TIndex := -1;
Ind := TabIndex;
for i := 0 to PageControl1.PageCount - 1 do
begin
if TIndex = TabIndex then Break;
if not PageControl1.Pages[i].TabVisible then
Inc(Ind)
else
Inc(TIndex);
end;
DrawText(Control.Canvas.Handle,PChar(PageControl1.Pages[Ind].Caption),
-1,aRect,DT_CENTER or DT_SINGLELINE);
end;
Saluditos