2 respuestas en este tema

[ramonrafe]

Hola.
Utilizo el componente PageControl (Win32, en Delphi 7).
Y quiero destacarlo del color del fondo y no le encuentro la propiedad color por ningún lado. Ni al componente ni a los TabSheet que se crean dentro de él.
El problema que le veo es que no se puede diferenciar (visualmente) de una forma clara cual es el TabSheet activo, ni diferenciar el PageControl del fondo del Form.
:huh:Mi preguntas son:
¿Es posible cambiar el color a un PageControl?
¿Es posible cambiar el color al TabSheet que está seleccionado?
y, claro,... si es posible, me gustaría saber como hay que hacerlo.
Gracias de antemano.
Ramón.

[enecumene]

delphi

Procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  case TabIndex of
    0: Control.Canvas.Brush.Color:=clgreen;
    1: Control.Canvas.Brush.Color:=clred;
    2: Control.Canvas.Brush.Color:=clblue;
    3: Control.Canvas.Brush.Color:=clYellow;
    4: Control.Canvas.Brush.Color:=clMaroon;
    5: Control.Canvas.Brush.Color:=clWhite;
  end;
  Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption);
  PageControl1.Pages[TabIndex].Brush.Color:=Control.Canvas.Brush.Color;
end;

Debes poner la propiedad OwnerDraw en True.

Saludos.

[ramonrafe]

Muchas gracias Enecumene.
Esto es lo que buscaba.
Ramón.