anchor.diff:  function TKMColumnBox.CanChangeSelection: Boolean;
   begin
     Result := not HideSelection;
  +end;
  +
  +
  +function TKMColumnBox.CanFocusNext: Boolean;
  +begin
  +  Result := not PassAllKeys;
   end;
   
   
  
positive.code: 
      function KeyDown(Key: Word; Shift: TShiftState): Boolean; override;
      procedure KeyPress(Key: Char); override;
      procedure MouseDown(X,Y: Integer; Shift: TShiftState; Button: TMouseButton); override;
      procedure MouseMove(X,Y: Integer; Shift: TShiftState); override;
      procedure MouseUp(X,Y: Integer; Shift: TShiftState; Button: TMouseButton); override;
  
negative.code:     Exit
    else
      inherited;
  end;
  
  
  function TKMColumnBox.KeyUp(Key: Word; Shift: TShiftState): Boolean;
  begin
    Result := False;
    if PassAllKeys then
    begin
      if Assigned(fOnKeyUp) then
        Result := fOnKeyUp(Self, Key, Shift);
  
      Exit;
    end;
  
    Result := inherited;
  end;
  
  
  