Page 1 of 1
Ayuda MsgStop() y MsgInfo()
Posted: Thu Dec 05, 2019 1:38 am
by 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.
Re: Ayuda MsgStop() y MsgInfo()
Posted: Thu Dec 05, 2019 9:04 pm
by 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
Re: Ayuda MsgStop() y MsgInfo()
Posted: Thu Dec 05, 2019 9:39 pm
by 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
Re: Ayuda MsgStop() y MsgInfo()
Posted: Thu Dec 05, 2019 9:59 pm
by cnavarro
Antonio, Fivewin utiliza el API de Windows que contempla estas funciones, pero no tienen esa característica que comentas.
Re: Ayuda MsgStop() y MsgInfo()
Posted: Thu Dec 05, 2019 10:44 pm
by 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
Re: Ayuda MsgStop() y MsgInfo()
Posted: Thu Dec 05, 2019 11:34 pm
by 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