QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-05-12 12:00:14 +00:00
Code Releases Wiki Activity

Merge pull request #34 from DualBrain/master

Browse source 
Add (restore?) close button to Help pane.
This commit is contained in:
Cory Smith 2022-09-15 17:42:28 -05:00 committed by GitHub
parent db805a5fc9 bd5a78b320
commit 1827f9b3c5
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
source/ide/ide_methods.bas
View file

@ -2259,9 +2259,9 @@ FUNCTION ide2 (ignore)
IF IdeSystem = 3 THEN
' removing the help "red x" - @dualbrain
IF (1=0 AND mCLICK) OR K$ = CHR$(27) THEN
IF (mY = idewy AND (mX >= idewx - 3 AND mX <= idewx - 1)) OR K$ = CHR$(27) THEN 'close help
IF mCLICK OR K$ = CHR$(27) THEN
' The X in the Help pane.
IF (mY = idewy AND (mX >= idewx - 4 AND mX <= idewx - 1)) OR K$ = CHR$(27) THEN 'close help
closeHelp:
idewy = idewy + idesubwindow
idehelp = 0
@ -6432,9 +6432,10 @@ 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)
IF 1=0 THEN ' removing the help "red x" - @dualbrain
COLOR 15, 4: _PRINTSTRING (idewx - 3, idewy), " x "
END IF
' The "X" in the Help pane.
COLOR 7, 0: _PRINTSTRING (idewx - 4, idewy), CHR$(180)
Color 0, 7: _PRINTSTRING (idewx - 3, idewy), CHR$(25)
COLOR 7, 0: _PRINTSTRING (idewx - 2, idewy), CHR$(195)
END IF
GOSUB UpdateSearchBar