anchor.diff:      property    OnMouseExit: TNotifyEvent read FOnMouseExit write FOnMouseExit;
       property    OnMouseMove: TMouseMoveEvent read FOnMouseMove write FOnMouseMove;
       property    OnMouseUp: TMouseButtonEvent read FOnMouseUp write FOnMouseUp;
  +    property    OnMouseScroll: TMouseWheelEvent read FOnMouseScroll write FOnMouseScroll;
       property    OnPaint: TPaintEvent read FOnPaint write FOnPaint;
       property    OnResize: TNotifyEvent read FOnResize write FOnResize;
       property    OnShowHint: THintEvent read GetOnShowHint write SetOnShowHint;
  
positive.code: 
  procedure TfpgWidget.HandleMouseScroll(x, y: integer; shiftstate: TShiftState; delta: smallint);
  begin
    // do nothing yet
  end;
  
  function TfpgWidget.FindFocusWidget(startwg: TfpgWidget; direction: TFocusSearchDirection): TfpgWidget;
  
negative.code:     FOnMouseExit: TNotifyEvent;
      FOnMouseMove: TMouseMoveEvent;
      FOnMouseUp: TMouseButtonEvent;
      FOnMouseScroll: TMouseWheelEvent;
      FOnPaint: TPaintEvent;
      FOnKeyPress: TKeyPressEvent;
      FOnResize: TNotifyEvent;
  