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

Make sub indenting and "cursor after pasted content" default.

Browse source
This commit is contained in:
FellippeHeitor 2017-09-25 02:29:18 -03:00
parent f0692d55b2
commit 0a7099be53
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
source/global/IDEsettings.bas
View file

@ -114,8 +114,8 @@ IF LoadedIDESettings = 0 THEN
WriteConfigSetting "'[GENERAL SETTINGS]", "PasteCursorAtEnd", "FALSE"
END IF
ELSE
WriteConfigSetting "'[GENERAL SETTINGS]", "PasteCursorAtEnd", "FALSE"
PasteCursorAtEnd = 0
WriteConfigSetting "'[GENERAL SETTINGS]", "PasteCursorAtEnd", "TRUE"
PasteCursorAtEnd = -1
END IF
result = ReadConfigSetting("SaveExeWithSource", value$)
@ -228,17 +228,16 @@ IF LoadedIDESettings = 0 THEN
result = ReadConfigSetting("IDE_IndentSUBs", value$)
ideindentsubs = VAL(value$)
IF UCASE$(value$) = "TRUE" OR ideindentsubs <> 0 THEN
IF UCASE$(value$) = "TRUE" OR ideautoindent <> 0 THEN
ideindentsubs = 1
elseif result = 0 then
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_IndentSUBs", "FALSE"
ideindentsubs = 0
ELSEIF UCASE$(value$) <> "FALSE" AND value$ <> "0" THEN
ELSE
IF UCASE$(value$) <> "FALSE" AND value$ <> "0" THEN
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_IndentSUBs", "TRUE"
ideindentsubs = 1
else
else
ideindentsubs = 0
end if
end if
END IF
result = ReadConfigSetting("IDE_IndentSize", value$)
ideautoindentsize = VAL(value$)