CenterMsgs()
Posted: Sun Dec 22, 2019 2:05 pmIf on start of the app CenterMsgs() are using, then freezes the programm after call a msgrun() with title!
- Code: Select all Expand view
- MsgRun( cCaption, cTitle, bAction, oWndParent )
FiveTech Software tech support forums
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
CenterMsgs()
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=38256
Page 1 of 1
Posted: Sun Dec 22, 2019 2:05 pmRe: CenterMsgs()
Posted: Sun Dec 22, 2019 6:12 pmTo center msgRun() in a window/dialog, use this syntax"
Re: CenterMsgs()
Posted: Mon Dec 23, 2019 7:29 ambyte-one wrote: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