anchor.diff:    inherited;
   end;
   
  -procedure TLayouts.CombineRegion(var Rgn: HRGN);
  -var
  -  i: Integer;
  -begin
  -  inherited;
  -  for i := 0 to FLayoutList.Count - 1 do
  -  begin
  -    FLayoutList[i].CombineRegion(Rgn);
  -  end;
  -end;
  -
   constructor TLayouts.Create(AOwner: TComponent);
   begin
     inherited;
  
positive.code:   begin
      FName := 'Top';
    end;
    with TLayout.Create(Self) do
    begin
      FName := 'Bottom';
    end;
  end;
  
  destructor TLayouts.Destroy;
  
negative.code:     property Caption: String read FCaption write FCaption;
    end;
  
    { TCustomBoard }
  
    TCustomBoard = class(TCustomControl)
    private
      FCurrentLayout: TContainer;
      FLayouts: TLayouts;
      FDesignElement: TElement;
      procedure SetDesignElement(const Value: TElement);
      procedure SetCurrentLayout(const Value: TContainer);
  