anchor.diff:  begin
     if msg.dest = FForm then
       UpdatePropWin;
  +  msg.Stop  := True;
   end;
   
   procedure TFormDesigner.MsgResize(var msg: TfpgMessageRec);
   begin
  +  msg.Stop := True;
     if msg.dest = FForm then
     begin
       DeSelectAll; // because of the anchorings
  
positive.code:   x, y: integer;
  begin
  //  writeln('TFormDesigner.MsgMouseUp');
    FDragging := False;
  
    shift := (ssShift in msg.Params.mouse.shiftstate);
  
negative.code:   dx, dy: integer;
    wgd: TWidgetDesigner;
  begin
    msg.Stop  := True;
    if not FDragging then
      Exit;
  
  