anchor.diff:  begin
     if FActiveWidget = AValue then
       Exit; //==>
  -  if FFormDesigner <> nil then
  +  if InDesigner then
       Exit; //==>
     
     if FActiveWidget <> nil then
  
positive.code:   consumed: boolean;
    wg: TfpgWidget;
  begin
    if FFormDesigner <> nil then
    begin
      FFormDesigner.Dispatch(msg);
      if msg.Stop then
  
negative.code:   consumed: boolean;
    wg: TfpgWidget;
  begin
    if InDesigner then
    begin
      FFormDesigner.Dispatch(msg);
      if msg.Stop then
  