anchor.diff:          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);
  +          ApplyCorrectTabColorToCanvas;
             Canvas.DrawLine(r.Left+1, r.Top-1, r.Right-1, r.Top-1);
           end;
         end;
  
positive.code: {
      fpGUI  -  Free Pascal GUI Toolkit
  
      Copyright (C) 2006 - 2014 See the file AUTHORS.txt, included in this
      distribution, for details of the copyright.
  
      See the file COPYING.modifiedLGPL, included in this distribution,
  
negative.code:   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; //==>
  