anchor.diff:      MoveAndResize(FLeft + dx, FTop + dy, FWidth + dw, FHeight + dh);
   end;
   
  -function CompareInts(i1, i2: integer): integer;
  -begin
  -  if i1 < i2 then
  -    Result := -1
  -  else if i1 > i2 then
  -    Result := 1
  -  else
  -    Result := 0;
  -end;
  -
  -function AlignCompare(p1, p2: Pointer): integer;
  -var
  -  w1: TfpgWidget;
  -  w2: TfpgWidget;
  -begin
  -  w1 := TfpgWidget(p1);
  -  w2 := TfpgWidget(p2);
  -  case w1.Align of
  -    alTop:    Result := CompareInts(w1.Top, w2.Top);
  -    alBottom: Result := CompareInts(w2.Top, w1.Top);
  -    alLeft:   Result := CompareInts(w1.Left, w2.Left);
  -    alRight:  Result := CompareInts(w2.Left, w1.Left);
  -    else
  -      Result         := 0;
  -  end;
  -end;
  -
  -procedure TfpgWidget.DoAlign(AAlign: TAlign);
  -var
  -  alist: TList;
  +procedure TfpgWidget.DoAlignment;
  +var
     w: TfpgWidget;
     n: integer;
   begin
  -  alist := TList.Create;
  -  for n := 0 to ComponentCount - 1 do
  -    if Components[n] is TfpgWidget then
  -    begin
  -      w := TfpgWidget(Components[n]);
  -      if (w.Align = AAlign) and (w.Visible) then
  -        alist.Add(w);
  -    end;
  -
  -  alist.Sort(@AlignCompare);
  -
     // and process this list in order
     for n := 0 to alist.Count - 1 do
     begin
       w := TfpgWidget(alist[n]);
  -    case AAlign of
  +    case w.Align of
         alTop:
           begin
             w.MoveAndResize(FAlignRect.Left, FAlignRect.Top, FAlignRect.Width, w.Height);
  
positive.code:     if (Components[i] is TfpgWidget) and (TfpgWidget(Components[i]).Parent = self) then
        TfpgWidget(Components[i]).FormDesigner := AValue;
    end;
  end;
  
  procedure TfpgWidget.SetVisible(const AValue: boolean);
  
negative.code:     property    Focusable: boolean read FFocusable write FFocusable default False;
      property    Focused: boolean read FFocused write FFocused default False;
      property    Anchors: TAnchors read FAnchors write FAnchors default [anLeft, anTop];
      property    Align: TAlign read FAlign write SetAlign default alNone;
      property    Hint: TfpgString read GetHint write SetHint;
      property    ShowHint: boolean read FShowHint write SetShowHint stored IsShowHintStored;
      property    ParentShowHint: boolean read FParentShowHint write SetParentShowHint default True;
  