anchor.diff:    IsDblClick: boolean;
   begin
   //  writeln('TfpgWidget.MsgMouseUp');
  +  FDragActive := False;
     if InDesigner then
     begin
       FFormDesigner.Dispatch(msg);
  
positive.code:     FFormDesigner.Dispatch(msg);
      if msg.Stop then
        Exit;
    end;
  
    HandleMouseMove(msg.Params.mouse.x, msg.Params.mouse.y, msg.Params.mouse.Buttons, msg.Params.mouse.shiftstate);
  
negative.code:     FOnDragDrop: TfpgDragDropEvent;
      FOnDragEnter: TfpgDragEnterEvent;
      FOnDragLeave: TNotifyEvent;
      FOnDragStartDetected: TNotifyEvent;
      FOnEnter: TNotifyEvent;
      FOnExit: TNotifyEvent;
      FOnMouseDown: TMouseButtonEvent;
  