anchor.diff:      procedure   SetPosition(aleft, atop, awidth, aheight: TfpgCoord);
       procedure   RePaint;
   
  -    //property OnMouseDown: TMouseEvent read FOnMouseDown write FOnMouseDown;
  -    //property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
  -    //property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
  -    //property OnMouseMove: TMouseMoveEvent read FOnMouseMove write FOnMouseMove;
  -    //property OnMouseUp: TMouseEvent read FOnMouseUp write FOnMouseUp;
       property    OnPaint: TPaintEvent read FOnPaint write FOnPaint;
       property    OnMouseExit: TNotifyEvent read FOnMouseExit write FOnMouseExit;
       property    OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
       property    OnMouseMove: TMouseMoveEvent read FOnMouseMove write FOnMouseMove;
  +    property    OnMouseDown: TMouseButtonEvent read FOnMouseDown write FOnMouseDown;
  +    property    OnMouseUp: TMouseButtonEvent read FOnMouseUp write FOnMouseUp;
       //property    OnKeyPress: TKeyPressEvent read FOnKeyPress write FOnKeyPress;
     public
  -    constructor Create(aowner: TComponent); override;
  +    constructor Create(AOwner: TComponent); override;
       destructor  Destroy; override;
       procedure   SetFocus;
       procedure   KillFocus;
  
positive.code:     end;
  end;
  
  constructor TfpgWidget.Create(aowner: TComponent);
  begin
    FOnScreen := False;
    FVisible := True;
    FActiveWidget := nil;
    FEnabled      := True;
    FFocusable := False;
  
negative.code:   FAlign := alNone;
  //  OnKeyPress := nil;
  
    if (AOwner <> nil) and (AOwner is TfpgWidget) then
      FParent := TfpgWidget(AOwner)
    else
      FParent := nil;
  
  