anchor.diff:    FAlign := alNone;
   //  OnKeyPress := nil;
   
  -  if (aowner <> nil) and (aowner is TfpgWidget) then
  -    FParent := TfpgWidget(aowner)
  +  if (AOwner <> nil) and (AOwner is TfpgWidget) then
  +    FParent := TfpgWidget(AOwner)
     else
       FParent := nil;
   
  
positive.code:     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    OnKeyPress: TKeyPressEvent read FOnKeyPress write FOnKeyPress;
    public
      constructor Create(aowner: TComponent); override;
      destructor  Destroy; override;
      procedure   SetFocus;
      procedure   KillFocus;
  
negative.code:   TfpgWidget = class(TfpgWindow)
    private
      FAlignRect: TfpgRect;
      FOnMouseDown: TMouseButtonEvent;
      FOnMouseEnter: TNotifyEvent;
      FOnMouseExit: TNotifyEvent;
      FOnMouseMove: TMouseMoveEvent;
      FOnMouseUp: TMouseButtonEvent;
      FOnPaint: TPaintEvent;
      FOnScreen: boolean;
      procedure   MsgPaint(var msg: TfpgMessageRec); message FPGM_PAINT;
  