anchor.diff:    key := msg.params.keyboard.keycode;
     ss  := msg.params.keyboard.shiftstate;
   
  +  msg.Stop := True;
     consumed := False;
   
     DesignerKeyPress(key, ss, consumed);
  
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;
  