anchor.diff:  
   {$ENDIF}
   
  +{ TTreeView }
  +
  +constructor TTreeView.Create(AOwner: TComponent);
  +begin
  +  inherited Create(AOwner);
  +  Self.ScrollBars := TScrollStyle.ssAutoBoth;
  +  Self.TreeLinePenStyle := TPenStyle.psSolid;
  +{$IFDEF LCLCocoa}
  +
  +{$ENDIF}
  +end;
  +
  +
  +{ TListView }
  +
  +constructor TListView.Create(AOwner: TComponent);
  +begin
  +  inherited Create(AOwner);
  +  Self.ScrollBars := TScrollStyle.ssAutoBoth;
  +end;
  +
   end.
   
  
positive.code: interface
  
  uses
    Classes, SysUtils, ExtCtrls, Forms;
  
  {$IFDEF WINDOWS}
   type
  
negative.code:    end;
  
  {$ENDIF}
  
  type
  
    { TListView }
  
    TListView = class(ComCtrls.TListView)
    public
      constructor Create(AOwner: TComponent); override;
    end;
  
    { TTreeView }
  
    TTreeView = class(ComCtrls.TTreeView)
    public
      constructor Create(AOwner: TComponent); override;
    end;
  
  implementation
  
  