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

Adds line selection count in the status bar.

Browse source
This commit is contained in:
FellippeHeitor 2021-01-09 01:22:46 -03:00
parent 6fb030b9ac
commit cf7ed33f61
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
source/ide/ide_methods.bas
View file

@ -4035,7 +4035,7 @@ FUNCTION ide2 (ignore)
END IF
NEXT i
END IF
IdeInfo = "Selection length = " + str2$(sx2 - sx1)
IdeInfo = "Selection length = " + str2$(sx2 - sx1) + " character" + LEFT$("s", ABS(sx2 - sx1 > 1))
UpdateIdeInfo
ELSE
IdeInfo = ""
@ -4043,7 +4043,17 @@ FUNCTION ide2 (ignore)
UpdateIdeInfo
END IF
ELSE
IdeInfo = ""
IF ideselect THEN
sy1 = ideselecty1
sy2 = idecy
IF sy1 > sy2 OR idecx > 1 THEN
IdeInfo = "Selection length = " + str2$(ABS(sy2 - sy1) + 1) + " line" + LEFT$("s", ABS((ABS(sy2 - sy1) + 1) > 1))
ELSE
IdeInfo = "Selection length = " + str2$(sy2 - sy1) + " line" + LEFT$("s", ABS(sy2 - sy1 > 1))
END IF
ELSE
IdeInfo = ""
END IF
ideCurrentSingleLineSelection = ""
UpdateIdeInfo
END IF