anchor.diff:      Exit;
   
     if (fMinimap.MapTex.Tex <> 0) then
  -    TKMRenderUI.WriteTexture(fNewLeft, fNewTop, fPaintWidth, fPaintHeight, fMinimap.MapTex, $FFFFFFFF)
  +    TKMRenderUI.WriteTexture(Left + fLeftOffset, Top + fTopOffset, fPaintWidth, fPaintHeight, fMinimap.MapTex, $FFFFFFFF)
     else
       TKMRenderUI.WriteBevel(Left, Top, fWidth, fHeight);
   
  
positive.code:   begin
      R := fView.GetMinimapClip;
      if (R.Right - R.Left) * (R.Bottom - R.Top) > 0 then
        TKMRenderUI.WriteOutline(fNewLeft + Round(R.Left*fPaintWidth / fMinimap.MapX),
                            fNewTop  + Round(R.Top*fPaintHeight / fMinimap.MapY),
                            Round((R.Right - R.Left)*fPaintWidth / fMinimap.MapX),
                            Round((R.Bottom - R.Top)*fPaintHeight / fMinimap.MapY), 1, $FFFFFFFF);
    end;
  
    if not fShowLocs then Exit;
  
negative.code:   begin
      fPaintWidth := Width;
      fPaintHeight := Round(Height * fMinimap.MapY / Max(fMinimap.MapX, 1)); // X could = 0
      fLeftOffset := 0;
      fTopOffset := (Height - fPaintHeight) div 2;
    end
    else
    begin
      fPaintWidth := Round(Width * fMinimap.MapX / Max(fMinimap.MapY, 1)); // Y could = 0
      fPaintHeight := Height;
      fLeftOffset := (Width - fPaintWidth) div 2;
      fTopOffset := 0;
    end;
  end;
  
  