FiveTech Support Forums

Hola Amigo

Tengo un requerimiento o reclamo de Usuario.

Existe alguna posibilidad de Hacer mas Visible los mensajes mostrados por " MsgStop() y MsgInfo() ", lamentablemente las letras son muy pequeñas?

Muchos Saludos

Antonio.

Hola Antonio,

Yo tuve ese mismo requerimiento hace tiempo de un cliente y lo solucioné simplemente reescribiendo la funcion MsgStop:

////////////////////////////////////////////////////////////////////////////////////////////////////////
FUNCTION MsgStop( cTexto, cTitulo )
LOCAL oDlg, aBoton[ 2 ], oIcon, oSay

DEFINE DIALOG oDlg ;
RESOURCE "MSGSTOP" ;
OF oPublic:oWnd ;
TITLE cTitulo ;
FONT oPublic:aFont[ 2 ]

REDEFINE XIMAGE oIcon ;
ID 101 ;
OF oDlg ;
RESOURCE "STOP"
oIcon:lTransparent := .t.

REDEFINE SAY oSay ;
VAR cTexto ;
ID 102 ;
OF oDlg ;
FONT oPublic:aFont[ 2 ]

REDEFINE BUTTONBMP aBoton[ 1 ] ;
PROMPT "Aceptar " ;
RESOURCE "BTN_OK" ;
TEXTRIGHT ;
ID 1 ;
OF oDlg ;
ACTION ( oDlg:End() )
aBoton[ 1 ]:lDefault := .t.

ACTIVATE DIALOG oDlg CENTERED ON INIT SndPlaySound( ".\SONIDOS\ERROR.WAV" )

Return .t.


Espero y te ayude

Saludos

Eduardo Borondón Muñiz

Hola Eduardo

Muchas gracias por responder y por tu atención.

Haré uso de código, para solucionar mi problema.

Aunque me parece extraño que este requerimiento no sea algo comun.

Muchos Saludos

Antonio

Hola Cristobal.

Muchas gracias por responder.

Entiendo tu explicación, no había tenido problemas, pero hoy me han reclamado algunos clientes porque sus usuarios, les cuesta ver el mensaje y es por el tamaño de sus Font, viendo en windows 10, entiendo sus observaciones y tendré que realizar los ajustes requeridos.

Muchos Saludos

Antonio