Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-10-2006
miguel555666777 miguel555666777 is offline
Registrado
 
Registrado: oct 2006
Posts: 8
Poder: 0
miguel555666777 Va por buen camino
Color en las pestañas de un PageControl

Buenas, amigos y amigas.

Lo primero deciros que soy nuevo en el foro y tb keria felicitaros por tan buen foro.

Me ha ocurrido una complicación y estoy loco dando vueltas.
No puedo cambiar el color de las pestañas de un PageControl. Si he conseguido camibiar el contenido, pero las pequeñas pesañas es imposible, por favor ayudaa..

ah ya de paso, ¿sabeis insertar una imagen en un TButton?.

Saludos
Responder Con Cita
  #2  
Antiguo 25-10-2006
Avatar de kuan-yiu
[kuan-yiu] kuan-yiu is offline
Miembro Premium
 
Registrado: jun 2006
Ubicación: Galicia. España.
Posts: 1.017
Poder: 19
kuan-yiu Va camino a la fama
Olvídate, el PageControl da problemas con el color, tiene un fallo en el borde y en las pestañas. Yo opté por ocultar las pestañas (se accede a cada sección usando botones) y cubrir los bordes con minipaneles (chapucero pero eficaz).

Los TButton no admiten imágenes, debes usar TBitBtn para poder usarlas.
Responder Con Cita
  #3  
Antiguo 25-10-2006
Avatar de Bicho
[Bicho] Bicho is offline
Miembro Premium
 
Registrado: jul 2003
Ubicación: Inca - Mallorca
Posts: 1.776
Poder: 22
Bicho Va por buen camino
Cita:
Empezado por kuan-yiu
Olvídate, el PageControl da problemas con el color, tiene un fallo en el borde y en las pestañas. Yo opté por ocultar las pestañas (se accede a cada sección usando botones) y cubrir los bordes con minipaneles (chapucero pero eficaz).
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;

Espero te sirva.

Saludos
Responder Con Cita
  #4  
Antiguo 25-10-2006
miguel555666777 miguel555666777 is offline
Registrado
 
Registrado: oct 2006
Posts: 8
Poder: 0
miguel555666777 Va por buen camino
Gracias por el trozo de código.

Lo implementé y parecia que funcionariaba totalmente, pero para mi programa que pasa de la pestaña 1 a la pestaña 2 a través de un TButton, no se puede usar ya que me modifica el nombre de la pestaña 1 y la pestaña 2 a la vez.

En fin, para otra gente que quiera hacer esto seguro que le sirve

Muchas graciassss
Responder Con Cita
  #5  
Antiguo 25-10-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

No sé a qué te refieres conque "modifica el nombre de la pestaña 1 y la pestaña 2 a la vez"... yo he probado como dice el compañero y puedo cambiar la pestaña "activa" mediante "un botón" sin que ocurra nada extraño... que yo vea, vamos.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #6  
Antiguo 26-10-2006
Avatar de kuan-yiu
[kuan-yiu] kuan-yiu is offline
Miembro Premium
 
Registrado: jun 2006
Ubicación: Galicia. España.
Posts: 1.017
Poder: 19
kuan-yiu Va camino a la fama
Bicho, yo en su momento hice casi todas las cosas que comentas y me ocurría que el borde del componente tenía un problema de refresto: se cambiaba todo salvo ese borde que da el efecto 3D.
Cuando obligaba al componente a redibujarse por completo (al minimizar y maximizar o al aparecer algo que lo cubría temporalmente) entonces sí que se coloreaba correctamente el borde

Aún hoy creo que fue un bug del componente o una interacción indeseable entre algo de lo que tenía instalado en ese proyecto (que era mucho).
Responder Con Cita
  #7  
Antiguo 26-10-2006
Avatar de Bicho
[Bicho] Bicho is offline
Miembro Premium
 
Registrado: jul 2003
Ubicación: Inca - Mallorca
Posts: 1.776
Poder: 22
Bicho Va por buen camino
Yo la verdad es que con éste código no he tenido nunca ningún problema, y lo estoy usando en bastantes programas, ya que en mi trabajo, suelen ser bastante parecidos y para diferenciarles pues "los pinto de colores".

Aquí uso Delphi 6 y no tengo componentes de terceros.

Saludos
Responder Con Cita
  #8  
Antiguo 21-01-2020
Avatar de kuan-yiu
[kuan-yiu] kuan-yiu is offline
Miembro Premium
 
Registrado: jun 2006
Ubicación: Galicia. España.
Posts: 1.017
Poder: 19
kuan-yiu Va camino a la fama
Ya ha pasado tiempo desde este hilo.
De nuevo a vueltas con el mismo problema me ha aparecido en una búsqueda este tema y no quiero dejar de comentar aquí, para quien pueda interesar, que todos los problemas de aspecto que en su día me dio PageControl, los he solucionado con JvPageControl (JEDI VCL).
ClientBorderWidth y HideAllTabs son las propiedades que me hacen la vida más fácil
Responder Con Cita
  #9  
Antiguo 31-01-2020
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.604
Poder: 29
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
¡Kuan-yiu! Un verdadero gusto leerte de nuevo.
Responder Con Cita
  #10  
Antiguo 19-02-2020
Avatar de kuan-yiu
[kuan-yiu] kuan-yiu is offline
Miembro Premium
 
Registrado: jun 2006
Ubicación: Galicia. España.
Posts: 1.017
Poder: 19
kuan-yiu Va camino a la fama
Gracias, gracias. Aunque no sea de las que más aporta sino de las que más consulta.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Navegación por pestañas dicatek Gráficos 9 08-06-2006 16:08:18
se puede cambiar el color de la pestaña del PageControl Patricio Varios 2 05-04-2006 17:38:52
Lenguetas o pestañas como en gmail. JXJ Varios 4 20-05-2005 06:15:04
Ocultar pestañas de un PageControl? mrmanuel OOP 2 29-04-2004 17:10:14
Cambiar color de la pestaña de un PageControl acalderonr Varios 2 07-07-2003 04:08:44


La franja horaria es GMT +2. Ahora son las 01:18:00.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi