anchor.diff:  {
       fpGUI  -  Free Pascal GUI Toolkit
   
  -    Copyright (C) 2006 - 2010 See the file AUTHORS.txt, included in this
  +    Copyright (C) 2006 - 2012 See the file AUTHORS.txt, included in this
       distribution, for details of the copyright.
   
       See the file COPYING.modifiedLGPL, included in this distribution,
  
positive.code:   end;
  
    if Mode = 2 then
      r.Height -= 1;
  
    Canvas.SetColor(clWindowBackground);
    case TabPosition of
      tpTop:
        begin
          Canvas.FillRectangle(r.Left, r.Top, r.Width, 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
  
negative.code: 
      tpBottom:
        begin
          Canvas.FillRectangle(r.Left, r.Top+1, r.Width-2, r.Height-3);   // fill tab background
          Canvas.SetColor(clHilite2);
          Canvas.DrawLine(r.Left, r.Top, r.Left, r.Bottom-1);           // left edge
          Canvas.SetColor(clShadow2);
  