mirror of
https://github.com/QB64Official/qb64.git
synced 2024-05-12 12:00:14 +00:00
Add (restore?) close button to Help pane.
This commit is contained in:
parent
db805a5fc9
commit
bd5a78b320
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue