anchor.diff:  begin
     inherited;
   
  -  fScrollInc.Left := Left;
  -
  -  if fScrollAxis = sa_Vertical then
  -    fScrollDec.Left := Left;
  -
  -  if fScrollAxis = sa_Horizontal then
  -    fScrollDec.Left := Left + Width - Height;
  -
  -  UpdateThumbSize; //Update Thumb size
  -  UpdateThumbPos;
  +  //Update Thumb size
  +  UpdateThumbSize;
   end;
   
   
  
positive.code:     procedure UpdateThumbPos;
      procedure UpdateThumbSize;
    protected
      procedure SetLeft(aValue: Integer); override;
      procedure SetTop(aValue: Integer); override;
      procedure SetHeight(aValue: Integer); override;
      procedure SetWidth(aValue: Integer); override;
      procedure SetEnabled(aValue: Boolean); override;
      procedure SetVisible(aValue: Boolean); override;
    public
      BackAlpha: Single; //Alpha of background (usually 0.5, dropbox 1)
      EdgeAlpha: Single; //Alpha of background outline (usually 1)
  
negative.code: 
    TScrollAxis = (sa_Vertical, sa_Horizontal);
  
    TKMScrollBar = class(TKMPanel)
    private
      fScrollAxis: TScrollAxis;
      fStyle: TButtonStyle;
  