anchor.diff:  
       if fScrollAxis = sa_Vertical then
         if InRange(Y,Top+Width,Top+Height-Width) then
  -        NewPos := Round(fMinValue+((Y-Top-Width-Thumb/2)/(Height-Width*2-Thumb)) * (fMaxValue - fMinValue) );
  +        NewPos := Round(fMinValue+((Y-Top-Width-fThumb/2)/(Height-Width*2-fThumb)) * (fMaxValue - fMinValue) );
   
       if fScrollAxis = sa_Horizontal then
         if InRange(X,Left+Height,Left+Width-Height) then
  -        NewPos := Round(fMinValue+((X-Left-Height-Thumb/2)/(Width-Height*2-Thumb)) * (fMaxValue - fMinValue) );
  +        NewPos := Round(fMinValue+((X-Left-Height-fThumb/2)/(Width-Height*2-fThumb)) * (fMaxValue - fMinValue) );
   
       if NewPos <> fPosition then begin
         SetPosition(NewPos);
  
positive.code:   { Minimap as stand-alone control }
    TKMMinimap = class(TKMControl)
    private
      fMapSize:TKMPoint;
      fViewArea:TRect;
      fOnChange:TPointEvent;
    public
      constructor Create(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight:integer);
  
  
negative.code:   public
      constructor Create(aParent:TKMPanel; aLeft,aTop,aColumnCount,aRowCount,aSize:integer);
      procedure SetColors(aColors:array of TColor4; aInclRandom:boolean=false);
      property BackAlpha:single read fBackAlpha write fBackAlpha;
      property ColorIndex:Byte read fColorIndex write fColorIndex;
      function GetColor:TColor4;
      procedure MouseUp(X,Y:Integer; Shift:TShiftState; Button:TMouseButton); override;
  