Error en MsgRun:
Si el segundo parámetro / título es muy grande, la devuelve MsgRun erero GPF.
Modificada por la limitación del tamaño del título a la anchura de la ventana para evitar este error.
Me parece interesante que se corrija esta característica en futuras versiones.
Gracias,
Oscar
/*
MsgWait y MsgRun no se muestran correctamente bajo 32 bits, el
cálculo de coordenadas no es correcto pues el texto de cuerpo
se recorta:
Moises,
En source\function\msgrun.prg hay que modificar estas líneas asi:
Código:
ACTIVATE DIALOG oDlg CENTER ;
ON PAINT oDlg:Say( 11, 0, xPadC( oDlg:cMsg, nWidth ),,,, .T. )
Antonio Linares
<!-- w --><a class="postlink" href="http://www.fivetechsoft.com">www.fivetechsoft.com</a><!-- w -->
*/
#Include "FiveWin.Ch"
//----------------------------------------------------------------------------//
Function WaitSeconds( nSecs )
Local nStart := GetTickCount()
DEFAULT nSecs := 1
While GetTickCount() - nStart < ( 1000 * nSecs )
Enddo
Return Nil
//---------------------------------------------------------------------------//
Function MsgRun( cCaption, cTitle, bAction )
Local oDlg, nWidth, oFnt, oFont, oBrush
DEFAULT cCaption := "Por Favor, Espere... ",;
bAction := { || WaitSeconds( 1 ) }
DEFINE FONT oFnt NAME "Ms Sans Serif" SIZE 0, -12 BOLD
DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -14 BOLD
IF cTitle == Nil
DEFINE DIALOG oDlg ;
FROM 0,0 TO 3, Len( cCaption ) + 4 ;
STYLE nOr( DS_MODALFRAME, WS_POPUP ) ;
COLOR nRGB( 000, 000, 000 ), nRGB( 135, 206, 235 )
oDlg:lHelpIcon := .F. // ok
ELSE
DEFINE DIALOG oDlg ;
FROM 0,0 TO 4, Max( Len( cCaption ), Len( cTitle ) ) + 4 ;
TITLE cTitle ;
STYLE nOR( DS_MODALFRAME ) ;
COLOR nRGB( 000, 000, 000 ), nRGB( 135, 206, 235 )
oDlg:lHelpIcon := .F. // ok
ENDIF
oDlg:bKeyDown = { | nKey | IF( nKey == VK_ESCAPE, ( oDlg:End() ), ) }
oDlg:bStart := { || Eval( bAction, oDlg ), oDlg:End(), SysRefresh() }
oDlg:cMsg := cCaption
nWidth := oDlg:nRight - oDlg:nLeft
SET FONT OF oDlg TO oFnt
//-> Modificado By Antonio Linares 26/10/2007 - Correcao de Bug
ACTIVATE DIALOG oDlg CENTERED ;
ON PAINT oDlg:Say( 11, 0, xPadC( oDlg:cMsg, nWidth ),,,, .T. )
oFnt:End()
oFont:End()
RETURN NIL
//---------------------------------------------------------------------------//
Function MsgWait( cCaption, cTitle, nSeconds )
DEFAULT nSeconds := 4
Return MsgRun( cCaption, cTitle, { || WaitSeconds( nSeconds ) } )
//---------------------------------------------------------------------------//
Function StopUntil( bBlock )
DO WHILE !Eval( bBlock )
WaitMessage()
SysRefresh()
ENDDO
Return Nil
//---------------------------------------------------------------------------//O problema está quando o texto passado para a função é muito grande, maior do que a largura da tela.
Vou modificar a função e adicioná-la no meu sistema seguindo a sua sugestão.
Obrigado,
Oscar
DEFINE DIALOG oDlg ;
FROM 0,0 TO 4, Max( Len( cCaption ), Len( cTitle ) ) + 4 ;
TITLE Alltrim(PadR(cTitle, 110)) ; // OASyS: Mudei aqui para evitar erro GPF quando título é muito grande: TITLE cTitle ;
STYLE nOR( DS_MODALFRAME ) ;
COLOR nRGB( 000, 000, 000 ), nRGB( 135, 206, 235 )Na verdade o erro está na classe DIALOG.
Se enviar um TITLE muito grande dá erro GPF.
ORibeiro wrote:Na verdade o erro está na classe DIALOG.
Se enviar um TITLE muito grande dá erro GPF.
If we could know the max size allowed (trying with different values before it GPFs) then we could set the same limitation in FWH code 
#include "FiveWin.ch"
function Main()
local oDlg, oIco, cTest := "Hello world! OASyS"
DEFINE ICON oIco FILE "..\icons\fivewin.ico"
DEFINE DIALOG oDlg;
TITLE "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"+;
"12345678901234"; // ==> Limite 104 caracteres
COLOR "W+/B" ;
ICON oIco
@ 1, 3 GET cTest
@ 3, 5 BUTTON "&Ok" SIZE 40,12 ACTION MsgInfo( "Any action here!" ) DEFAULT
@ 3, 16 BUTTON "&Cancel" SIZE 40, 12 ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED VALID MsgYesNo( "Do you want to end ?" )
return nilfunction MsgRun( cCaption, cTitle, bAction )
LOCAL oDlg, nWidth, uReturn
DEFAULT cCaption := "Please, wait...",;
bAction := { || WaitSeconds( 1 ) }
IF cTitle == NIL
DEFINE DIALOG oDlg ;
FROM 0,0 TO 3, Len( cCaption ) + 4 ;
STYLE nOr( DS_MODALFRAME, WS_POPUP )
ELSE
DEFINE DIALOG oDlg ;
FROM 0,0 TO 4, Max( Len( cCaption ), Len( cTitle ) ) + 4 ;
TITLE SubStr( cTitle, 1, Max( Len( cTitle ), 140 ) ) ;
STYLE DS_MODALFRAME
...Será mejor que modifico el DIALOG.PRG clase.
El problema es con la creación del título del diálogo superior a 140.
Oscar,
Si, tienes razón, es más práctico cambiarlo en la Clase TDialog, gracias
Gracias Antonio,
Voy a esperar a su ajuste en la clase.
