anchor.diff:  end;
   
   procedure TfmColorSetup.FormShow(Sender: TObject);
  +var
  +  i: integer;
   begin
     Localize;
   
  
positive.code:   C.Font.Color:= st.Font.Color;
    C.Font.Style:= st.Font.Style;
    C.Brush.Color:= st.BgColor;
  
    S:= cExample;
    NWidth:= C.TextWidth(S);
  
negative.code:   List.ItemIndex:= 0;
    ListStyles.ItemIndex:= 0;
  
    FColorBg:= clWhite;
    for i:= Low(Data.Colors) to High(Data.Colors) do
      if Data.Colors[i].name='EdTextBg' then
      begin
        FColorBg:= Data.Colors[i].color;
        Break
      end;
  
    if PanelUi.Visible then
      ActiveControl:= List
    else
  