QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-25 11:46:15 +00:00
Code Issues Releases Wiki Activity

Feature request

Browse source 
see https://qb64phoenix.com/forum/showthread.php?tid=2017&pid=19971#pid19971
This commit is contained in:
Roland Heyder 2023-09-22 00:34:19 +02:00
parent 4f6896f984
commit 7cd648c143
1 changed files with 3 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
source/ide/ide_methods.bas
View file

@ -3829,15 +3829,9 @@ FUNCTION ide2 (ignore)
IF KB = KEY_HOME THEN IF KB = KEY_HOME THEN
GOSUB selectcheck GOSUB selectcheck
IF idecx <> 1 THEN a$ = idegetline(idecy): sot% = LEN(a$) 'get current line as is
idecx = 1 a$ = LTRIM$(a$): sot% = sot% - LEN(a$) + 1 'calc start of text position
ELSE IF idecx = sot% THEN idecx = 1: ELSE idecx = sot% 'mimic N++ behavior
a$ = idegetline(idecy)
idecx = 1
FOR x = 1 TO LEN(a$)
IF ASC(a$, x) <> 32 THEN idecx = x: EXIT FOR
NEXT
END IF
GOTO specialchar GOTO specialchar
END IF END IF