Hola a todos.

Tengo un problema con un TPageControl y los temas activos de WinXp. Cuando
la longitud de las pestañas es superior al tamaño del PageControl, aparecen
las barras de desplazamiento (dos botones con flechas derecha e izquierda).
El problema està en que al dibujar la pestaña, en la parte inferior de dicha
pestaña, aparece un recuadro en blanco que no me muestra los controles que
hay en su interior. Alguien tiene alguna solución ?

Un saludo.

Xavier

Uff vaya, estas usando el componente de XP style?
Endonces tu estas creando en tiempo de ejecución el TPageControl? y asiganas
a los componentes que estan dentro de que el Parent es el TpageControl?
Estan los controles a visible?

Respondelas ó mandame el código para ver el fallo. oK
Saludos
Rob

"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:4321c7ed$0$18647$14726298***news.sunsite.dk...
>
> Hola a todos.
>
> Tengo un problema con un TPageControl y los temas activos de WinXp. Cuando
> la longitud de las pestañas es superior al tamaño del PageControl,
> aparecen las barras de desplazamiento (dos botones con flechas derecha e
> izquierda). El problema està en que al dibujar la pestaña, en la parte
> inferior de dicha pestaña, aparece un recuadro en blanco que no me muestra
> los controles que hay en su interior. Alguien tiene alguna solución ?
>
> Un saludo.
>
> Xavier
>
>

Uff vaya, estas usando el componente de XP style?
Endonces tu estas creando en tiempo de ejecución el TPageControl? y asiganas
a los componentes que estan dentro de que el Parent es el TpageControl?
Estan los controles a visible?

Respondelas ó mandame el código para ver el fallo. oK
Saludos
Rob

"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:4321c7ed$0$18647$14726298***news.sunsite.dk...
>
> Hola a todos.
>
> Tengo un problema con un TPageControl y los temas activos de WinXp. Cuando
> la longitud de las pestañas es superior al tamaño del PageControl,
> aparecen las barras de desplazamiento (dos botones con flechas derecha e
> izquierda). El problema està en que al dibujar la pestaña, en la parte
> inferior de dicha pestaña, aparece un recuadro en blanco que no me muestra
> los controles que hay en su interior. Alguien tiene alguna solución ?
>
> Un saludo.
>
> Xavier
>
>

Uff vaya, estas usando el componente de XP style?
Endonces tu estas creando en tiempo de ejecución el TPageControl? y asiganas
a los componentes que estan dentro de que el Parent es el TpageControl?
Estan los controles a visible?

Respondelas ó mandame el código para ver el fallo. oK
Saludos
Rob

"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:4321c7ed$0$18647$14726298***news.sunsite.dk...
>
> Hola a todos.
>
> Tengo un problema con un TPageControl y los temas activos de WinXp. Cuando
> la longitud de las pestañas es superior al tamaño del PageControl,
> aparecen las barras de desplazamiento (dos botones con flechas derecha e
> izquierda). El problema està en que al dibujar la pestaña, en la parte
> inferior de dicha pestaña, aparece un recuadro en blanco que no me muestra
> los controles que hay en su interior. Alguien tiene alguna solución ?
>
> Un saludo.
>
> Xavier
>
>

Uff vaya, estas usando el componente de XP style?
Endonces tu estas creando en tiempo de ejecución el TPageControl? y asiganas
a los componentes que estan dentro de que el Parent es el TpageControl?
Estan los controles a visible?

Respondelas ó mandame el código para ver el fallo. oK
Saludos
Rob

"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:4321c7ed$0$18647$14726298***news.sunsite.dk...
>
> Hola a todos.
>
> Tengo un problema con un TPageControl y los temas activos de WinXp. Cuando
> la longitud de las pestañas es superior al tamaño del PageControl,
> aparecen las barras de desplazamiento (dos botones con flechas derecha e
> izquierda). El problema està en que al dibujar la pestaña, en la parte
> inferior de dicha pestaña, aparece un recuadro en blanco que no me muestra
> los controles que hay en su interior. Alguien tiene alguna solución ?
>
> Un saludo.
>
> Xavier
>
>

Uff vaya, estas usando el componente de XP style?
Endonces tu estas creando en tiempo de ejecución el TPageControl? y asiganas
a los componentes que estan dentro de que el Parent es el TpageControl?
Estan los controles a visible?

Respondelas ó mandame el código para ver el fallo. oK
Saludos
Rob

"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:4321c7ed$0$18647$14726298***news.sunsite.dk...
>
> Hola a todos.
>
> Tengo un problema con un TPageControl y los temas activos de WinXp. Cuando
> la longitud de las pestañas es superior al tamaño del PageControl,
> aparecen las barras de desplazamiento (dos botones con flechas derecha e
> izquierda). El problema està en que al dibujar la pestaña, en la parte
> inferior de dicha pestaña, aparece un recuadro en blanco que no me muestra
> los controles que hay en su interior. Alguien tiene alguna solución ?
>
> Un saludo.
>
> Xavier
>
>

Efectivamente.

Creo las pestañas del TPageControl en tiempo de ejecución. y en el mainForm
tiene un XPManifest...
Los controles que se insertan aparecen todos, exceptuando los que están
justo debajo de los botoncitos <> que no aparecen (solo la parte que está
justo debajo de las flechas). El parent está asignado correctamente, y el
valor visible:=True...

No uso ningún componente XP Style ? Cuál es el componente que me comentas ?
Me olvidé.. estoy trabajando con D7. y sólo ocurre cuando hay algún tema de
Windows XP activo (si está el escritorio con el fondo "clasico de windows"
que copia el aspecto de Win2000 este efecto no ocurre).

Un saludo y gracias por responder.

Xavier

PD: Este es parte del código ...

while not(Direccions.EOF) do begin
CrearNuevaDireccion; --> Procedimiento que crea las
pestañas...
Direccions.Next;
end;


procedure TFrmContactos.CrearNuevaDireccion;
var
i:Integer;
TabSheet:TTabSheet;
begin
if DireccionsID.AsInteger > 0 then begin
TabSheet:=TTabSheet.Create(self);
with TabSheet do
begin
Parent:=TotDireccio; //Totdirecció es el TPageControl
Tag:=DireccionsID.AsInteger;
//Name:=DireccionsDENOMINACION.AsString;
PageControl := TotDireccio;

PageIndex:=Tag;
Caption := Trim(DireccionsDENOMINACION.AsString);
PopUpMenu:=PrincipalPage.PopupMenu;
for i:=0 to PrincipalPage.ControlCount-1 do begin
if PrincipalPage.Controls[i] is TwwDBEdit then begin
With TwwDBEdit.Create(self) do begin
Visible:=True;
Parent:=TabSheet;
Left:=PrincipalPage.Controls[i].Left;
Top:=PrincipalPage.Controls[i].Top;
Width:=PrincipalPage.Controls[i].Width;
Height:=PrincipalPage.Controls[i].Height;
AutoSize:=(PrincipalPage.Controls[i] as TwwDBEdit).AutoSize;
DataSource:=(PrincipalPage.Controls[i] as TwwDBEdit).DataSource;
DataField:=(PrincipalPage.Controls[i] as TwwDBEdit).DataField;
OnChange:=(PrincipalPage.Controls[i] as TwwDBEdit).OnChange;
OnEnter:=(PrincipalPage.Controls[i] as TwwDBEdit).OnEnter;
OnExit:=(PrincipalPage.Controls[i] as TwwDBEdit).OnExit;
TabOrder:=(PrincipalPage.Controls[i] as TwwDBEdit).TabOrder;
WordWrap:=(PrincipalPage.Controls[i] as TwwDBEdit).WordWrap;
MaxLength:=(PrincipalPage.Controls[i] as TwwDBEdit).MaxLength;
end;
---
Aquí se crean el resto de controles según los que están en la página
principal (que no se crea en tiempo de ejecución)




"Roberto Valverde" <roberto_valverde***terra.es> escribió en el mensaje
news:LgxUe.3695241$I96.4156646***telenews.teleline.e s...
>
> Uff vaya, estas usando el componente de XP style?
> Endonces tu estas creando en tiempo de ejecución el TPageControl? y
> asiganas a los componentes que estan dentro de que el Parent es el
> TpageControl? Estan los controles a visible?
>
> Respondelas ó mandame el código para ver el fallo. oK
> Saludos
> Rob
>
> "Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
> news:4321c7ed$0$18647$14726298***news.sunsite.dk...
>>
>> Hola a todos.
>>
>> Tengo un problema con un TPageControl y los temas activos de WinXp.
>> Cuando la longitud de las pestañas es superior al tamaño del PageControl,
>> aparecen las barras de desplazamiento (dos botones con flechas derecha e
>> izquierda). El problema està en que al dibujar la pestaña, en la parte
>> inferior de dicha pestaña, aparece un recuadro en blanco que no me
>> muestra los controles que hay en su interior. Alguien tiene alguna
>> solución ?
>>
>> Un saludo.
>>
>> Xavier
>>
>>
>
>
>

Efectivamente.

Creo las pestañas del TPageControl en tiempo de ejecución. y en el mainForm
tiene un XPManifest...
Los controles que se insertan aparecen todos, exceptuando los que están
justo debajo de los botoncitos <> que no aparecen (solo la parte que está
justo debajo de las flechas). El parent está asignado correctamente, y el
valor visible:=True...

No uso ningún componente XP Style ? Cuál es el componente que me comentas ?
Me olvidé.. estoy trabajando con D7. y sólo ocurre cuando hay algún tema de
Windows XP activo (si está el escritorio con el fondo "clasico de windows"
que copia el aspecto de Win2000 este efecto no ocurre).

Un saludo y gracias por responder.

Xavier

PD: Este es parte del código ...

while not(Direccions.EOF) do begin
CrearNuevaDireccion; --> Procedimiento que crea las
pestañas...
Direccions.Next;
end;


procedure TFrmContactos.CrearNuevaDireccion;
var
i:Integer;
TabSheet:TTabSheet;
begin
if DireccionsID.AsInteger > 0 then begin
TabSheet:=TTabSheet.Create(self);
with TabSheet do
begin
Parent:=TotDireccio; //Totdirecció es el TPageControl
Tag:=DireccionsID.AsInteger;
//Name:=DireccionsDENOMINACION.AsString;
PageControl := TotDireccio;

PageIndex:=Tag;
Caption := Trim(DireccionsDENOMINACION.AsString);
PopUpMenu:=PrincipalPage.PopupMenu;
for i:=0 to PrincipalPage.ControlCount-1 do begin
if PrincipalPage.Controls[i] is TwwDBEdit then begin
With TwwDBEdit.Create(self) do begin
Visible:=True;
Parent:=TabSheet;
Left:=PrincipalPage.Controls[i].Left;
Top:=PrincipalPage.Controls[i].Top;
Width:=PrincipalPage.Controls[i].Width;
Height:=PrincipalPage.Controls[i].Height;
AutoSize:=(PrincipalPage.Controls[i] as TwwDBEdit).AutoSize;
DataSource:=(PrincipalPage.Controls[i] as TwwDBEdit).DataSource;
DataField:=(PrincipalPage.Controls[i] as TwwDBEdit).DataField;
OnChange:=(PrincipalPage.Controls[i] as TwwDBEdit).OnChange;
OnEnter:=(PrincipalPage.Controls[i] as TwwDBEdit).OnEnter;
OnExit:=(PrincipalPage.Controls[i] as TwwDBEdit).OnExit;
TabOrder:=(PrincipalPage.Controls[i] as TwwDBEdit).TabOrder;
WordWrap:=(PrincipalPage.Controls[i] as TwwDBEdit).WordWrap;
MaxLength:=(PrincipalPage.Controls[i] as TwwDBEdit).MaxLength;
end;
---
Aquí se crean el resto de controles según los que están en la página
principal (que no se crea en tiempo de ejecución)




"Roberto Valverde" <roberto_valverde***terra.es> escribió en el mensaje
news:LgxUe.3695241$I96.4156646***telenews.teleline.e s...
>
> Uff vaya, estas usando el componente de XP style?
> Endonces tu estas creando en tiempo de ejecución el TPageControl? y
> asiganas a los componentes que estan dentro de que el Parent es el
> TpageControl? Estan los controles a visible?
>
> Respondelas ó mandame el código para ver el fallo. oK
> Saludos
> Rob
>
> "Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
> news:4321c7ed$0$18647$14726298***news.sunsite.dk...
>>
>> Hola a todos.
>>
>> Tengo un problema con un TPageControl y los temas activos de WinXp.
>> Cuando la longitud de las pestañas es superior al tamaño del PageControl,
>> aparecen las barras de desplazamiento (dos botones con flechas derecha e
>> izquierda). El problema està en que al dibujar la pestaña, en la parte
>> inferior de dicha pestaña, aparece un recuadro en blanco que no me
>> muestra los controles que hay en su interior. Alguien tiene alguna
>> solución ?
>>
>> Un saludo.
>>
>> Xavier
>>
>>
>
>
>

Efectivamente.

Creo las pestañas del TPageControl en tiempo de ejecución. y en el mainForm
tiene un XPManifest...
Los controles que se insertan aparecen todos, exceptuando los que están
justo debajo de los botoncitos <> que no aparecen (solo la parte que está
justo debajo de las flechas). El parent está asignado correctamente, y el
valor visible:=True...

No uso ningún componente XP Style ? Cuál es el componente que me comentas ?
Me olvidé.. estoy trabajando con D7. y sólo ocurre cuando hay algún tema de
Windows XP activo (si está el escritorio con el fondo "clasico de windows"
que copia el aspecto de Win2000 este efecto no ocurre).

Un saludo y gracias por responder.

Xavier

PD: Este es parte del código ...

while not(Direccions.EOF) do begin
CrearNuevaDireccion; --> Procedimiento que crea las
pestañas...
Direccions.Next;
end;


procedure TFrmContactos.CrearNuevaDireccion;
var
i:Integer;
TabSheet:TTabSheet;
begin
if DireccionsID.AsInteger > 0 then begin
TabSheet:=TTabSheet.Create(self);
with TabSheet do
begin
Parent:=TotDireccio; //Totdirecció es el TPageControl
Tag:=DireccionsID.AsInteger;
//Name:=DireccionsDENOMINACION.AsString;
PageControl := TotDireccio;

PageIndex:=Tag;
Caption := Trim(DireccionsDENOMINACION.AsString);
PopUpMenu:=PrincipalPage.PopupMenu;
for i:=0 to PrincipalPage.ControlCount-1 do begin
if PrincipalPage.Controls[i] is TwwDBEdit then begin
With TwwDBEdit.Create(self) do begin
Visible:=True;
Parent:=TabSheet;
Left:=PrincipalPage.Controls[i].Left;
Top:=PrincipalPage.Controls[i].Top;
Width:=PrincipalPage.Controls[i].Width;
Height:=PrincipalPage.Controls[i].Height;
AutoSize:=(PrincipalPage.Controls[i] as TwwDBEdit).AutoSize;
DataSource:=(PrincipalPage.Controls[i] as TwwDBEdit).DataSource;
DataField:=(PrincipalPage.Controls[i] as TwwDBEdit).DataField;
OnChange:=(PrincipalPage.Controls[i] as TwwDBEdit).OnChange;
OnEnter:=(PrincipalPage.Controls[i] as TwwDBEdit).OnEnter;
OnExit:=(PrincipalPage.Controls[i] as TwwDBEdit).OnExit;
TabOrder:=(PrincipalPage.Controls[i] as TwwDBEdit).TabOrder;
WordWrap:=(PrincipalPage.Controls[i] as TwwDBEdit).WordWrap;
MaxLength:=(PrincipalPage.Controls[i] as TwwDBEdit).MaxLength;
end;
---
Aquí se crean el resto de controles según los que están en la página
principal (que no se crea en tiempo de ejecución)




"Roberto Valverde" <roberto_valverde***terra.es> escribió en el mensaje
news:LgxUe.3695241$I96.4156646***telenews.teleline.e s...
>
> Uff vaya, estas usando el componente de XP style?
> Endonces tu estas creando en tiempo de ejecución el TPageControl? y
> asiganas a los componentes que estan dentro de que el Parent es el
> TpageControl? Estan los controles a visible?
>
> Respondelas ó mandame el código para ver el fallo. oK
> Saludos
> Rob
>
> "Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
> news:4321c7ed$0$18647$14726298***news.sunsite.dk...
>>
>> Hola a todos.
>>
>> Tengo un problema con un TPageControl y los temas activos de WinXp.
>> Cuando la longitud de las pestañas es superior al tamaño del PageControl,
>> aparecen las barras de desplazamiento (dos botones con flechas derecha e
>> izquierda). El problema està en que al dibujar la pestaña, en la parte
>> inferior de dicha pestaña, aparece un recuadro en blanco que no me
>> muestra los controles que hay en su interior. Alguien tiene alguna
>> solución ?
>>
>> Un saludo.
>>
>> Xavier
>>
>>
>
>
>

Efectivamente.

Creo las pestañas del TPageControl en tiempo de ejecución. y en el mainForm
tiene un XPManifest...
Los controles que se insertan aparecen todos, exceptuando los que están
justo debajo de los botoncitos <> que no aparecen (solo la parte que está
justo debajo de las flechas). El parent está asignado correctamente, y el
valor visible:=True...

No uso ningún componente XP Style ? Cuál es el componente que me comentas ?
Me olvidé.. estoy trabajando con D7. y sólo ocurre cuando hay algún tema de
Windows XP activo (si está el escritorio con el fondo "clasico de windows"
que copia el aspecto de Win2000 este efecto no ocurre).

Un saludo y gracias por responder.

Xavier

PD: Este es parte del código ...

while not(Direccions.EOF) do begin
CrearNuevaDireccion; --> Procedimiento que crea las
pestañas...
Direccions.Next;
end;


procedure TFrmContactos.CrearNuevaDireccion;
var
i:Integer;
TabSheet:TTabSheet;
begin
if DireccionsID.AsInteger > 0 then begin
TabSheet:=TTabSheet.Create(self);
with TabSheet do
begin
Parent:=TotDireccio; //Totdirecció es el TPageControl
Tag:=DireccionsID.AsInteger;
//Name:=DireccionsDENOMINACION.AsString;
PageControl := TotDireccio;

PageIndex:=Tag;
Caption := Trim(DireccionsDENOMINACION.AsString);
PopUpMenu:=PrincipalPage.PopupMenu;
for i:=0 to PrincipalPage.ControlCount-1 do begin
if PrincipalPage.Controls[i] is TwwDBEdit then begin
With TwwDBEdit.Create(self) do begin
Visible:=True;
Parent:=TabSheet;
Left:=PrincipalPage.Controls[i].Left;
Top:=PrincipalPage.Controls[i].Top;
Width:=PrincipalPage.Controls[i].Width;
Height:=PrincipalPage.Controls[i].Height;
AutoSize:=(PrincipalPage.Controls[i] as TwwDBEdit).AutoSize;
DataSource:=(PrincipalPage.Controls[i] as TwwDBEdit).DataSource;
DataField:=(PrincipalPage.Controls[i] as TwwDBEdit).DataField;
OnChange:=(PrincipalPage.Controls[i] as TwwDBEdit).OnChange;
OnEnter:=(PrincipalPage.Controls[i] as TwwDBEdit).OnEnter;
OnExit:=(PrincipalPage.Controls[i] as TwwDBEdit).OnExit;
TabOrder:=(PrincipalPage.Controls[i] as TwwDBEdit).TabOrder;
WordWrap:=(PrincipalPage.Controls[i] as TwwDBEdit).WordWrap;
MaxLength:=(PrincipalPage.Controls[i] as TwwDBEdit).MaxLength;
end;
---
Aquí se crean el resto de controles según los que están en la página
principal (que no se crea en tiempo de ejecución)




"Roberto Valverde" <roberto_valverde***terra.es> escribió en el mensaje
news:LgxUe.3695241$I96.4156646***telenews.teleline.e s...
>
> Uff vaya, estas usando el componente de XP style?
> Endonces tu estas creando en tiempo de ejecución el TPageControl? y
> asiganas a los componentes que estan dentro de que el Parent es el
> TpageControl? Estan los controles a visible?
>
> Respondelas ó mandame el código para ver el fallo. oK
> Saludos
> Rob
>
> "Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
> news:4321c7ed$0$18647$14726298***news.sunsite.dk...
>>
>> Hola a todos.
>>
>> Tengo un problema con un TPageControl y los temas activos de WinXp.
>> Cuando la longitud de las pestañas es superior al tamaño del PageControl,
>> aparecen las barras de desplazamiento (dos botones con flechas derecha e
>> izquierda). El problema està en que al dibujar la pestaña, en la parte
>> inferior de dicha pestaña, aparece un recuadro en blanco que no me
>> muestra los controles que hay en su interior. Alguien tiene alguna
>> solución ?
>>
>> Un saludo.
>>
>> Xavier
>>
>>
>
>
>