diff --git a/ide/editoroptions.pp b/ide/editoroptions.pp
index 4e7223b983..f6e9819fd7 100644
--- a/ide/editoroptions.pp
+++ b/ide/editoroptions.pp
@@ -4163,7 +4163,7 @@ begin
     FLanguageName := FHighlighter.LanguageName;
   end;
   FDefaultAttribute := TColorSchemeAttribute.Create(Self, dlgAddHiAttrDefault, 'ahaDefault');
-  FDefaultAttribute.Features := [hafBackColor, hafForeColor, hafFrameColor, hafStyle];
+  FDefaultAttribute.Features := [hafBackColor, hafForeColor];
   FDefaultAttribute.Group := agnDefault;
   FAttributes.AddObject(FDefaultAttribute.StoredName, FDefaultAttribute);
 end;
@@ -4183,6 +4183,7 @@ begin
       csa := TColorSchemeAttribute.Create(Self, FHighlighter.Attribute[i].Name,
                                           FHighlighter.Attribute[i].StoredName
                                          );
+      csa.Assign(FHighlighter.Attribute[i]);
       csa.Group := agnLanguage;
       FAttributes.AddObject(UpperCase(csa.StoredName), csa);
     end;
diff --git a/ide/frames/editor_color_options.pas b/ide/frames/editor_color_options.pas
index 8ec5649f00..304a442124 100644
--- a/ide/frames/editor_color_options.pas
+++ b/ide/frames/editor_color_options.pas
@@ -522,9 +522,9 @@ begin
     if hafStyleMask in AttrToEdit.Features then
       TextStyleRadioOnChange(Sender)
     else
-    if TextBoldCheckBox.Checked xor (fsItalic in AttrToEdit.Style) then
+    if TextItalicCheckBox.Checked xor (fsItalic in AttrToEdit.Style) then
     begin
-      if TextBoldCheckBox.Checked then
+      if TextItalicCheckBox.Checked then
         AttrToEdit.Style := AttrToEdit.Style + [fsItalic]
       else
         AttrToEdit.Style := AttrToEdit.Style - [fsItalic];
@@ -536,9 +536,9 @@ begin
     if hafStyleMask in AttrToEdit.Features then
       TextStyleRadioOnChange(Sender)
     else
-    if TextBoldCheckBox.Checked xor (fsUnderline in AttrToEdit.Style) then
+    if TextUnderlineCheckBox.Checked xor (fsUnderline in AttrToEdit.Style) then
     begin
-      if TextBoldCheckBox.Checked then
+      if TextUnderlineCheckBox.Checked then
         AttrToEdit.Style := AttrToEdit.Style + [fsUnderline]
       else
         AttrToEdit.Style := AttrToEdit.Style - [fsUnderline];