anchor.diff:      procedure   SetTabPosition(const AValue: TfpgTabPosition);
       procedure   DoPageChange(ATabSheet: TfpgTabSheet);
       procedure   DoTabSheetClosing(ATabSheet: TfpgTabSheet);
  -    function    DrawTab(const ATabSheet: TfpgTabSheet; const rect: TfpgRect; const Selected: Boolean = False;
  -      const Mode: Integer = 1): TfpgRect;
  +    function    DrawTab(const ATabSheet: TfpgTabSheet; const rect: TfpgRect; const Selected: Boolean = False; const Mode: Integer = 1): TfpgRect;
       procedure   pmCloseTab(Sender: TObject);
       function    GetActiveTabColor: TfpgColor;
       procedure   SetActiveTabColor(AValue: TfpgColor);
  
positive.code:   toffset: integer;
    lTxtFlags: TfpgTextFlags;
    ActivePageVisible: Boolean;
  begin
    if not HasHandle then
      Exit; //==>
  
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;
  