anchor.diff:    List.Invalidate;
   end;
   
  +procedure TfmColorSetup.UpdateChanged;
  +begin
  +  ButtonPanel1.OKButton.Enabled:= FChanged;
  +  ButtonPanel1.HelpButton.Enabled:= FChanged;
  +end;
  +
   procedure TfmColorSetup.bChangeClick(Sender: TObject);
   begin
     ColorDialog1.Color:= PtrInt(List.Items.Objects[List.ItemIndex]);
  
positive.code:     procedure OKButtonClick(Sender: TObject);
    private
      { private declarations }
      FColorBg: TColor;
      procedure UpdateList;
      procedure Localize;
    public
      { public declarations }
  
negative.code:   else
    if PanelSyntax.Visible then
      ActiveControl:= ListStyles;
  
    UpdateChanged;
  end;
  
  procedure TfmColorSetup.HelpButtonClick(Sender: TObject);
  