anchor.diff:    Props:= TAppControlProps((Sender as TControl).Tag);
     IdControl:= FindControlIndexByOurObject(Sender);
     Handled:= not DoEvent(IdControl, Props.FEventOnMenu,
  -    _MouseEventDataObject(mbRight, GetKeyShiftState, MousePos.X, MousePos.Y)
  +    AppVariant_MouseData(mbRight, GetKeyShiftState, MousePos.X, MousePos.Y)
       );
   end;
   
  
positive.code:   Shift: TShiftState; X, Y: Integer);
  begin
    _HandleMouseEvent(Sender, cControlEventMouseUp,
      _MouseEventDataObject(Button, Shift, X, Y)
      );
  end;
  
  
negative.code: begin
    Props:= TAppControlProps((Sender as TControl).Tag);
    IdControl:= FindControlIndexByOurObject(Sender);
    Data:= AppVariant_KeyData(Key, Shift);
    if not DoEvent(IdControl, Props.FEventOnEditorKeyDown, Data) then
      Key:= 0;
  end;
  