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

Compare commits

base: QB64:a507281f4899d415e569c70124b69a46694f7cf0
Branches Tags
QB64:master
QB64:dev
QB64:v2.1
QB64:v2.0.2
QB64:v1.3
QB64:v1.2
QB64:v1.1
...
compare: QB64:ffd2ad656d7d0ab0e22a7314604f80f185fac368
Branches Tags
QB64:master
QB64:dev
QB64:v2.1
QB64:v2.0.2
QB64:v1.3
QB64:v1.2
QB64:v1.1

3 commits
a507281f48 ... ffd2ad656d

Author SHA1 Message Date
Cory Smith ffd2ad656d
Merge pull request #42 from DualBrain/master 
2 changes
 2022-12-31 10:31:03 -06:00
Cory Smith 12357e69fd Modified copyright. 2022-12-31 10:26:24 -06:00
Cory Smith 4768db3ab6 Modified the "focus bar" so that it is no longer removed upon losing focus. 2022-12-30 15:47:24 -06:00
1 changed files with 37 additions and 8 deletions
Show stats Expand all files Collapse all files

45
source/ide/ide_methods.bas
View file

@ -1169,9 +1169,24 @@ FUNCTION ide2 (ignore)
IF WhiteListQB64FirstTimeMsg = 0 THEN
'IF INSTR(_OS$, "WIN") THEN whiteListProcess$ = "and the process 'qb64.exe' " ELSE whiteListProcess$ = ""
result = idemessagebox("", "Welcome to QB64.com's QB64" + CHR$(10) + _
RANDOMIZE TIMER
SELECT CASE FIX(RND * 20 + 1)
CASE 1, 3, 5, 7, 9: by$ = "The Kid In Us All"
CASE 2: by$ = "Inconceivable!"
CASE 4: by$ = "Shall We Play A Game?"
CASE 6: by$ = "Late Night Coders"
CASE 8: by$ = "NOT Microsoft Corporation"
CASE 10: by$ = "Cliffs of Insanity"
CASE 12: by$ = "All Out Of Bubblegum"
CASE 14: by$ = "We Don't Need Roads"
CASE 16: by$ = "Wax On, Wax Off"
CASE 18: by$ = "Yippee Ki-yay"
CASE ELSE: by$ = "Dartmouth Didn't" ' 11, 13, 15, 17, 19
END SELECT
result = idemessagebox("", "Welcome to The QB64 'Retro' IDE" + CHR$(10) + _
CHR$(10) + _
"Copyright (C) The QB64.com Community, 2007-2022." + CHR$(10) + _
"Copyright (C) " + by$ + ", 1964-2023." + CHR$(10) + _
"All rights reserved.", "#OK;#Don't show this again")
PCOPY 3, 0: SCREEN , , 3, 0
@ -1503,12 +1518,12 @@ FUNCTION ide2 (ignore)
IF os$ = "WIN" OR MacOSX = 1 THEN
IF _WINDOWHASFOCUS THEN
LOCATE , , 1
_PALETTECOLOR 5, IDEBracketHighlightColor, 0
_PALETTECOLOR 6, IDEBackgroundColor2, 0
'_PALETTECOLOR 5, IDEBracketHighlightColor, 0
'_PALETTECOLOR 6, IDEBackgroundColor2, 0
ELSE
LOCATE , , 0
_PALETTECOLOR 5, IDEBackgroundColor, 0
_PALETTECOLOR 6, IDEBackgroundColor, 0
'_PALETTECOLOR 5, IDEBackgroundColor, 0
'_PALETTECOLOR 6, IDEBackgroundColor, 0
END IF
END IF
@ -5206,9 +5221,23 @@ FUNCTION ide2 (ignore)
helpabout:
PCOPY 2, 0
'm$ = "QB64 Version " + Version$ '+ CHR$(10) + DevChannel$
m$ = "QB64.com's QB64" + CHR$(10) + _
RANDOMIZE TIMER
SELECT CASE FIX(RND * 20 + 1)
CASE 1, 3, 5, 7, 9: by$ = "The Kid In Us All"
CASE 2: by$ = "Inconceivable!"
CASE 4: by$ = "Shall We Play A Game?"
CASE 6: by$ = "Late Night Coders"
CASE 8: by$ = "NOT Microsoft Corporation"
CASE 10: by$ = "Cliffs of Insanity"
CASE 12: by$ = "All Out Of Bubblegum"
CASE 14: by$ = "We Don't Need Roads"
CASE 16: by$ = "Wax On, Wax Off"
CASE 18: by$ = "Yippee Ki-yay"
CASE ELSE: by$ = "Dartmouth Didn't" ' 11, 13, 15, 17, 19
END SELECT
m$ = "The QB64 'Retro' IDE" + CHR$(10) + _
"Version " + Version$ + CHR$(10) + _
"Copyright (C) The QB64.com Community, 2007-2022."
"Copyright (C) " + by$ + ", 1964-2023."
'IF LEN(AutoBuildMsg$) THEN
' m$ = m$ + CHR$(10) + AutoBuildMsg$
'ELSE