anchor.diff:    FScroll.Parent:= Self;
     FScroll.Kind:= sbVertical;
     FScroll.Align:= alRight;
  -  FScroll.Width:= cATScrollWidth;
  -  FScroll.IndentBorder:= cATScrollBorderSize;
  +  FScroll.Width:= UiOps_ScrollbarWidth;
  +  FScroll.IndentBorder:= UiOps_ScrollbarBorderSize;
     FScroll.OnChange:= @ScrollChange;
     UpdScroll;
   end;
  
positive.code:   end;
  
  const
    cATScrollWidth = 16;
    cATScrollBorderSize = 0;
  
  
  implementation
  
negative.code:   FScroll.Parent:= Self;
    FScroll.Kind:= sbVertical;
    FScroll.Align:= alRight;
    FScroll.Width:= UiOps_ScrollbarWidth;
    FScroll.IndentBorder:= UiOps_ScrollbarBorderSize;
    FScroll.OnChange:= @ScrollChange;
    UpdScroll;
  end;
  