anchor.diff:          Canvas.DrawButtonFace(r2, []);
   
           // Draw text of ActivePage, because we didn't before.
  +        h := self.ActivePage;
           DrawTab(h, r3, false, 2);
  -        Canvas.SetTextColor(ActiveTabTextColor);
  +        ApplyCorrectTabTextColorToCanvas(h);
           Canvas.DrawText(r3.left+toffset, r3.Top, r3.Width, r3.Height, ActivePage.Text, lTxtFlags);
         end;
   
  
positive.code:         Canvas.DrawButtonFace(r2, []);
  
          // Draw text of ActivePage, because we didn't before.
          DrawTab(h, r3, false, 2);
          Canvas.SetTextColor(ActiveTabTextColor);
          Canvas.DrawText(r3.Left+4, r3.Top+3, r3.Width, r3.Height, ActivePage.Text, lTxtFlags);
        end;
  
  
negative.code:     property    OnClosingTabSheet: TTabSheetClosing read FOnClosingTabSheet write FOnClosingTabSheet;
    published
      property    ActivePageIndex: integer read GetActivePageIndex write SetActivePageIndex default 0;
      property    ActiveTabColor: TfpgColor read GetActiveTabColor write SetActiveTabColor default clDefault;
      property    ActiveTabTextColor: TfpgColor read GetActiveTabTextColor write SetActiveTabTextColor default clDefault;
      property    Align;
      property    BackgroundColor;
      property    Enabled;
  