FiveTech Support Forums

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.

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 los cambios 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...

Pedro,

¿ Te importa mostrarnos como lo has modificado ? Gracias.

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


Saludos.

Pedro,

gracias.