anchor.diff:    {$IFDEF DEBUG}
     writeln('MsgMouseEnter');
     {$ENDIF}
  -  if FFormDesigner <> nil then
  +  if InDesigner then
     begin
       FFormDesigner.Dispatch(msg);
       if msg.Stop then
  
positive.code: begin
    if FActiveWidget = AValue then
      Exit; //==>
    if FFormDesigner <> nil then
      Exit; //==>
    
    if FActiveWidget <> nil then
  
negative.code:     procedure   MoveAndResizeBy(const dx, dy, dw, dh: TfpgCoord);
      procedure   SetPosition(aleft, atop, awidth, aheight: TfpgCoord); virtual;
      procedure   Invalidate; // double check this works as developers expect????
      property    FormDesigner: TObject read FFormDesigner write SetFormDesigner;
      property    Parent: TfpgWidget read GetParent write SetParent;
      property    ActiveWidget: TfpgWidget read FActiveWidget write SetActiveWidget;
      property    IsContainer: Boolean read FIsContainer;
  