anchor.diff:    {$IFDEF DEBUG}
     writeln('MsgMouseEnter');
     {$ENDIF}
  -  if FFormDesigner <> nil then
  +  if InDesigner then
     begin
       FFormDesigner.Dispatch(msg);
       if msg.Stop then
  
positive.code:   {$IFDEF DEBUG}
    writeln('MsgMouseExit');
    {$ENDIF}
    if FFormDesigner <> nil then
    begin
      FFormDesigner.Dispatch(msg);
      if msg.Stop then
  
negative.code:   IsDblClick: boolean;
  begin
  //  writeln('TfpgWidget.MsgMouseUp');
    if InDesigner then
    begin
      FFormDesigner.Dispatch(msg);
      if msg.Stop then
  