Page 1 of 1

Alert no muestra el texto...

Posted: Fri Dec 16, 2005 5:20 pm
by 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.

Posted: Sat Dec 17, 2005 5:43 am
by 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... :)

Posted: Mon Dec 19, 2005 10:28 am
by pymsoft
ok. Gracias Antonio, resuelto entonces con un say en vez de un get, hasta que aquí decidan hacer el update de FWH.

Posted: Mon Dec 19, 2005 4:33 pm
by Antonio Linares
Pedro,

¿ Te importa mostrarnos como lo has modificado ? Gracias.

Posted: Tue Dec 20, 2005 9:06 am
by 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.

Posted: Tue Dec 20, 2005 10:25 am
by Antonio Linares
Pedro,

gracias.