Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

¿Cómo cambiar el color a un PageControl?

Started by ramonrafe , Nov 14 2009 06:29 AM

Please log in to reply

2 replies to this topic

#1 ramonrafe

Member

Miembros
24 posts

LocationEspaña

Posted 14 November 2009 - 06:29 AM

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.

0

Back to top

#2 enecumene

Webmaster

Administrador
7419 posts

LocationRepública Dominicana

Posted 14 November 2009 - 08:02 AM

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;