anchor.diff:    FPropertyInspector.Objects[0] := C;
   end;
   
  -procedure TfrmChromeTabs.ctTopNeedDragImageControl(Sender: TObject;
  +procedure TfrmChromeTabs.FCTTopNeedDragImageControl(Sender: TObject;
     ATab: TChromeTab; var DragControl: TWinControl);
   begin
     DragControl := pnlDrag;
   end;
   
  -procedure TfrmChromeTabs.ctTopTabDragDrop(Sender: TObject; X, Y: Integer;
  +procedure TfrmChromeTabs.FCTTopTabDragDrop(Sender: TObject; X, Y: Integer;
     DragTabObject: IDragTabObject; Cancelled: Boolean;
     var TabDropOptions: TTabDropOptions);
   begin
  
positive.code:     {$ENDREGION}
  
      procedure cbxControlsChange(Sender: TObject);
      procedure ctTopNeedDragImageControl(Sender: TObject; ATab: TChromeTab;
        var DragControl: TWinControl);
      procedure ctTopTabDragDrop(Sender: TObject; X, Y: Integer;
        DragTabObject: IDragTabObject; Cancelled: Boolean;
        var TabDropOptions: TTabDropOptions);
  
    private
      FPropertyInspector: TPropertyInspector;
  
    protected
      procedure ProcessDroppedTab(
            Sender         : TObject;
            X, Y           : Integer;
            DragTabObject  : IDragTabObject;
            Cancelled      : Boolean;
        var TabDropOptions : TTabDropOptions
      );
    public
  
negative.code: 
  uses
    DDuce.Components.Factories;
  
  {$R *.dfm}
  
  {$REGION 'construction and destruction'}
  procedure TfrmChromeTabs.AfterConstruction;
  var
    I : Integer;
    C : TWinControl;
  begin
    inherited;
    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
  