Función Alert() tiene comportamiento extraño

[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

[Antonio Linares]

Joaquín,

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

[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

[Antonio Linares]

Joaquín,

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