anchor.diff:  
   implementation
   
  + {$ifdef UseVCLStyles}
  + uses
  +   System.UITypes;
  + {$endif}
  +
   { TBegaScrollBar }
   
   constructor TBegaScrollBar.Create(AControl: TBegaScrollingWinControl; AKind: TScrollBarKind);
  
positive.code: interface
  
  uses
    Classes, SysUtils, Messages,
  {$ifdef LCL}
    LclIntf, LclType, LMessages,
  
negative.code:     property HorzScrollBar: TBegaScrollBar read FHorzScrollBar write SetHorzScrollBar;
      property VertScrollBar: TBegaScrollBar read FVertScrollBar write SetVertScrollBar;
    end;
   {$ifdef UseVCLStyles}
   TBegaScrollingWinControlStyleHook = class(TScrollingStyleHook)
    strict protected
      procedure WndProc(var Message: TMessage); override;
    public
      constructor Create(AControl: TWinControl); override;
    end;
  
   {$endif}
    TBegaScrollBox = class(TBegaScrollingWinControl)
    private
      FBorderStyle: TBorderStyle;
  