anchor.diff:  interface
   
   uses
  +  {$ifdef UseVCLStyles}
  +  Vcl.Themes,
  +  {$endif}
     Classes, SysUtils, Messages,
   {$ifdef LCL}
     LclIntf, LclType, LMessages,
  
positive.code:   end;
  
    TBegaScrollingWinControl = class(TWinControl)
    private
      FAutoRangeCount: Integer;
      FAutoScroll: Boolean;
  
negative.code:     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);
  