 |
Club Builder
Foro de C++Builder en español
|
| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Javier M.
Invitado
|
 Publicado: Jue 30 Ene, 2003 4:31 pm Asunto: Camiar color del caption de un TTabSheet |
 |
|
Hola, parece una tontería, pero alguien sería capaz de cambiar el color del caption de un TTabSheet ?
Gracias |
|
| Volver arriba |
|
 |
_Leo
Site Admin
Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
| Publicado: Jue 30 Ene, 2003 5:22 pm Asunto: |
|
|
Hola:
Si estas usando la versión 4 o superior solo tienes que poner a true la propiedad OwnerDraw del TPageControl y poner por ejemplo el siguiente código en su evento OnDrawTab:
| Código: | void __fastcall TForm1::PageControl1DrawTab(TCustomTabControl *Control,
int TabIndex, const TRect &Rect, bool Active)
{
// Obtenemos el titulo de la pestaña que vamos a pintar
String str =
static_cast<TPageControl*>(Control)->Pages[TabIndex]->Caption;
// Pintamos el fondo de la pestaña
Control->Canvas->Brush->Color = clYellow;
Control->Canvas->FillRect(Rect);
// Si es la pestaña activa pintamos el texto azul
if (Active)
Control->Canvas->Font->Color = clBlue;
// Dibujamos el texto centrado vertical y horizontalmente
DrawText(Control->Canvas->Handle, str.c_str(), str.Length(),
const_cast<TRect*>(&Rect),
DT_SINGLELINE | DT_CENTER | DT_VCENTER);
} |
Y si estas usando una versión más vieja echale un vistazo a este enlace:
http://bcbcaq.freeservers.com/OD_Tabs.html
Saludos:
_Leo |
|
| Volver arriba |
|
|
|
|
No puedes publicar temas nuevos en este foro
No puedes responder a temas en este foro
No puedes editar tus mensajes en este foro
No puedes borrar tus mensajes en este foro
No puedes votar en las encuestas de este foro
|
© 2002–2026 Club Builder · Funciona con phpBB.
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
