Tabs como FireFox

[Troffed]

Hola, estoy intentando hacer un interfaz similar a firefox (salvando las distancias) en el aspecto de las pestañas o tabs.

Por un lado que se vayan añadiendo tabs según van haciendo falta, utilizando frames para ello, hasta aquí de momento no hay problema.

Pero quiero que en el tab aparezca un botón de cerrar, he estado mirando en el foro y hay un hilo sobre el tema pero no he visto como finalmente se resolvió. He estado mirando los componentes de TMS pero debo ser muy torpe porque no he visto como hacerlo. Con la JVCL está el TJvTabBar pero no tiene la apariencia que busco y además no termino de ver claro como funcionar con pagelist.

¿Conocéis algún componente que sea similar a las tabs de firefox? o ¿Como puedo poner un pequeño botón en cada tabsheet para cerrarla?

[[poliburro]]

]Por que no te das una vuelta por torry.net?, es un excelente site dedicado a delphi

[Troffed]

Lo conozco, pero lo que he visto no termina de ser exactamente lo que busco.

Gracias.

[droguerman]

asignas a tu PageControl la propiedad OwnerDraw := true y luego pones un código parecido a este en el evento onDrawTab

Código Delphi [-]
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  r, m : TRect;
begin
  CopyRect(r, Rect);
  CopyRect(m, Rect);

  //para el botón
  r.Left := R.Right-GetSystemMetrics(SM_CXMENUSIZE);
  with Control.Canvas do
  begin
      //escribe el texto
      DrawText(Handle, PChar(PageControl1.Pages[tabIndex].Caption ),
               -1, m, DT_LEFT );
      //dibuja el botón
      DrawFrameControl(Control.Canvas.Handle, r, DFC_CAPTION    ,
                       DFCS_CAPTIONCLOSE     );

  end;
end;

ahora lo que tienes que hacer es manejar el evento onKeyUp

[Troffed]

Muchas gracias, voy a intentarlo por ese camino, a ver si puedo en lugar de pintar el botón estandar de cerrar un speedbutton.

Lo único malo es que pierdo la apariencia XP ...

[droguerman]

Empezado por Troffed

Muchas gracias, voy a intentarlo por ese camino, a ver si puedo en lugar de pintar el botón estandar de cerrar un speedbutton.

Lo único malo es que pierdo la apariencia XP ...

no la pierdes si usas los themeservices, te daria un ejemplo pero recien los he descubierto