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