QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-30 05:10:37 +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 idecx = (mX - 1 + idesx - 1) - maxLineNumberLength
idecy = mY - 2 + idesy - 1 idecy = mY - 2 + idesy - 1
IF idecy > iden THEN idecy = iden IF idecy > iden THEN idecy = iden
ideselect = 1: ideselectx1 = idecx: ideselecty1 = idecy ideselect = 1
IF (NOT KSHIFT) THEN ideselectx1 = idecx: ideselecty1 = idecy
idemouseselect = 1 idemouseselect = 1
wholeword.select = 0 wholeword.select = 0
END IF END IF
@ -2782,13 +2783,12 @@ FUNCTION ide2 (ignore)
ideselect = 1 ideselect = 1
idecy = mY - 2 + idesy - 1 idecy = mY - 2 + idesy - 1
IF idecy < iden THEN IF idecy < iden THEN
ideselectx1 = 1: ideselecty1 = idecy IF (NOT KSHIFT) THEN ideselectx1 = 1: ideselecty1 = idecy
idecy = idecy + 1 idecy = idecy + 1
idecx = 1 idecx = 1
ELSEIF idecy = iden THEN ELSEIF idecy = iden THEN
a$ = idegetline$(idecy) a$ = idegetline$(idecy)
ideselectx1 = 1 IF (NOT KSHIFT) THEN ideselectx1 = 1: ideselecty1 = idecy
ideselecty1 = idecy
idecx = LEN(a$) + 1 idecx = LEN(a$) + 1
ELSEIF idecy > iden THEN ELSEIF idecy > iden THEN
idecy = iden idecy = iden