anchor.diff:      procedure OKButtonClick(Sender: TObject);
     private
       { private declarations }
  +    FColorBg: TColor;
       procedure UpdateList;
       procedure Localize;
     public
  
positive.code:   List.ItemIndex:= 0;
    ListStyles.ItemIndex:= 0;
  
    if PanelUi.Visible then
      ActiveControl:= List
    else
  
negative.code:   C.Font.Color:= st.Font.Color;
    C.Font.Style:= st.Font.Style;
    C.Brush.Color:= st.BgColor;
    if st.BgColor=clNone then
      C.Brush.Color:= FColorBg;
  
    S:= cExample;
    NWidth:= C.TextWidth(S);
  