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

IDE: EditorOptions - Colors, remove some left over "UpperCase". Data is actually stored mixed case.

Browse Source
This commit is contained in:
Martin 2024-01-11 02:34:48 +01:00
parent 9d4a82b1dc
commit 844ce18504
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/editoroptions.pp
View File

@ -6942,7 +6942,7 @@ begin
for i := 0 to Src.AttributeCount - 1 do begin for i := 0 to Src.AttributeCount - 1 do begin
SrcAttr := Src.AttributeAtPos[i]; SrcAttr := Src.AttributeAtPos[i];
// Reuse existing Attribute if possible. // Reuse existing Attribute if possible.
j := FAttributes.IndexOf(UpperCase(SrcAttr.StoredName)); j := FAttributes.IndexOf(SrcAttr.StoredName);
if j >= 0 then begin if j >= 0 then begin
Attr := TColorSchemeAttribute(FAttributes.Objects[j]); Attr := TColorSchemeAttribute(FAttributes.Objects[j]);
DebugLn([' Use existing attr ', Attr.StoredName]); DebugLn([' Use existing attr ', Attr.StoredName]);
@ -6952,7 +6952,7 @@ begin
Attr := TColorSchemeAttribute.Create(Self, SrcAttr.Caption, SrcAttr.StoredName); Attr := TColorSchemeAttribute.Create(Self, SrcAttr.Caption, SrcAttr.StoredName);
end; end;
Attr.Assign(SrcAttr); Attr.Assign(SrcAttr);
NewList.AddObject(UpperCase(Attr.StoredName), Attr); NewList.AddObject(Attr.StoredName, Attr);
if SrcAttr = Src.DefaultAttribute then if SrcAttr = Src.DefaultAttribute then
FDefaultAttribute := Attr; FDefaultAttribute := Attr;
end; end;