TabControl

[Cañones]

Hola a todos.
Estoy arreglando un viejo sistema que hice en Delphi 6 y necesito de la ayuda de ustedes para saber si se puede realizar lo siguiente.
El sistema de para el control de un restaurante y con un TabControl manejo las mesas.
Cada Tab es una de las mesas el cual muestra el nombre de la misma.
Ahora lo que quiero hacer es mejorar un poco la interfaz cosa que de un solo vistazo se vea un poco más de datos de cada mesa.
Para ello quiero hacer que el Caption del Tab sea de varios renglones en el cual pongo el nombre de la mesa, el mozo, y la cantidad de comensales, cada uno en un renglón distinto.
Espero que me puedan ayudar o bien aportar sus ideas.

Desde ya muchas gracias por su tiempo.

Saludos.
Cañones.

[cocute]

si por renglones te refieres a líneas podrías darle al
pagecontro1.tabheight más tamaño, 70 por ejemplo.
y luego añadir lineas al caption con salto de linea:

TabSheet1.Caption:=nombredemesa1+#10#13+mozo1+#10#13+nºcomensales;

[Neftali [Germán.Estévez]]

Tal vez en el caption puedas mostrar más de una línea (creo recordar que lo he intentado alguna vez y no ha sido posible), de todas formas, el alto es fijo, así que dudo que se vea correctamente.
La solución creo que puede ir por activar el OwnerDraw del PageControl y encargarte tú de todo el redibujado de las pestañas.
Más trabajo, pero creo que va a ser la única forma de conseguirlo.

[cocute]

Empezado por Neftali

Tal vez en el caption puedas mostrar más de una línea (creo recordar que lo he intentado alguna vez y no ha sido posible), de todas formas, el alto es fijo, así que dudo que se vea correctamente.

el alto no es fijo, está el pagecontrol.tabheight como he dicho antes (al menos en mi versión de Delphi).
Poniendo el salto de linea se puede hacer sin ningún problema.

Lo que no me gusta es que el texto se alinea desde el centro hacia abajo y no queda muy estético, no se si se puede quitar la parte de arriba.

Con el pagecontrol de los Almdev queda mejor:
En estos hay que activar la propiedad TadExtendedDraw del pagecontrol:

(otro punto para estos fantásticos componentes)

[Neftali [Germán.Estévez]]

Empezado por cocute

el alto no es fijo, está el pagecontrol.tabheight como he dicho antes (al menos en mi versión de Delphi).
Poniendo el salto de linea se puede hacer sin ningún problema.

Tienes razón cocute, con el TabHeight, no lo recordaba; Lo que no he conseguido es el salto de línea. He probado en Delphi6 y Delphi2009 y no hay manera. Eso es lo que me sonaba que había probado alguna vez...
¿Qué versión estás utilizando?

[cocute]

yo solo lo habia probado con el delphi 2010.

por cierto es lo mismo #10#13 que #13#10 ¿no?
al menos a mi me funciona de las dos formas.