mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-01 13:50:36 +00:00
Double-click on code to select a whole word at once.
This commit is contained in:
parent
cedd2c6a47
commit
a65a0f42f8
|
@ -2418,12 +2418,41 @@ DO
|
||||||
|
|
||||||
IF mCLICK THEN
|
IF mCLICK THEN
|
||||||
IF mX > 1 AND mX < idewx AND mY > 2 AND mY < (idewy - 5) THEN 'inside text box
|
IF mX > 1 AND mX < idewx AND mY > 2 AND mY < (idewy - 5) THEN 'inside text box
|
||||||
|
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
|
ideselect = 1
|
||||||
idecx = mX - 1 + idesx - 1
|
idecx = mX - 1 + idesx - 1
|
||||||
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: ideselectx1 = idecx: ideselecty1 = idecy
|
||||||
idemouseselect = 1
|
idemouseselect = 1
|
||||||
|
end if
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue