Page 1 of 1

Función Alert() tiene comportamiento extraño

Posted: Wed Mar 22, 2006 9:59 am
by jmartial
Hola,

He intentado usar la función Alert() que trae fwh como lo hacía anteriormente en 16b, pero, el mensaje se muestra como deshabilitado con un gris muy clarito que casi no se ve.

Entonces, pensando que por alguna razón demandada por los usuarios se ha puesto así, he copiado la función y le he puesto estas 2 líneas:

oGet:SetColor( CLR_BLACK , GetSysColor( COLOR_BTNFACE ) )
oGet:lDisColors := .F.

Pero la aplicación se queda congelada con la orden oGet:lDisColors := .F.

No sé que ocurre ni como solucionarlo, lo único que quiero es que el usuario vea el texto legible en negro como siempre se ha usado.


Un Saludo,
Joaquín

Posted: Wed Mar 22, 2006 12:21 pm
by Antonio Linares
Joaquín,

Modifica source\function\alert.prg y quita los WHEN .f. que hay.

Posted: Wed Mar 22, 2006 12:48 pm
by jmartial
Antonio,

Así se ve bien, pero se puede seleccionar el texto con el ratón. Que bueno, habrá quien le guste y quien no.

Pero, me queda la duda, ¿porque cascaba poniendo esto? :

oGet:lDisColors := .F.


Si eso es una nueva propiedad de los gets que uso y va bien??

Un Saludo y gracias,
Joaquín

Posted: Wed Mar 22, 2006 5:47 pm
by Antonio Linares
Joaquín,

Es que es un GET multiline (TMultiGet) que no tiene esa DATA.