anchor.diff:  
   uses
     DDuce.Components.Factories;
  -  //Concepts.Factories;
   
   {$R *.dfm}
   
   {$REGION 'construction and destruction'}
   procedure TfrmChromeTabs.AfterConstruction;
   var
  -  I: Integer;
  -  C: TWinControl;
  +  I : Integer;
  +  C : TWinControl;
   begin
     inherited;
  -  //FPropertyInspector :=
  -    //TDDuceComponents.CreatePropertyInspector(Self, pnlLeft, ctTop);
  +  FCTTop                        := TChromeTabs.Create(Self);
  +  FCTTop.Parent                 := pnlRight;
  +  FCTTop.Align                  := alTop;
  +  FCTTop.OnTabDragDrop          := FCTTopTabDragDrop;
  +  FCTTop.OnNeedDragImageControl := FCTTopNeedDragImageControl;
  +
  +  FPropertyInspector :=
  +    TDDuceComponents.CreatePropertyInspector(Self, pnlLeft, FCTTop);
     for I := 0 to ComponentCount - 1 do
     begin
       if Components[I] is TWinControl then
  
positive.code:   FPropertyInspector.Objects[0] := C;
  end;
  
  procedure TfrmChromeTabs.ctTopNeedDragImageControl(Sender: TObject;
    ATab: TChromeTab; var DragControl: TWinControl);
  begin
    DragControl := pnlDrag;
  end;
  
  procedure TfrmChromeTabs.ctTopTabDragDrop(Sender: TObject; X, Y: Integer;
    DragTabObject: IDragTabObject; Cancelled: Boolean;
    var TabDropOptions: TTabDropOptions);
  begin
  
negative.code:     {$ENDREGION}
  
      procedure cbxControlsChange(Sender: TObject);
      procedure FCTTopNeedDragImageControl(
        Sender          : TObject;
        ATab            : TChromeTab;
        var DragControl : TWinControl
      );
      procedure FCTTopTabDragDrop(
        Sender             : TObject;
        X, Y               : Integer;
        DragTabObject      : IDragTabObject;
        Cancelled          : Boolean;
        var TabDropOptions : TTabDropOptions
      );
  
    private
      FPropertyInspector : TPropertyInspector;
      FCTTop             : TChromeTabs;
  
    protected
      procedure ProcessDroppedTab(
        Sender             : TObject;
        X, Y               : Integer;
        DragTabObject      : IDragTabObject;
        Cancelled          : Boolean;
        var TabDropOptions : TTabDropOptions
      );
    public
  