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