visionmercer/pixler
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

remove unnecessary variable

Browse source
This commit is contained in:
visionmercer 2026-05-01 11:46:21 +02:00
commit 761b667bce
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
include/ui.bm
View file

@ -1,7 +1,6 @@
FUNCTION textinput$ (x AS INTEGER, y AS INTEGER, w AS INTEGER, h AS INTEGER, __text AS STRING) FUNCTION textinput$ (x AS INTEGER, y AS INTEGER, w AS INTEGER, h AS INTEGER, __text AS STRING)
DIM text AS STRING, keyin AS STRING DIM text AS STRING, keyin AS STRING
DIM cursor AS INTEGER, done AS INTEGER DIM cursor AS INTEGER, done AS INTEGER
DIM pasteData AS STRING
text = __text text = __text
' Initial Hover Check ' Initial Hover Check
IF NOT (_MOUSEX > x AND _MOUSEY > y AND _MOUSEX < x + w AND _MOUSEY < y + h) THEN IF NOT (_MOUSEX > x AND _MOUSEY > y AND _MOUSEX < x + w AND _MOUSEY < y + h) THEN
@ -36,9 +35,7 @@ FUNCTION textinput$ (x AS INTEGER, y AS INTEGER, w AS INTEGER, h AS INTEGER, __t
ELSEIF LEN(keyin) = 1 THEN ELSEIF LEN(keyin) = 1 THEN
SELECT CASE ASC(keyin) SELECT CASE ASC(keyin)
CASE 22 ' Ctrl + V (Paste) CASE 22 ' Ctrl + V (Paste)
' Note: _CLIPBOARD$ is standard in modern BASIC like QB64 text = LEFT$(text, cursor - 1) + _CLIPBOARD$ + MID$(text, cursor)
pasteData = _CLIPBOARD$
text = LEFT$(text, cursor - 1) + pasteData + MID$(text, cursor)
cursor = cursor + LEN(pasteData) cursor = cursor + LEN(pasteData)
CASE 32 TO 126 ' Regular Typing CASE 32 TO 126 ' Regular Typing
text = LEFT$(text, cursor - 1) + keyin + MID$(text, cursor) text = LEFT$(text, cursor - 1) + keyin + MID$(text, cursor)