Hola a todos...

Tengo un problema con un TPagecontrol que tiene las pestañas en la parte de
la izquierda (TabPosition = tpLeft). Si tengo el tema de pantalla como
clásico de Windows (tipo Win2000) no hay ningún problema, pero cuando tengo
el tema activado de WinXP, no se ven los títulos de las pestañas. Tengo
puesto en el form principal un TXPManifest...

Alguien le ha pasado algo similar ? Posibles soluciones ?...

Habitualmente trabajo con WinXP professional, pero con el tema de escritorio
"Clásico de Windows", así que, de estas cosas, tan solo me informan los
clientes que ven más fashion el p*t* tema de Windows XP...

Espero alguna respuesta...

Xavier Seguí

Lo he probado y parece que con "TabPosition = tpLeft" no funciona (no se ven
los títulos de los Tabsheets).

Habrá que buscar (o comprar) otro componente PageControl.

"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:30p6dtF32s3qhU1***uni-berlin.de...
> Hola a todos...
>
> Tengo un problema con un TPagecontrol que tiene las pestañas en la parte
> de la izquierda (TabPosition = tpLeft). Si tengo el tema de pantalla como
> clásico de Windows (tipo Win2000) no hay ningún problema, pero cuando
> tengo el tema activado de WinXP, no se ven los títulos de las pestañas.
> Tengo puesto en el form principal un TXPManifest...
>
> Alguien le ha pasado algo similar ? Posibles soluciones ?...
>
> Habitualmente trabajo con WinXP professional, pero con el tema de
> escritorio "Clásico de Windows", así que, de estas cosas, tan solo me
> informan los clientes que ven más fashion el p*t* tema de Windows XP...
>
> Espero alguna respuesta...
>
> Xavier Seguí
>
>
>
>
>

Lo he probado y parece que con "TabPosition = tpLeft" no funciona (no se ven
los títulos de los Tabsheets).

Habrá que buscar (o comprar) otro componente PageControl.

"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:30p6dtF32s3qhU1***uni-berlin.de...
> Hola a todos...
>
> Tengo un problema con un TPagecontrol que tiene las pestañas en la parte
> de la izquierda (TabPosition = tpLeft). Si tengo el tema de pantalla como
> clásico de Windows (tipo Win2000) no hay ningún problema, pero cuando
> tengo el tema activado de WinXP, no se ven los títulos de las pestañas.
> Tengo puesto en el form principal un TXPManifest...
>
> Alguien le ha pasado algo similar ? Posibles soluciones ?...
>
> Habitualmente trabajo con WinXP professional, pero con el tema de
> escritorio "Clásico de Windows", así que, de estas cosas, tan solo me
> informan los clientes que ven más fashion el p*t* tema de Windows XP...
>
> Espero alguna respuesta...
>
> Xavier Seguí
>
>
>
>
>

Lo he probado y parece que con "TabPosition = tpLeft" no funciona (no se ven
los títulos de los Tabsheets).

Habrá que buscar (o comprar) otro componente PageControl.

"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:30p6dtF32s3qhU1***uni-berlin.de...
> Hola a todos...
>
> Tengo un problema con un TPagecontrol que tiene las pestañas en la parte
> de la izquierda (TabPosition = tpLeft). Si tengo el tema de pantalla como
> clásico de Windows (tipo Win2000) no hay ningún problema, pero cuando
> tengo el tema activado de WinXP, no se ven los títulos de las pestañas.
> Tengo puesto en el form principal un TXPManifest...
>
> Alguien le ha pasado algo similar ? Posibles soluciones ?...
>
> Habitualmente trabajo con WinXP professional, pero con el tema de
> escritorio "Clásico de Windows", así que, de estas cosas, tan solo me
> informan los clientes que ven más fashion el p*t* tema de Windows XP...
>
> Espero alguna respuesta...
>
> Xavier Seguí
>
>
>
>
>

Lo he probado y parece que con "TabPosition = tpLeft" no funciona (no se ven
los títulos de los Tabsheets).

Habrá que buscar (o comprar) otro componente PageControl.

"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:30p6dtF32s3qhU1***uni-berlin.de...
> Hola a todos...
>
> Tengo un problema con un TPagecontrol que tiene las pestañas en la parte
> de la izquierda (TabPosition = tpLeft). Si tengo el tema de pantalla como
> clásico de Windows (tipo Win2000) no hay ningún problema, pero cuando
> tengo el tema activado de WinXP, no se ven los títulos de las pestañas.
> Tengo puesto en el form principal un TXPManifest...
>
> Alguien le ha pasado algo similar ? Posibles soluciones ?...
>
> Habitualmente trabajo con WinXP professional, pero con el tema de
> escritorio "Clásico de Windows", así que, de estas cosas, tan solo me
> informan los clientes que ven más fashion el p*t* tema de Windows XP...
>
> Espero alguna respuesta...
>
> Xavier Seguí
>
>
>
>
>

Lo he probado y parece que con "TabPosition = tpLeft" no funciona (no se ven
los títulos de los Tabsheets).

Habrá que buscar (o comprar) otro componente PageControl.

"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:30p6dtF32s3qhU1***uni-berlin.de...
> Hola a todos...
>
> Tengo un problema con un TPagecontrol que tiene las pestañas en la parte
> de la izquierda (TabPosition = tpLeft). Si tengo el tema de pantalla como
> clásico de Windows (tipo Win2000) no hay ningún problema, pero cuando
> tengo el tema activado de WinXP, no se ven los títulos de las pestañas.
> Tengo puesto en el form principal un TXPManifest...
>
> Alguien le ha pasado algo similar ? Posibles soluciones ?...
>
> Habitualmente trabajo con WinXP professional, pero con el tema de
> escritorio "Clásico de Windows", así que, de estas cosas, tan solo me
> informan los clientes que ven más fashion el p*t* tema de Windows XP...
>
> Espero alguna respuesta...
>
> Xavier Seguí
>
>
>
>
>

Hola Santy...

He estado buscando otros componentes, pero a todos les pasa exactamente lo
mismo... por lo que he decidido poner el OwnerDraw := true y currarme el
evento DrawTab.. Por si a alguien le interesa, os paso la rutina...

---8<---------
procedure TForm2.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);

procedure AngleTextOut(ACanvas: TCanvas; Angle, X, Y: Integer; Str:
string);
var
lf: TLogFont;
newFont, oldFont: HFONT;
begin
lf.lfHeight:=13;
lf.lfWidth:=0;
lf.lfFaceName:='Tahoma';
lf.lfEscapement := Angle*10;
lf.lfItalic:=0;
lf.lfStrikeOut:=0;
lf.lfUnderline:=0;
lf.lfWeight:=0;
lf.lfOrientation := lf.lfEscapement;
lf.lfPitchAndFamily := FIXED_PITCH or FF_DONTCARE;
lf.lfOutPrecision := OUT_TT_PRECIS;
lf.lfQuality := PROOF_QUALITY;

newFont := CreateFontIndirect(lf);
oldFont := SelectObject(ACanvas.Handle, newFont);
SetBkMode(ACanvas.Handle, TRANSPARENT);
//ACanvas.TextOut(x, y, Str);
TextOut(ACanvas.Handle,x,y,PChar(Str),length(Str)) ;
SelectObject(ACanvas.Handle, oldFont);
DeleteObject(newFont);
end;

var
R: TRect;
begin
inherited;
R := Rect;
if TabIndex = (Control as TPageControl).ActivePageIndex then
Inc(R.Top, 2);
Control.Canvas.FillRect(R);
AngleTextOut(Control.Canvas, 90, R.Left+3,R.Bottom-5,(Control as
TPageControl).Pages[TabIndex].Caption);
end;
---8<---------


"Santy Concepción" <SANTYCG*NO_SPAM****terra.es> escribió en el mensaje
news:SmZpd.3968393$A6.12207632***telenews.teleline.e s...
> Lo he probado y parece que con "TabPosition = tpLeft" no funciona (no se
ven
> los títulos de los Tabsheets).
>
> Habrá que buscar (o comprar) otro componente PageControl.
>
> "Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
> news:30p6dtF32s3qhU1***uni-berlin.de...
> > Hola a todos...
> >
> > Tengo un problema con un TPagecontrol que tiene las pestañas en la parte
> > de la izquierda (TabPosition = tpLeft). Si tengo el tema de pantalla
como
> > clásico de Windows (tipo Win2000) no hay ningún problema, pero cuando
> > tengo el tema activado de WinXP, no se ven los títulos de las pestañas.
> > Tengo puesto en el form principal un TXPManifest...
> >
> > Alguien le ha pasado algo similar ? Posibles soluciones ?...
> >
> > Habitualmente trabajo con WinXP professional, pero con el tema de
> > escritorio "Clásico de Windows", así que, de estas cosas, tan solo me
> > informan los clientes que ven más fashion el p*t* tema de Windows XP...
> >
> > Espero alguna respuesta...
> >
> > Xavier Seguí
> >
> >
> >
> >
> >
>
>

Hola Santy...

He estado buscando otros componentes, pero a todos les pasa exactamente lo
mismo... por lo que he decidido poner el OwnerDraw := true y currarme el
evento DrawTab.. Por si a alguien le interesa, os paso la rutina...

---8<---------
procedure TForm2.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);

procedure AngleTextOut(ACanvas: TCanvas; Angle, X, Y: Integer; Str:
string);
var
lf: TLogFont;
newFont, oldFont: HFONT;
begin
lf.lfHeight:=13;
lf.lfWidth:=0;
lf.lfFaceName:='Tahoma';
lf.lfEscapement := Angle*10;
lf.lfItalic:=0;
lf.lfStrikeOut:=0;
lf.lfUnderline:=0;
lf.lfWeight:=0;
lf.lfOrientation := lf.lfEscapement;
lf.lfPitchAndFamily := FIXED_PITCH or FF_DONTCARE;
lf.lfOutPrecision := OUT_TT_PRECIS;
lf.lfQuality := PROOF_QUALITY;

newFont := CreateFontIndirect(lf);
oldFont := SelectObject(ACanvas.Handle, newFont);
SetBkMode(ACanvas.Handle, TRANSPARENT);
//ACanvas.TextOut(x, y, Str);
TextOut(ACanvas.Handle,x,y,PChar(Str),length(Str)) ;
SelectObject(ACanvas.Handle, oldFont);
DeleteObject(newFont);
end;

var
R: TRect;
begin
inherited;
R := Rect;
if TabIndex = (Control as TPageControl).ActivePageIndex then
Inc(R.Top, 2);
Control.Canvas.FillRect(R);
AngleTextOut(Control.Canvas, 90, R.Left+3,R.Bottom-5,(Control as
TPageControl).Pages[TabIndex].Caption);
end;
---8<---------


"Santy Concepción" <SANTYCG*NO_SPAM****terra.es> escribió en el mensaje
news:SmZpd.3968393$A6.12207632***telenews.teleline.e s...
> Lo he probado y parece que con "TabPosition = tpLeft" no funciona (no se
ven
> los títulos de los Tabsheets).
>
> Habrá que buscar (o comprar) otro componente PageControl.
>
> "Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
> news:30p6dtF32s3qhU1***uni-berlin.de...
> > Hola a todos...
> >
> > Tengo un problema con un TPagecontrol que tiene las pestañas en la parte
> > de la izquierda (TabPosition = tpLeft). Si tengo el tema de pantalla
como
> > clásico de Windows (tipo Win2000) no hay ningún problema, pero cuando
> > tengo el tema activado de WinXP, no se ven los títulos de las pestañas.
> > Tengo puesto en el form principal un TXPManifest...
> >
> > Alguien le ha pasado algo similar ? Posibles soluciones ?...
> >
> > Habitualmente trabajo con WinXP professional, pero con el tema de
> > escritorio "Clásico de Windows", así que, de estas cosas, tan solo me
> > informan los clientes que ven más fashion el p*t* tema de Windows XP...
> >
> > Espero alguna respuesta...
> >
> > Xavier Seguí
> >
> >
> >
> >
> >
>
>

Hola Santy...

He estado buscando otros componentes, pero a todos les pasa exactamente lo
mismo... por lo que he decidido poner el OwnerDraw := true y currarme el
evento DrawTab.. Por si a alguien le interesa, os paso la rutina...

---8<---------
procedure TForm2.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);

procedure AngleTextOut(ACanvas: TCanvas; Angle, X, Y: Integer; Str:
string);
var
lf: TLogFont;
newFont, oldFont: HFONT;
begin
lf.lfHeight:=13;
lf.lfWidth:=0;
lf.lfFaceName:='Tahoma';
lf.lfEscapement := Angle*10;
lf.lfItalic:=0;
lf.lfStrikeOut:=0;
lf.lfUnderline:=0;
lf.lfWeight:=0;
lf.lfOrientation := lf.lfEscapement;
lf.lfPitchAndFamily := FIXED_PITCH or FF_DONTCARE;
lf.lfOutPrecision := OUT_TT_PRECIS;
lf.lfQuality := PROOF_QUALITY;

newFont := CreateFontIndirect(lf);
oldFont := SelectObject(ACanvas.Handle, newFont);
SetBkMode(ACanvas.Handle, TRANSPARENT);
//ACanvas.TextOut(x, y, Str);
TextOut(ACanvas.Handle,x,y,PChar(Str),length(Str)) ;
SelectObject(ACanvas.Handle, oldFont);
DeleteObject(newFont);
end;

var
R: TRect;
begin
inherited;
R := Rect;
if TabIndex = (Control as TPageControl).ActivePageIndex then
Inc(R.Top, 2);
Control.Canvas.FillRect(R);
AngleTextOut(Control.Canvas, 90, R.Left+3,R.Bottom-5,(Control as
TPageControl).Pages[TabIndex].Caption);
end;
---8<---------


"Santy Concepción" <SANTYCG*NO_SPAM****terra.es> escribió en el mensaje
news:SmZpd.3968393$A6.12207632***telenews.teleline.e s...
> Lo he probado y parece que con "TabPosition = tpLeft" no funciona (no se
ven
> los títulos de los Tabsheets).
>
> Habrá que buscar (o comprar) otro componente PageControl.
>
> "Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
> news:30p6dtF32s3qhU1***uni-berlin.de...
> > Hola a todos...
> >
> > Tengo un problema con un TPagecontrol que tiene las pestañas en la parte
> > de la izquierda (TabPosition = tpLeft). Si tengo el tema de pantalla
como
> > clásico de Windows (tipo Win2000) no hay ningún problema, pero cuando
> > tengo el tema activado de WinXP, no se ven los títulos de las pestañas.
> > Tengo puesto en el form principal un TXPManifest...
> >
> > Alguien le ha pasado algo similar ? Posibles soluciones ?...
> >
> > Habitualmente trabajo con WinXP professional, pero con el tema de
> > escritorio "Clásico de Windows", así que, de estas cosas, tan solo me
> > informan los clientes que ven más fashion el p*t* tema de Windows XP...
> >
> > Espero alguna respuesta...
> >
> > Xavier Seguí
> >
> >
> >
> >
> >
>
>

Hola Santy...

He estado buscando otros componentes, pero a todos les pasa exactamente lo
mismo... por lo que he decidido poner el OwnerDraw := true y currarme el
evento DrawTab.. Por si a alguien le interesa, os paso la rutina...

---8<---------
procedure TForm2.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);

procedure AngleTextOut(ACanvas: TCanvas; Angle, X, Y: Integer; Str:
string);
var
lf: TLogFont;
newFont, oldFont: HFONT;
begin
lf.lfHeight:=13;
lf.lfWidth:=0;
lf.lfFaceName:='Tahoma';
lf.lfEscapement := Angle*10;
lf.lfItalic:=0;
lf.lfStrikeOut:=0;
lf.lfUnderline:=0;
lf.lfWeight:=0;
lf.lfOrientation := lf.lfEscapement;
lf.lfPitchAndFamily := FIXED_PITCH or FF_DONTCARE;
lf.lfOutPrecision := OUT_TT_PRECIS;
lf.lfQuality := PROOF_QUALITY;

newFont := CreateFontIndirect(lf);
oldFont := SelectObject(ACanvas.Handle, newFont);
SetBkMode(ACanvas.Handle, TRANSPARENT);
//ACanvas.TextOut(x, y, Str);
TextOut(ACanvas.Handle,x,y,PChar(Str),length(Str)) ;
SelectObject(ACanvas.Handle, oldFont);
DeleteObject(newFont);
end;

var
R: TRect;
begin
inherited;
R := Rect;
if TabIndex = (Control as TPageControl).ActivePageIndex then
Inc(R.Top, 2);
Control.Canvas.FillRect(R);
AngleTextOut(Control.Canvas, 90, R.Left+3,R.Bottom-5,(Control as
TPageControl).Pages[TabIndex].Caption);
end;
---8<---------


"Santy Concepción" <SANTYCG*NO_SPAM****terra.es> escribió en el mensaje
news:SmZpd.3968393$A6.12207632***telenews.teleline.e s...
> Lo he probado y parece que con "TabPosition = tpLeft" no funciona (no se
ven
> los títulos de los Tabsheets).
>
> Habrá que buscar (o comprar) otro componente PageControl.
>
> "Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
> news:30p6dtF32s3qhU1***uni-berlin.de...
> > Hola a todos...
> >
> > Tengo un problema con un TPagecontrol que tiene las pestañas en la parte
> > de la izquierda (TabPosition = tpLeft). Si tengo el tema de pantalla
como
> > clásico de Windows (tipo Win2000) no hay ningún problema, pero cuando
> > tengo el tema activado de WinXP, no se ven los títulos de las pestañas.
> > Tengo puesto en el form principal un TXPManifest...
> >
> > Alguien le ha pasado algo similar ? Posibles soluciones ?...
> >
> > Habitualmente trabajo con WinXP professional, pero con el tema de
> > escritorio "Clásico de Windows", así que, de estas cosas, tan solo me
> > informan los clientes que ven más fashion el p*t* tema de Windows XP...
> >
> > Espero alguna respuesta...
> >
> > Xavier Seguí
> >
> >
> >
> >
> >
>
>