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

Reinstates legacy clipboard shortcuts in dialogs.

Browse source 
Ctrl+Insert, Shift+Insert and Shift+Delete as alternatives to Ctrl+C, Ctrl+V and Ctrl+X in dialogs.
This commit is contained in:
FellippeHeitor 2021-08-08 13:16:11 -03:00
parent 66298347a3
commit 4ce6e3017c
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

@ -2042,8 +2042,8 @@ FUNCTION ide2 (ignore)
IF IdeSystem = 2 THEN
a$ = idefindtext
IF LEN(K$) = 1 THEN
k = ASC(K$)
IF LEN(K$) = 1 OR KB <> 0 THEN
IF LEN(K$) = 1 THEN k = ASC(K$)
IF (KSHIFT AND KB = KEY_INSERT) OR (KCONTROL AND UCASE$(K$) = "V") THEN 'paste from clipboard
pasteIntoSearchField:
clip$ = _CLIPBOARD$ 'read clipboard
@ -12148,8 +12148,8 @@ SUB ideobjupdate (o AS idedbotype, focus, f, focusoffset, kk$, altletter$, mb, m
a$ = idetxt(o.txt)
IF focusoffset = 0 THEN
IF LEN(kk$) = 1 THEN
k = ASC(kk$)
IF LEN(kk$) = 1 OR KB <> 0 THEN
IF LEN(kk$) = 1 THEN k = ASC(kk$)
IF (KSHIFT AND KB = KEY_INSERT) OR (KCONTROL AND UCASE$(kk$) = "V") THEN 'paste from clipboard
clip$ = _CLIPBOARD$ 'read clipboard
x = INSTR(clip$, CHR$(13))