Post by mueh on May 19, 2024 1:16:26 GMT -5
With 24069 lvl 90 bytes Msg truncation limit was removed for edit session .
Here the suggestion to remove 70 bytes Msg truncation in FM .
Maybe you missed it in V3.1 Thread 17/5/2024 .
Here the suggestion to remove 70 bytes Msg truncation in FM .
Maybe you missed it in V3.1 Thread 17/5/2024 .
suggested code to be changed in (2 comented lines should be deleted)
METHOD DispFM()
DoPrint (STRING$(gENV.ScrWidth, " "), $$TxtLo, 2, 1) ' Print normal dash line
IF ISFALSE gResizeActive THEN ' Don't do messages during a RESIZE
IF ErrMsgTblC > 0 THEN ' If there's an Error message?
gBandBG = IIF(ErrMsgHigh, %True, %False) ' Select BG color
' tText = LEFT$(ErrMsgTop, 70) ' Get basic text
' tText = IIF$(ErrMsgTblC > 1, " +" + tText, " " + tText) ' Prepend properly
tText = IIF$(ErrMsgTblC > 1, " +", " ") + ErrMsgTop ' now truncated at left side by DoPrint
DoPrint (tText, $$Error, 2, gENV.ScrWidth - LEN(tText)) ' Print error message
IF ErrMsgHigh = %eFail THEN DoBeep ' Beep on errors
END IF '
END IF '
this is 24069 code which removed 90 bytes truncation
METHOD DispScreen()
'-----------------------------------------------------------------------------------------+
'- Do line 2 and the error message |
'-----------------------------------------------------------------------------------------+
IF ISFALSE gResizeActive THEN ' Don't do messages during a RESIZE
DoPrint (STRING$(gENV.ScrWidth, " "), $$TxtLo, 2, 1) ' Clear message line
IF ErrMsgTblC > 0 THEN ' If there are messages
gBandBG = IIF(ErrMsgHigh, %True, %False) ' Select BG color
tText = IIF$(ErrMsgTblC > 1, " +", " ") + ErrMsgTop
DoPrint (tText, $$Error, 2, gENV.ScrWidth - LEN(tText)) ' Print error message
IF ErrMsgHigh = %eFail THEN DoBeep ' Beep on errors
END IF '
gBandBG = %False ' Set back to normal BG
END IF '
Thanks