anchor.diff:      FOnClosingTabSheet(self, ATabSheet);
   end;
   
  +{ Mode = 1 means the background tabs. Mode = 2 means the Active Tab }
   function TfpgPageControl.DrawTab(const rect: TfpgRect; const Selected: Boolean = False; const Mode: Integer = 1): TfpgRect;
   var
     r: TfpgRect;
  
positive.code: 
    FTextColor        := Parent.TextColor;
    FBackgroundColor  := Parent.BackgroundColor;
    FFocusable        := True;
    FOnChange         := nil;
    FFixedTabWidth    := 0;
  
negative.code:   end;
  
    if Mode = 2 then
    begin
      r.Height -= 1;
      Canvas.SetColor(ActiveTabColor);
    end
    else
      Canvas.SetColor(BackgroundColor);
  
    case TabPosition of
      tpTop:
        begin
          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
  