anchor.diff:      inherited;
   end;
   
  + {$ifdef UseVCLStyles}
  +type
  +  TWinControlClassHook = class(TWinControl);
  +
  +class constructor TBegaScrollingWinControl.Create;
  +begin
  +   TCustomStyleEngine.RegisterStyleHook(TBegaScrollingWinControl, TBegaScrollingWinControlStyleHook);
  +end;
  +
  +class destructor TBegaScrollingWinControl.Destroy;
  +begin
  +  TCustomStyleEngine.UnRegisterStyleHook(TBegaScrollingWinControl, TBegaScrollingWinControlStyleHook);
  +end;
  +
  +procedure TBegaScrollingWinControlStyleHook.WndProc(var Message: TMessage);
  +begin
  +  // Reserved for potential updates
  +  inherited;
  +end;
  +
  +constructor TBegaScrollingWinControlStyleHook.Create(AControl: TWinControl);
  +begin
  +  inherited;
  +  OverrideEraseBkgnd := True;
  +  {$ifdef has_StyleElements}
  +  if seClient in Control.StyleElements then
  +    Brush.Color := StyleServices.GetStyleColor(scPanel)
  +  else
  +    Brush.Color :=  TWinControlClassHook(Control).Color;
  +  {$else}
  +  Brush.Color := StyleServices.GetStyleColor(scListBox);
  +  {$Endif}
  +end;
  +
  + {$endif}
  +
   { TBegaScrollBox }
   
   constructor TBegaScrollBox.Create(AOwner: TComponent);
  
positive.code: interface
  
  uses
    Classes, SysUtils, Messages,
  {$ifdef LCL}
    LclIntf, LclType, LMessages,
  
negative.code: 
  implementation
  
   {$ifdef UseVCLStyles}
   uses
     System.UITypes;
   {$endif}
  
  { TBegaScrollBar }
  
  constructor TBegaScrollBar.Create(AControl: TBegaScrollingWinControl; AKind: TScrollBarKind);
  