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