anchor.diff:    toffset: integer;
     lTxtFlags: TfpgTextFlags;
     ActivePageVisible: Boolean;
  +
  +  procedure ApplyCorrectTabTextColorToCanvas(ATab: TfpgTabSheet);
  +  begin
  +    if ActiveTabTextColor = clDefault then
  +      Canvas.SetTextColor(ATab.TabTextColor)
  +    else
  +      Canvas.SetTextColor(ActiveTabTextColor);
  +  end;
  +
   begin
     if not HasHandle then
       Exit; //==>
  
positive.code:         r2.Width   := Width;
          r2.Height  := Height - TabH;
          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+5, r3.Width, r3.Height, ActivePage.Text, lTxtFlags);
        end;
  
  
negative.code:   if PageCount = 0 then
      Exit; //==>
  
    TabW := FixedTabWidth;
    TabH := FixedTabHeight;
    ActivePageVisible := false;
    if TabH <= 1 then
      TabH := TAB_HEIGHT;
    h := TfpgTabSheet(FPages.First);
    if h = nil then
  