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: 
  procedure TFormDesigner.MsgActivate(var msg: TfpgMessageRec);
  begin
    maindsgn.SelectForm(self);
  end;
  
  
negative.code:   shift: boolean;
  begin
  //  writeln('TFormDesigner.MsgMouseDown');
    msg.Stop  := True;
    FDragging := True;
    FWasDrag  := False;
    FDragPosX := msg.Params.mouse.x;
  