anchor.diff:      if N>=0 then
       begin
         ListboxUI.ItemIndex:= N;
  -      ListboxUIClick(nil); //nil: don't do recursion
  +      ListboxUIClick(Self);
       end;
     end;
  +
  +  FBusyClickSyntax:= false;
   end;
   
   procedure TfmChooseTheme.Localize;
  
positive.code:   N: integer;
    S: string;
  begin
    N:= ListboxSyntax.ItemIndex;
    if N>0 then
      S:= ListboxSyntax.Items[N]
  
negative.code:       ListboxSyntaxClick(Self);
      end;
    end;
  
    FBusyClickUi:= false;
  end;
  
  procedure TfmChooseTheme.ListboxSyntaxClick(Sender: TObject);
  