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