anchor.diff:      FSelected: boolean;
       resizer: array[1..8] of TwgResizer;
       other: TStringList;
  +    MarkForDeletion: Boolean;
       constructor Create(AFormDesigner: TFormDesigner; wg: TfpgWidget; wgc: TVFDWidgetClass);
       destructor  Destroy; override;
  +    procedure   UpdateResizerPositions;
       property    Selected: boolean read FSelected write SetSelected;
       property    Widget: TfpgWidget read FWidget;
  -    procedure   UpdateResizerPositions;
       property    FormDesigner: TFormDesigner read FFormDesigner;
     end;
   
  
positive.code: var
    n: integer;
    cd: TWidgetDesigner;
  begin
    n := 0;
    while n < FWidgets.Count do
    begin
      cd := TWidgetDesigner(FWidgets.Items[n]);
      if cd.Selected then
      begin
        cd.Widget.Free;
        cd.Free;
        FWidgets.Delete(n);
      end
      else
        Inc(n);
    end;
    UpdatePropWin;
  end;
  
  
negative.code:   FSelected := False;
    wg.MouseCursor := mcDefault;
    other := TStringList.Create;
    MarkForDeletion := False;
  end;
  
  destructor TWidgetDesigner.Destroy;
  