anchor.diff:  begin
     Data.Colors[TAppThemeColorId(List.ItemIndex)].color:= clNone;
     UpdateList;
  +
  +  FChanged:= true;
  +  UpdateChanged;
   end;
   
   procedure TfmColorSetup.bStyleClick(Sender: TObject);
  
positive.code: 
      if ShowModal=mrOk then
      begin
        st.Font.Color:= edColorFont.Selected;
        st.BgColor:= edColorBG.Selected;
        st.BorderColorBottom:= edColorBorder.Selected;
  
negative.code:   else
    if PanelSyntax.Visible then
      ActiveControl:= ListStyles;
  
    UpdateChanged;
  end;
  
  procedure TfmColorSetup.HelpButtonClick(Sender: TObject);
  