anchor.diff:        ListboxSyntaxClick(Self);
       end;
     end;
  +
  +  FBusyClickUi:= false;
   end;
   
   procedure TfmChooseTheme.ListboxSyntaxClick(Sender: TObject);
  
positive.code:     procedure ListboxSyntaxClick(Sender: TObject);
      procedure ListboxUIClick(Sender: TObject);
    private
      procedure Localize;
      function GetEnableLexerThemes: boolean;
      function GetEnableSync: boolean;
  
negative.code:   N: integer;
    S: string;
  begin
    if FBusyClickSyntax then exit;
    FBusyClickSyntax:= true;
  
    N:= ListboxSyntax.ItemIndex;
    if N>0 then
      S:= ListboxSyntax.Items[N]
  