anchor.diff:    end;
   
     if Mode = 2 then
  +  begin
       r.Height -= 1;
  -
  -  Canvas.SetColor(clWindowBackground);
  +    Canvas.SetColor(ActiveTabColor);
  +  end
  +  else
  +    Canvas.SetColor(BackgroundColor);
  +
     case TabPosition of
       tpTop:
         begin
  -        Canvas.FillRectangle(r.Left, r.Top, r.Width, r.Height-2);     // fill tab background
  +        Canvas.FillRectangle(r.Left+1, r.Top+1, r.Width-3, r.Height-2);     // fill tab background
           Canvas.SetColor(clHilite2);
           Canvas.DrawLine(r.Left, r.Bottom-2 , r.Left, r.Top+2);        // left edge
           Canvas.DrawLine(r.Left, r.Top+2 , r.Left+2, r.Top);           // left rounder edge
  
positive.code:     FTabOptions: TfpgTabOptions;
      FLastRClickPos: TfpgPoint;
      FUpdateCount: Integer;
      function    GetActivePageIndex: integer;
      function    GetPage(AIndex: integer): TfpgTabSheet;
      function    GetPageCount: Integer;
  
negative.code:       begin
          if Mode = 2 then
          begin
            r.Height := r.Height + 2;
          end;
          with Canvas do
          begin
            FillRectangle(r.Left+1, r.Top+1, r.Width-2, r.Height-3);
            SetColor(clHilite2);
            DrawLine(r.Left+1, r.Top, r.Right-2, r.Top);
            SetColor(clShadow1);
  