CenterMsgs()

[byte-one]

If on start of the app CenterMsgs() are using, then freezes the programm after call a msgrun() with title!

[nageswaragunupudi]

To center msgRun() in a window/dialog, use this syntax"

Code: Select all  Expand view

MsgRun( cCaption, cTitle, bAction, oWndParent )

[nageswaragunupudi]

If on start of the app CenterMsgs() are using, then freezes the programm after call a msgrun() with title!

Please make the following correction to
fwh\source\function\msgrun.prg:

Please locate the following lines in the function msgrun(...)
lines 25 to 34

Code: Select all  Expand view

    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 cTitle ;
               STYLE DS_MODALFRAME
     ENDIF
 

Please modify the last lines like this:

Code: Select all  Expand view

    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 + 2 ;
               TITLE cTitle

     ENDIF