anchor.diff:      function GetHint: UnicodeString; virtual;
       procedure SetHint(const aHint: UnicodeString); virtual;
       procedure SetPaintLayer(aPaintLayer: Integer);
  +
  +    function CanFocusNext: Boolean; virtual;
     public
       Hitable: Boolean; //Can this control be hit with the cursor?
       Focusable: Boolean; //Can this control have focus (e.g. TKMEdit sets this true)
  
positive.code: end;
  
  
  function TKMControl.KeyUp(Key: Word; Shift: TShiftState): Boolean;
  begin
    Result := False;
    if (Key = VK_TAB) and IsFocused then
    begin
      Parent.FocusNext;
      Result := True;
      Exit;
    end;
  
    if Assigned(fOnKeyUp) then
  
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;
  
  
  