anchor.diff:  
   
   procedure TKMControl.KeyPress(Key: Char);
  -begin
  +//var
  +//  I: Integer;
  +//  keyPress: TKMKeyPress;
  +begin
  +//  if fKeyPressList.Count = 0 then
  +//    keyPress.Time := TimeGetUSec
  +//  else
  +//    keyPress.Time := GetTImeUSecSince(fKeyPressList[0].Time);
  +////  keyPress.Key := 0;
  +//  keyPress.C := Key;
  +//  keyPress.Kind := kpkPress;
  +//
  +//  fKeyPressList.Add(keyPress);
  +
  +//  gLog.AddTime('KeyPressList cnt ' + IntToStr(fKeyPressList.Count));
  +//  for I := 0 to fKeyPressList.Count - 1 do
  +//    gLog.AddTime(fKeyPressList[I].ToString);
  +
     //Could be something common
   end;
   
  
positive.code:   fLastClickPos := KMPOINT_ZERO;
    fIsHitTestUseDrawRect := False;
  
    if aParent <> nil then
    begin
      fID := aParent.fMasterControl.GetNextCtrlID;
  
negative.code: end;
  
  
  { TKMControl.TKMKeyPress }
  //function TKMControl.TKMKeyPress.ToString: string;
  //var
  //  kindStr: string;
  //begin
  //  case Kind of
  //    kpkDown:  kindStr := 'Down';
  //    kpkPress: kindStr := 'Press';
  //    else      kindStr := 'unknown';
  //  end;
  ////  Result := Format('T=%d %s Key=%d C=%s ', [Integer(Time), kpkPress, Key, String(C)]);
  //  Result := Format('T=%d %s C=%d ', [Integer(Time), kindStr, {Key, }Ord(c)]);
  //end;
  
  
  end.
  
  