by jmartial » Thu Apr 20, 2006 10:48 am
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