paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 14:01:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazBuild: fix project.pp / do not load IDE settings

Browse Source
This commit is contained in:
Martin 2023-09-12 19:55:29 +02:00
parent 2766ea87ed
commit eb52a8d6da
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/project.pp
View File

@ -1387,6 +1387,7 @@ begin
XMLConfig.GetValue(Path+'CursorPos/Y',1));
FFoldState := XMLConfig.GetValue(Path+'FoldState/Value', '');
FIsLocked := XMLConfig.GetValue(Path+'IsLocked/Value', False);
if IdeSyntaxHighlighters <> nil then
FSyntaxHighlighter := IdeSyntaxHighlighters.GetIdForName(
XMLConfig.GetValue(Path+'SyntaxHighlighter/Value',
IdeSyntaxHighlighters.Names[UnitInfo.DefaultSyntaxHighlighter]));
@ -1406,6 +1407,7 @@ begin
XMLConfig.SetDeleteValue(Path+'FoldState/Value', FoldState, '')
else
XMLConfig.DeletePath(Path+'FoldState');
if IdeSyntaxHighlighters <> nil then
XMLConfig.SetDeleteValue(Path+'SyntaxHighlighter/Value',
IdeSyntaxHighlighters.Names[fSyntaxHighlighter],
IdeSyntaxHighlighters.Names[UnitInfo.DefaultSyntaxHighlighter]);
@ -1891,6 +1893,7 @@ begin
RunFileIfActive,false);
// save custom session data
SaveStringToStringTree(XMLConfig,CustomSessionData,Path+'CustomSessionData/');
if IdeSyntaxHighlighters <> nil then
XMLConfig.SetDeleteValue(Path+'DefaultSyntaxHighlighter/Value',
IdeSyntaxHighlighters.Names[FDefaultSyntaxHighlighter],
IdeSyntaxHighlighters.Names[IdeSyntaxHighlighters.GetIdForLazSyntaxHighlighter(lshFreePascal)]);
@ -1944,6 +1947,7 @@ begin
end;
// session data
if IdeSyntaxHighlighters <> nil then
FDefaultSyntaxHighlighter := IdeSyntaxHighlighters.GetIdForName(
XMLConfig.GetValue(Path+'DefaultSyntaxHighlighter/Value',
IdeSyntaxHighlighters.Names[IdeSyntaxHighlighters.GetIdForLazSyntaxHighlighter(lshFreePascal)]));