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

EditorOptions, fix importing old background color

Browse Source 
git-svn-id: trunk@25637 -
This commit is contained in:
martin 2010-05-25 11:53:06 +00:00
parent b4cb028f34
commit 83f36b4506
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/editoroptions.pp
View File

@ -4338,6 +4338,15 @@ begin
AttributeAtPos[i].LoadFromXml(aXMLConfig, TmpPath, Def, FormatVersion); AttributeAtPos[i].LoadFromXml(aXMLConfig, TmpPath, Def, FormatVersion);
end; end;
FreeAndNil(EmptyDef); FreeAndNil(EmptyDef);
// Version 5 and before stored the global background on the Whitespace attribute.
// If a whiespace Attribute was loaded (UseSchemeGlobals=false) then copy it
if (FormatVersion <= 5) and (DefaultAttribute <> nil) and
(FHighlighter <> nil) and (FHighlighter.WhitespaceAttribute <> nil) and
(Attribute[Highlighter.WhitespaceAttribute.Name] <> nil) and
(not Attribute[Highlighter.WhitespaceAttribute.Name].UseSchemeGlobals)
then
DefaultAttribute.Background := Attribute[Highlighter.WhitespaceAttribute.Name].Background;
end; end;
procedure TColorSchemeLanguage.SaveToXml(aXMLConfig: TRttiXMLConfig; aPath: String; procedure TColorSchemeLanguage.SaveToXml(aXMLConfig: TRttiXMLConfig; aPath: String;