fix(developer): package editor no longer loses RTL flag for LMs

Fixes #8595.
This commit is contained in:
Marc Durdin 2023-04-18 05:40:50 +07:00
parent 13b20c245e
commit b58ac8fe4a

View file

@ -2213,7 +2213,7 @@ begin
lexicalModel := TPackageLexicalModel.Create(Package);
lexicalModel.Name := XmlVarToStr(ALexicalModel.ChildValues[SXML_PackageLexicalModel_Name]);
lexicalModel.ID := XmlVarToStr(ALexicalModel.ChildValues[SXML_PackageLexicalModel_ID]);
lexicalModel.RTL := ANode.ChildNodes.IndexOf(SXML_PackageLexicalModel_RTL) >= 0;
lexicalModel.RTL := ALexicalModel.ChildNodes.IndexOf(SXML_PackageLexicalModel_RTL) >= 0;
lexicalModel.Languages.LoadXML(ALexicalModel);
Add(lexicalModel);
end;