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

Adds new red "x" button to close the Help Panel.

Browse source
This commit is contained in:
FellippeHeitor 2021-07-28 01:44:19 -03:00
parent 5829744cc4
commit c3c2a7e374
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
source/ide/ide_methods.bas
View file

@ -2215,7 +2215,7 @@ FUNCTION ide2 (ignore)
IF IdeSystem = 3 THEN
IF mCLICK OR K$ = CHR$(27) THEN
IF (mY = idewy AND mX = idewx - 2) OR K$ = CHR$(27) THEN 'close help
IF (mY = idewy AND (mX >= idewx - 3 AND mX <= idewx - 1)) OR K$ = CHR$(27) THEN 'close help
'IF idesubwindow THEN PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt: GOTO ideloop
@ -6179,7 +6179,7 @@ FUNCTION ide2 (ignore)
IF idehelp = 1 THEN
COLOR 7, 0: idebox 1, idewy, idewx, idesubwindow + 1
COLOR 7, 0: _PRINTSTRING (1, idewy), CHR$(195): _PRINTSTRING (idewx, idewy), CHR$(180)
COLOR 7, 0: _PRINTSTRING (idewx - 3, idewy), CHR$(180) + "X" + CHR$(195)
COLOR 15, 4: _PRINTSTRING (idewx - 3, idewy), " x "
END IF
GOSUB UpdateSearchBar