mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-08 23:05:14 +00:00
Minor fix to error-checking routine for the new config file.
This commit is contained in:
parent
cfc5c90b73
commit
f167d054b2
|
@ -138,7 +138,7 @@ IF LoadedIDESettings = 0 THEN
|
||||||
|
|
||||||
result = ReadConfigSetting("IDE_Height", value$)
|
result = ReadConfigSetting("IDE_Height", value$)
|
||||||
idewy = VAL(value$)
|
idewy = VAL(value$)
|
||||||
IF idewx < 25 OR idewx > 1000 THEN idewx = 25: WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Height", "25"
|
IF idewy < 25 OR idewy > 1000 THEN idewy = 25: WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Height", "25"
|
||||||
|
|
||||||
result = ReadConfigSetting("IDE_AutoFormat", value$)
|
result = ReadConfigSetting("IDE_AutoFormat", value$)
|
||||||
ideautolayout = VAL(value$)
|
ideautolayout = VAL(value$)
|
||||||
|
|
|
@ -23964,7 +23964,7 @@ IF LOF(InFile) THEN
|
||||||
compare$ = LTRIM$(RTRIM$(LEFT$(temp$, l - 1)))
|
compare$ = LTRIM$(RTRIM$(LEFT$(temp$, l - 1)))
|
||||||
IF UCASE$(compare$) = UCASE$(item$) THEN found = -1: EXIT DO
|
IF UCASE$(compare$) = UCASE$(item$) THEN found = -1: EXIT DO
|
||||||
LOOP
|
LOOP
|
||||||
CLOSE InFile
|
CLOSE #InFile
|
||||||
IF found THEN 'we found what we're looking for
|
IF found THEN 'we found what we're looking for
|
||||||
IF l THEN
|
IF l THEN
|
||||||
value$ = MID$(temp$, l + 1)
|
value$ = MID$(temp$, l + 1)
|
||||||
|
@ -23984,6 +23984,7 @@ IF LOF(InFile) THEN
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
CLOSE #Infile
|
||||||
ReadConfigSetting = 0 'failed to find the setting
|
ReadConfigSetting = 0 'failed to find the setting
|
||||||
END FUNCTION
|
END FUNCTION
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue