Ayuda MsgStop() y MsgInfo()

[remtec]

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.

[EBM]

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

[remtec]

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

[cnavarro]

Antonio, Fivewin utiliza el API de Windows que contempla estas funciones, pero no tienen esa característica que comentas.

[remtec]

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

[cnavarro]

Antonio, busca en la carpeta de sources/function el prg MSGGET.PRG
Puedes usar esa function, poniéndole como parámetro oFont y quitándole los parámetros relativos a los gets: lMemo, lPassword
Elimina el código de los GETS y prácticamente lo tienes hecho