anchor.diff:  
     DoPaintTabShape(C,
       Rect(
  -      ARect.Left-FOptSpaceSide,
  +      ARect.Left-DoScale(FOptSpaceSide),
         ARect.Top,
  -      ARect.Right+FOptSpaceSide,
  +      ARect.Right+DoScale(FOptSpaceSide),
         ARect.Bottom),
       ATabActive,
       ATabIndex
  
positive.code:         if TabCount>0 then
          begin
            Result:= GetTabRect(TabCount-1, AWithScroll, false);
            Result.Top:= Result.Bottom + FOptSpaceBetweenTabs;
            Result.Bottom:= Result.Top + FOptTabHeight;
          end
          else
          begin
            Result.Left:= IfThen(FOptPosition=atpLeft, FOptSpacer, FOptSpacer2);
            Result.Right:= IfThen(FOptPosition=atpLeft, ClientWidth-FOptSpacer2, ClientWidth-FOptSpacer);
            Result.Top:= GetInitialVerticalIndent;
            Result.Bottom:= Result.Top + FOptTabHeight;
          end;
        end;
    end;
  
negative.code:         R.Left:= ARect.Left+1;
          R.Right:= ARect.Right-1;
          R.Top:= ARect.Top+1-Ord(FOptShowFlat);
          R.Bottom:= R.Top+DoScale(FOptColoredBandSize);
        end;
      atpBottom:
        begin
          R.Left:= ARect.Left+1;
          R.Right:= ARect.Right-1;
          R.Bottom:= ARect.Bottom;
          R.Top:= R.Bottom-DoScale(FOptColoredBandSize);
        end;
      atpLeft:
        begin
          R.Left:= ARect.Left+1-Ord(FOptShowFlat);
          R.Right:= R.Left+DoScale(FOptColoredBandSize);
          R.Top:= ARect.Top+1;
          R.Bottom:= ARect.Bottom-1;
        end;
      atpRight:
        begin
          R.Right:= ARect.Right-1+Ord(FOptShowFlat);
          R.Left:= R.Right-DoScale(FOptColoredBandSize);
          R.Top:= ARect.Top+1;
          R.Bottom:= ARect.Bottom-1;
        end;
  