Club Builder

[napo]

Buenos días,
en el foro de Delphi he encontrado la manera de hacer algon que quiero hacer yo en C++ Builder.
Copio el tema a ver si alguien sabe como hacer esto en C++. Lo he intentado pero no lo consigo.
Gracias

Escrito por "Bicho" en clubdelphi.com
_________________________________________________________________________
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;
___________________________________________________________________________

[_Leo]

Hola, en el evento OnDrawTab:

[napo]

Muchas gracias,
funciona perfectamente.

Un saludo

[jotny]

estimados.

he puesto codigo en mi pagecontro en el metodo que indican y su codigo, lo tengo en modo tabbutton y no me cambia la fuente del page activo. el pagecontrol debe tener alguna propiedad activa para que pueda tomar el cambio de font al momento de estar en una hoja activa?.

puse un punto de seguimiento en evento de pintado y nunca se mete. que extraño.... alguien podria ayudarme al respecto?.

[escafandra]

Tienes que tener la propiedad OwnerDraw = true

Pruebalo así:

[jotny]

muchas gracias, un pequeño detalle hace grandes diferencias