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: 
  
  procedure TKMControl.KeyPress(Key: Char);
  begin
    //Could be something common
  end;
  
  
negative.code: 
    {Base class for all TKM elements}
    TKMControl = class
  //  type
  //    TKMKeyPressKind = (kpkDown, kpkPress);
  //    TKMKeyPress = record
  //      Time: Int64;
  ////      Key: Word;
  //      C: Char;
  //      Kind: TKMKeyPressKind;
  //      function ToString: string;
  //    end;
    private
  //    fKeyPressList: TList<TKMKeyPress>;
  
      fParent: TKMPanel;
      fAnchors: TKMAnchorsSet;
  
  