anchor.diff:    if FAlign = AValue then
       Exit;
     FAlign := AValue;
  -  Realign;
  +  if Parent <> nil then
  +    Parent.Realign;
   end;
   
   procedure TfpgWidget.SetVisible(const AValue: boolean);
  
positive.code:   itf := DebugMethodEnter('TfpgWidget.MoveAndResize');
    DebugLn(Format('Class:%s  t:%d  l:%d  w:%d  h:%d', [Classname, ATop, ALeft, AWidth, aHeight]));
    {$ENDIF}
    if HasHandle then
    begin
      if (ALeft <> FLeft) or (ATop <> FTop) then
        HandleMove(ALeft, ATop);
  
negative.code:     alist.Free;
    end;
  
    // Finally handle anchors (where Align = alNone)
    for n := 0 to ComponentCount - 1 do
      if (Components[n] is TfpgWidget) then
      begin
  