anchor.diff:  
   
   function TKMControl.KeyDown(Key: Word; Shift: TShiftState): Boolean;
  -begin
  +//var
  +//  keyPress: TKMKeyPress;
  +begin
  +//  if fKeyPressList.Count = 0 then
  +//    keyPress.Time := TimeGetUSec
  +//  else
  +//    keyPress.Time := GetTImeUSecSince(fKeyPressList[0].Time);
  +
  +//  keyPress.Key := Key;
  +//  keyPress.C := Char(Key);
  +//  keyPress.Kind := kpkDown;
  +//  fKeyPressList.Add(keyPress);
  +
     Result := MODE_DESIGN_CONTROLS;
   
     if Assigned(fOnKeyDown) then
  
positive.code: end;
  
  
  end.
  
  
negative.code:   fLastClickPos := KMPOINT_ZERO;
    fIsHitTestUseDrawRect := False;
  
  //  fKeyPressList := TList<TKMKeyPress>.Create;
  
    if aParent <> nil then
    begin
      fID := aParent.fMasterControl.GetNextCtrlID;
  