Alert no muestra el texto...

[pymsoft]

Al alert no muestra el texto (cMsg), y por lo que veo no es un problema en alert.prg, porque es casi igual a la version 2.3
Hablo de la version 2.7 de Octubre o noviembre/2005.


Gracias.

[Antonio Linares]

Pedro,

El problema viene del uso de un GET en Alert() para mostrar el texto. Esto se ha corregido en parte en el build de Diciembre (con _ hechos en la clase TGet) pero aún hay que hacer más modificaciones porque el GET era editable y hemos optado por deshabilitarlo, y en 32 bits se ve gris...

[pymsoft]

ok. Gracias Antonio, resuelto entonces con un say en vez de un get, hasta que aquí decidan hacer el update de FWH.

[Antonio Linares]

Pedro,

¿ Te importa mostrarnos como lo has modificado ? Gracias.

[pymsoft]

Se que no es la mejor solución, pero para textos no tan largos, va bien. (que al fin y al cabo era lo que yo necesitaba.)
Muestro donde comenté tu codigo y el pequeño cambio que hice. (un GET por un SAY)

/*
DO CASE
CASE lHScroll .and. lVScroll
@ 25, 70 GET oGet VAR cSay OF oDlg READONLY MEMO;
SIZE nWidth, nHeight PIXEL FONT oFont ;
COLOR NIL, GetSysColor( COLOR_BTNFACE ) ;
NOBORDER HSCROLL
CASE lHScroll .and. !lVScroll
@ 25, 70 GET oGet VAR cSay OF oDlg READONLY MEMO;
SIZE nWidth, nHeight PIXEL FONT oFont ;
COLOR NIL, GetSysColor( COLOR_BTNFACE ) ;
NOBORDER HSCROLL NO VSCROLL
CASE !lHScroll .and. lVScroll
@ 25, 70 GET oGet VAR cSay OF oDlg READONLY MEMO;
SIZE nWidth, nHeight PIXEL FONT oFont ;
COLOR NIL, GetSysColor( COLOR_BTNFACE ) ;
NOBORDER
OTHERWISE

@ 25, 70 SAY oGet VAR cSay OF oDlg READONLY MEMO;
SIZE nWidth, nHeight PIXEL FONT oFont ;
COLOR NIL, GetSysColor( COLOR_BTNFACE ) ;
NOBORDER NO VSCROLL
*/
@ 25, 70 SAY oGet VAR cSay OF oDlg;
SIZE nWidth, nHeight PIXEL FONT oFont ;
COLOR NIL, GetSysColor( COLOR_BTNFACE ) // hecho a la carrera porque con GET no se veía. (está solucionado en el build de DIC/2005)

// END CASE[size=9][/size][size=7][/size]


Saludos.

[Antonio Linares]

Pedro,

gracias.