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

IDE: EditorOptions, Color, fix "reset all". Issue #39388

Browse Source
This commit is contained in:
Martin 2021-09-24 11:36:23 +02:00
parent fb4681dd53
commit ff2da4d6be
2 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ide/editoroptions.pp
View File

@ -6431,22 +6431,36 @@ end;
procedure TColorSchemeLanguage.Assign(Src: TColorSchemeLanguage);
var
i: Integer;
i, j: Integer;
Attr, SrcAttr: TColorSchemeAttribute;
NewList: TQuickStringlist;
begin
Clear;
FAttributes.Sorted := false;
// Do not clear old list => external references to Attributes may exist
FLanguage := Src.FLanguage;
FLanguageName := Src.FLanguageName;
//FDefaultAttribute.Assign(Src.FDefaultAttribute);
FDefaultAttribute := nil;
NewList := TQuickStringlist.Create;
for i := 0 to Src.AttributeCount - 1 do begin
SrcAttr := Src.AttributeAtPos[i];
Attr := TColorSchemeAttribute.Create(Self, SrcAttr.Caption, SrcAttr.StoredName);
// Reuse existing Attribute if possible.
j := FAttributes.IndexOf(UpperCase(SrcAttr.StoredName));
if j >= 0 then begin
Attr := TColorSchemeAttribute(FAttributes.Objects[j]);
DebugLn([' Use existing attr ', Attr.StoredName]);
FAttributes.Delete(j);
end
else begin
Attr := TColorSchemeAttribute.Create(Self, SrcAttr.Caption, SrcAttr.StoredName);
end;
Attr.Assign(SrcAttr);
FAttributes.AddObject(Attr.StoredName, Attr);
NewList.AddObject(UpperCase(Attr.StoredName), Attr);
if SrcAttr = Src.DefaultAttribute then
FDefaultAttribute := Attr;
end;
Clear;
FreeAndNil(FAttributes);
FAttributes := NewList;
FAttributes.Sorted := true;
end;

4
ide/frames/editor_color_options.pas
View File

@ -1213,7 +1213,9 @@ begin
DefaultSchemeGrp := ColorSchemeFactory.ColorSchemeGroup[ColorSchemeButton.Caption];
if DefaultSchemeGrp = nil then
exit;
if FIsEditingDefaults or FCurHighlightElement.IsUsingSchemeGlobals then
if FIsEditingDefaults or
(OnlySelected and FCurHighlightElement.IsUsingSchemeGlobals)
then
DefaultColorScheme := DefaultSchemeGrp.DefaultColors
else
DefaultColorScheme := DefaultSchemeGrp.ColorScheme[FCurrentColorScheme.Language];