anchor.diff:  
       tpBottom:
         begin
  -        Canvas.FillRectangle(r.Left, r.Top+1, r.Width-2, r.Height-3);   // fill tab background
  +        Canvas.FillRectangle(r.Left, r.Top, r.Width-1, r.Height-2);   // fill tab background
           Canvas.SetColor(clHilite2);
           Canvas.DrawLine(r.Left, r.Top, r.Left, r.Bottom-1);           // left edge
           Canvas.SetColor(clShadow2);
           Canvas.DrawLine(r.Left+2,  r.Bottom, r.Right-1, r.Bottom);    // bottom outer edge
           Canvas.SetColor(clShadow1);
  -        Canvas.DrawLine(r.Right-1, r.Bottom-1, r.Right-1, r.Top+1);   // right inner edge
  +        Canvas.DrawLine(r.Right-1, r.Bottom-1, r.Right-1, r.Top-1);   // right inner edge
           Canvas.DrawLine(r.Left+1,  r.Bottom-1, r.Right-1, r.Bottom-1);// bottom inner edge
           Canvas.SetColor(clShadow2);
           Canvas.DrawLine(r.Right-1, r.Bottom-1, r.Right, r.Bottom-2);  // right rounded edge (1px)
  -        Canvas.DrawLine(r.Right, r.Bottom-2, r.Right, r.Top+1);       // right outer edge
  +        Canvas.DrawLine(r.Right, r.Bottom-2, r.Right, r.Top-1);       // right outer edge
  +        if Mode = 2 then  { selected tab }
  +        begin
  +          Canvas.SetColor(ActiveTabColor);
  +          Canvas.DrawLine(r.Left+1, r.Top-1, r.Right-1, r.Top-1);
  +        end;
         end;
   
       tpLeft:
         begin
  -        if Mode = 2 then
  +        if Mode = 2 then  { selected tab }
           begin
             r.Width  := r.Width - 1;
             r.Height := r.Height + 2;
  
positive.code:   if Mode = 2 then
    begin
      r.Height -= 1;
      Canvas.SetColor(ActiveTabColor);
    end
    else
  
negative.code:           // paint tab button
            r2.Width := ButtonWidth(h.Text);
            r3 := DrawTab(r2, h = ActivePage);
            // paint text on non-active tabs
            if h <> ActivePage then
              Canvas.DrawText(lp + (ButtonWidth(h.Text) div 2) - FFont.TextWidth(GetTabText(h.Text)) div 2,
  