FiveTech Software tech support forums

#include "FiveWin.ch"function Main()    MsgStop( "This is a test" )return nil static function MsgStop( cMsg )    local oDlg, oFont      DEFINE FONT oFont NAME "Verdana" BOLD SIZE 0, -12    DEFINE ...

Si podes pénelo para la proxima version

Gustavo,

Tienes que crear tu propio diálogo y diseñarlo según tus necesidades

No se puede, as far as I know.

Hola. Si quiero resaltar parte de una cadena que muestro en un msgstop, como puedo hacerlo sin tener que crear un dialogo?

Code: Select all  Expand view

msgtop(" esta es una " + NEGRITA + " prueba." + NEGRITA, ".: Atención :.")

gracias

... here is the problem TRY orsPed := TOleAuto():New("adodb.recordset") // orsPed:= CreateObject("ADODB.Recordset") CATCH oError MsgStop( "No se ha podido crear el RECORDSET de Pedidos!", oApp:cAplicacion) ShowError(oError) orsPed := NIL lret:=.f. CLOSE_DBF(ODTEMP) RETURN(lret) ...

... el : <CODE> TRY orsPed := TOleAuto():New("adodb.recordset") // orsPed:= CreateObject("ADODB.Recordset") CATCH oError MsgStop( "No se ha podido crear el RECORDSET de Pedidos!", oApp:cAplicacion) ShowError(oError) orsPed := NIL lret:=.f. CLOSE_DBF(ODTEMP) RETURN(lret) ...

... a abrir el recorset TRY orsPed := TOleAuto():New("adodb.recordset") // orsPed:= CreateObject("ADODB.Recordset") CATCH oError MsgStop( "No se ha podido crear el RECORDSET de Pedidos!", oApp:cAplicacion) ShowError(oError) orsPed := NIL lret:=.f. CLOSE_DBF(ODTEMP) RETURN(lret) ...

... a abrir el recorset TRY orsPed := TOleAuto():New("adodb.recordset") // orsPed:= CreateObject("ADODB.Recordset") CATCH oError MsgStop( "No se ha podido crear el RECORDSET de Pedidos!", oApp:cAplicacion) ShowError(oError) orsPed := NIL lret:=.f. CLOSE_DBF(ODTEMP) RETURN(lret) ...

... := cCMDVAL+"'"+Str(PROGTAM) +"'," cCMDVAL := cCMDVAL+"'"+PROGHRS+"' );" IF !EJECUTA(cCmdSql+cCMDVAL) MsgStop("ERROR AL GRABAR ARCHIVO "+cFILE ,"AVISO") RETURN(.F.) ENDIF RETURN(.T.) PARA RECUPERAR FUNCTION EDATOS(cDAT,cNOM) cARCH=HexToStr(cDAT) ...

... local nhoja := 0 .... if lsigo PRINT oPrn NAME "Ventas de Formularios" PREVIEW MODAL if Empty( oPrn:hDC ) MsgStop( "Impresora Fuera de Linea" ) return nil endif .... while !CliFor->(Eof()) cMensaje := left(CliFor->RazonSoc,15) oMensaje:Refresh() ...

... ) MsgAlert( "Internet session not available!" ) ELSE oFTP := TFTP():New( cFTPSite, oInternet, cUser, cPass ) IF Empty( oFTP:hFTP ) MsgStop( "Cannot connect to "+cFtpSite ) oInternet:End() return .f. ENDIF ENDIF SendFiles( cSource, cTarget, nBufSize, oFTP ) oInternet:End() ...

... Space(1) cCOMP := "01/2021" // Space(7) REQUEST LETO RDDSETDEFAULT( "LETO" ) IF IsExeRunning( "letodb.exe" ) RETURN MsgStop( "O programa servidor já está aberto neste computador!", "Impossível Continuar!" ) ELSE ShellExecute( 0, "open", ...

oBtn:bRClicked := { || msgstop("hello") }

... SIZE 150, 40 PIXEL BORDER OF oDlg Objeto: oSig i need something like this, example: function Button_ValidSegnatur(oSig) if Empty(oSig:cCaption) MsgStop("It is mandatory to sign the document.") return .f. endif return .t.