anchor.diff:      property OnClickRight: TPointEvent read fOnClickRight write fOnClickRight;
       property OnDoubleClick: TNotifyEvent read fOnDoubleClick write fOnDoubleClick;
       property OnMouseWheel: TNotifyEventMW read fOnMouseWheel write fOnMouseWheel;
  -    property OnFocus: TBooleanEvent read fOnFocus write fOnFocus;
  -    property OnControlMouseDown: TNotifyEventShift read fOnControlMouseDown write fOnControlMouseDown;
  -    property OnControlMouseUp: TNotifyEventShift read fOnControlMouseUp write fOnControlMouseUp;
  +    property OnFocusChange: TBooleanEvent read fOnFocusChange write fOnFocusChange;
       property OnKeyDown: TNotifyEventKeyShiftFunc read fOnKeyDown write fOnKeyDown;
       property OnKeyUp: TNotifyEventKeyShiftFunc read fOnKeyUp write fOnKeyUp;
   
  
positive.code: end;
  
  
  procedure TKMMemo.Focus(aFocused: Boolean);
  begin
    if not aFocused then
    begin
  
negative.code:   BlockInput := False;
    fSelectable := aSelectable;
  
    //fOnControlMouseDown := ControlMouseDown;
  end;
  
  
  