QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-26 17:10:38 +00:00
Code Issues Releases Wiki Activity

Prevents idemessagebox from crashing with long messages.

Browse source
This commit is contained in:
FellippeHeitor 2021-01-15 14:38:46 -03:00
parent f7ce06cfc6
commit 1dcfb5c849
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
source/ide/ide_methods.bas
View file

@ -11089,6 +11089,7 @@ FUNCTION idemessagebox (titlestr$, messagestr$, buttons$)
w2 = LEN(titlestr$) + 4
IF w < w2 THEN w = w2
IF w < buttonsLen THEN w = buttonsLen
IF w > idewx - 4 THEN w = idewx - 4
idepar p, w, 3 + MessageLines, titlestr$
i = i + 1
@ -11124,6 +11125,9 @@ FUNCTION idemessagebox (titlestr$, messagestr$, buttons$)
'-------- custom display changes --------
COLOR 0, 7
FOR i = 1 TO MessageLines
IF LEN(FullMessage$(i)) > p.w - 2 THEN
FullMessage$(i) = LEFT$(FullMessage$(i), p.w - 5) + STRING$(3, 250)
END IF
LOCATE p.y + 1 + i, p.x + (w \ 2 - LEN(FullMessage$(i)) \ 2) + 1
PRINT FullMessage$(i);
NEXT i