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

Adds one-time message at 1st compilation (re: 'Save exe to source...')

Browse source
This commit is contained in:
FellippeHeitor 2021-01-06 11:27:03 -03:00
parent 286bb1d570
commit e969a7c529
2 changed files with 31 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
source/global/IDEsettings.bas
View file

@ -14,7 +14,7 @@ DIM SHARED SaveExeWithSource AS _BYTE, EnableQuickNav AS _BYTE
DIM SHARED IDEShowErrorsImmediately AS _BYTE
DIM SHARED ShowLineNumbersSeparator AS _BYTE, ShowLineNumbersUseBG AS _BYTE
DIM SHARED IgnoreWarnings AS _BYTE, qb64versionprinted AS _BYTE
DIM SHARED DisableSyntaxHighlighter AS _BYTE
DIM SHARED DisableSyntaxHighlighter AS _BYTE, ExeToSourceFolderFirstTimeMsg AS _BYTE
IF LoadedIDESettings = 0 THEN
'We only want to load the file once when QB64 first starts
@ -177,6 +177,19 @@ IF LoadedIDESettings = 0 THEN
PasteCursorAtEnd = -1
END IF
result = ReadConfigSetting("ExeToSourceFolderFirstTimeMsg", value$)
IF result THEN
IF value$ = "TRUE" OR VAL(value$) = -1 THEN
ExeToSourceFolderFirstTimeMsg = -1
ELSE
ExeToSourceFolderFirstTimeMsg = 0
WriteConfigSetting "'[GENERAL SETTINGS]", "ExeToSourceFolderFirstTimeMsg", "FALSE"
END IF
ELSE
WriteConfigSetting "'[GENERAL SETTINGS]", "ExeToSourceFolderFirstTimeMsg", "FALSE"
ExeToSourceFolderFirstTimeMsg = 0
END IF
result = ReadConfigSetting("SaveExeWithSource", value$)
IF result THEN
IF value$ = "TRUE" OR VAL(value$) = -1 THEN

17
source/ide/ide_methods.bas
View file

@ -1493,7 +1493,24 @@ FUNCTION ide2 (ignore)
idemrun:
iderunmode = 1 'run detached; = 0 'standard run
idemrunspecial:
IDECompilationRequested = -1
IF ExeToSourceFolderFirstTimeMsg = 0 THEN
IF SaveExeWithSource THEN
idemessagebox "Run", "Your program will be compiled to the same folder where your" + CHR$(10) + _
"source code is saved. You can change that by unchecking the" + CHR$(10) + _
"option 'Output EXE to Source Folder' in the Run menu."
ELSE
idemessagebox "Run", "Your program will be compiled to your QB64 folder. You can" + CHR$(10) + _
"change that by checking the option 'Output EXE to Source" + CHR$(10) + _
"Folder' in the Run menu."
END IF
WriteConfigSetting "'[GENERAL SETTINGS]", "ExeToSourceFolderFirstTimeMsg", "TRUE"
ExeToSourceFolderFirstTimeMsg = -1
END IF
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
'run program
IF ready <> 0 AND idechangemade = 0 THEN