anchor.diff:            if ActivePage <> TfpgTabSheet(FPages.Last) then
             begin
               ActivePage := TfpgTabSheet(FPages[i+1]);
  -            DoChange(ActivePage);
             end;
           end;
   
  
positive.code:     procedure   SetSortPages(const AValue: boolean);
      procedure   SetStyle(const AValue: TfpgTabStyle);
      procedure   SetTabPosition(const AValue: TfpgTabPosition);
      procedure   DoChange(ATabSheet: TfpgTabSheet);
      function    DrawTab(const rect: TfpgRect; const Selected: Boolean = False; const Mode: Integer = 1): TfpgRect;
    protected
      procedure   OrderSheets; // currently using bubblesort
  
negative.code:           if ActivePage <> TfpgTabSheet(FPages.First) then
            begin
              ActivePage := TfpgTabSheet(FPages[i-1]);
            end;
          end;
  
  