anchor.diff:      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;
   
   
  
positive.code:     function GetHint: UnicodeString; virtual;
      procedure SetHint(const aHint: UnicodeString); virtual;
      procedure SetPaintLayer(aPaintLayer: Integer);
    public
      Hitable: Boolean; //Can this control be hit with the cursor?
      Focusable: Boolean; //Can this control have focus (e.g. TKMEdit sets this true)
  
negative.code: 
      function KeyDown(Key: Word; Shift: TShiftState): Boolean; override;
      procedure KeyPress(Key: Char); override;
      function KeyUp(Key: Word; Shift: TShiftState): Boolean; 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;
  