Problema TGet y Temas XP

[jmartial]

Hola,

Los Tget con temas XP se pintan con un borde azul intenso y ya no se pintan en 3D como antiguamente, pero se me da un caso en el que el TGet no coge el estilo XP. Todo desde código, sin usar WS:

DEFINE DIALOG oDlg FROM 0,0 TO 200,200 PIXEL TITLE "Con XP" ;
OF oWnd TRANSPARENT

@1, 5 GROUP oG1 TO 150,150 PROMPT "Group" TRANSPARENT;
PIXEl OF oDlg

@ 10,10 GET oGet VAR uVar OF ( si pongo oDlg sale en 3D sin temas, si pongo oG1 sale bien con temas)

Se podría usar OF oG1, pero como existen más controles fuera del groupbox, ya no se puede navegar a través de ellos con flecha, Tab o Return.


Un Saludo,
Joaquín

[jmartial]

Antonio,

He encontrado el problema mucho más simplificado, un diálogo y un get desde código, el get toma el borde azul de XP pero además el efecto 3D antiguo.


//----------- Esto se ve mal, en 3D como en antiguos windows ------------
//---------------------------------------------------------------------------------
DEFINE DIALOG oDlg FROM 0,0 TO 200,200 PIXEL TITLE "Con XP" OF oWnd TRANSPARENT

ACTIVATE DIALOG oDlg ON INIT CreaGet(oDlg)

Function CreaGet(oDlg)
Local uVar := Date()
@ 20,20 GET oGet VAR uVar SIZE 100,24 PIXEL OF oDlg

Return Nil

//-----------


//----------- Esto se ve bien en XP, pero las medidas no son pixeles sino
//---- unidades de diálogo, por lo cual no me sirve ------------------------
Local uVar := Date()

DEFINE DIALOG oDlg FROM 0,0 TO 200,200 PIXEL TITLE "Con XP" OF oWnd TRANSPARENT


@ 20,20 GET oGet VAR uVar SIZE 100,24 PIXEL OF oDlg


ACTIVATE DIALOG oDlg
//-----------

¿ Cual es la solución? ¿Pintar desde código en pixeles y que los Gets se vean estilo moderno XP ?


Un Saludo,
Joaquín

[Antonio Linares]

Joaquín,

No uses la claúsula TRANSPARENT. Solo debe usarse si se va a usar un brush con bitmap de fondo.

[jmartial]

Antonio,

Comprobado, con o sin clausula TRANSPARENT, se pintan mal los TGet's.

Un Saludo,
Joaquín

[jmartial]

Antonio,

¿ Está en mi mano algún método para solucionarlo?

Un Saludo,
Joaquín

[Manuel Valdenebro]

Antonio,

A mi me ocurre lo mismo. No sólo se pierde el efecto 3D en los Get, sino tambien en los folders.

[Antonio Linares]

Vamos a revisarlo,

[karinha]

Vamos a revisarlo,

Maestro Antonio, ya tiene alguna solucion para GET con TEMAS e BORDE.

Uso Fivewin 2.7

Saludos.

[Antonio Linares]

João,

Tienes que crear el diálogo completo desde recursos ó definir todos sus controles desde código antes de llamar a ACTIVATE DIALOG.

[karinha]

João,

Tienes que crear el diálogo completo desde recursos ó definir todos sus controles desde código antes de llamar a ACTIVATE DIALOG.

Maestro, creo no me hice entender,

Mira este ejemplo:

Mis GETS, estan com TEMAS XP, mas no tiene las BORDAS(Bordes).

http://fivetechsoft.com/forums/viewtopi ... ight=color

DEFINO TODOS LOS GETS CON BORDER EN EL RECURSO.

Solo uso WORKSHOP.EXE nada mas... No me gusta @Say...

El Efecto 3D que en 16 bits era mui belo, en 32 bits no tiene??

Antiguamente usava SET 3DLOOK ON Para activar el efecto 3D del get y ahora?

Best regards, Maestro.

[karinha]

Gran Maestro Antonio, Nada??

[Antonio Linares]

João,

Si usas temas, el efecto 3D es muy suave y además hay un borde de otro color.

Por favor prueba fwh\samples\TestGet2.prg para que veas como se ve

[karinha]

João,

Si usas temas, el efecto 3D es muy suave y además hay un borde de otro color.

Por favor prueba fwh\samples\TestGet2.prg para que veas como se ve

No TESTGET2.PRG no tiene EFECTO 3D Nim BORDAS(Borders).

Maestro, talbez, el Windows XP, no permita:

Mira como deberia seer:




Best regards

[karinha]

Maestro, nos és posible???