anchor.diff:    //OK btn needs confirmtion
     panelBtn.OKButton.ModalResult:= mrNone;
   
  -  DoUpdate;
  +  UpdateState;
   
     //if no hotkeys, user wants to add it, so auto-press Extend here
     if (Keys1.ToString='') and (Keys2.ToString='') then
  
positive.code:   private
      { private declarations }
      FKeyPressed: integer;
      procedure DoAddKey(var K: TATKeyArray);
      procedure DoUpdate;
      function GetHotkey: integer;
      procedure Localize;
    public
  
negative.code:   end;
  end;
  
  procedure TfmKeys.UpdateState;
  var
    Item: TATKeymapItem;
    SDesc: string;
  