Ver Mensaje Individual
  #3  
Antiguo 25-10-2006
Avatar de Bicho
[Bicho] Bicho is offline
Miembro Premium
 
Registrado: jul 2003
Ubicación: Inca - Mallorca
Posts: 1.776
Reputación: 22
Bicho Va por buen camino
Cita:
Empezado por kuan-yiu
Olvídate, el PageControl da problemas con el color, tiene un fallo en el borde y en las pestañas. Yo opté por ocultar las pestañas (se accede a cada sección usando botones) y cubrir los bordes con minipaneles (chapucero pero eficaz).
Hola, el PageControl, coge el color de su objeto parent de forma automática. Así pues, si le cambias el color al form o el Panel donde esté metido el PageControl, éste coge su mismo color. Lo que pasa, es que, de primera, las pestañas no cogerán ese color. Debes poner la propiedad OwnerDraw del PageControl a True y ya todo tendrá el mismo color.
Que ocurre ahora, que no se ven los captions de las pestañas, no? Muy fácil, dibujamos ese texto sobre el canvas del panel, de esta manera (sobre el evento DrawTab del PageCotrol):

Código Delphi [-]
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  with PageControl1.canvas do begin
    fillrect(rect);
    font.Color := clBlack; //con éste color ya se verá, ves jugando con el que te guste más
    textout(rect.left+2,rect.top+2,PageControl1.Pages[TabIndex].Caption);
  end;
end;

Espero te sirva.

Saludos
Responder Con Cita