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

Allows Shift+Click to select area from cursor.

Browse source
This commit is contained in:
FellippeHeitor 2017-10-31 19:43:22 -02:00
parent 40da21aacd
commit 2a51fa6c0e
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
source/ide/ide_methods.bas
View file

@ -2773,7 +2773,8 @@ FUNCTION ide2 (ignore)
idecx = (mX - 1 + idesx - 1) - maxLineNumberLength
idecy = mY - 2 + idesy - 1
IF idecy > iden THEN idecy = iden
ideselect = 1: ideselectx1 = idecx: ideselecty1 = idecy
ideselect = 1
IF (NOT KSHIFT) THEN ideselectx1 = idecx: ideselecty1 = idecy
idemouseselect = 1
wholeword.select = 0
END IF
@ -2782,13 +2783,12 @@ FUNCTION ide2 (ignore)
ideselect = 1
idecy = mY - 2 + idesy - 1
IF idecy < iden THEN
ideselectx1 = 1: ideselecty1 = idecy
IF (NOT KSHIFT) THEN ideselectx1 = 1: ideselecty1 = idecy
idecy = idecy + 1
idecx = 1
ELSEIF idecy = iden THEN
a$ = idegetline$(idecy)
ideselectx1 = 1
ideselecty1 = idecy
IF (NOT KSHIFT) THEN ideselectx1 = 1: ideselecty1 = idecy
idecx = LEN(a$) + 1
ELSEIF idecy > iden THEN
idecy = iden