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

Double-click on code to select a whole word at once.

Browse source
This commit is contained in:
FellippeHeitor 2016-07-19 02:03:33 -03:00
parent cedd2c6a47
commit a65a0f42f8
1 changed files with 35 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
source/ide/ide_methods.bas
View file

@ -2418,12 +2418,41 @@ DO
IF mCLICK THEN
IF mX > 1 AND mX < idewx AND mY > 2 AND mY < (idewy - 5) THEN 'inside text box
ideselect = 1
idecx = mX - 1 + idesx - 1
idecy = mY - 2 + idesy - 1
IF idecy > iden THEN idecy = iden
ideselect = 1: ideselectx1 = idecx: ideselecty1 = idecy
idemouseselect = 1
if old.mX = mX AND old.mY = mY THEN
IF TIMER - last.TBclick# > .5 then GOTO regularTextBox_click
'Double-click on text box: attempt to select "word" clicked
idecx = mX - 1 + idesx - 1
idecy = mY - 2 + idesy - 1
IF idecy > iden THEN
GOTO regularTextBox_click
ELSE
char.sep$ = chr$(34) + " =<>+-/\^:;,*()."
a$ = idegetline$(idecy)
if len(a$) = 0 THEN goto regularTextBox_click
char.clicked$ = mid$(a$, idecx, 1)
ideselect = 1
ideselecty1 = idecy
if LEN(char.clicked$) > 0 AND char.clicked$ <> chr$(32) THEN
FOR i = idecx TO 1 STEP -1
IF INSTR(char.sep$, mid$(a$, i, 1)) THEN exit for
NEXT i
ideselectx1 = i + 1
FOR i = idecx TO LEN(a$)
IF INSTR(char.sep$, mid$(a$, i, 1)) THEN exit for
NEXT i
idecx = i
END IF
END IF
else
regularTextBox_click:
old.mX = mX: old.mY = mY: last.TBclick# = TIMER
ideselect = 1
idecx = mX - 1 + idesx - 1
idecy = mY - 2 + idesy - 1
IF idecy > iden THEN idecy = iden
ideselect = 1: ideselectx1 = idecx: ideselecty1 = idecy
idemouseselect = 1
end if
END IF
END IF