anchor.diff:            if ActivePage <> TfpgTabSheet(FPages.Last) then
             begin
               ActivePage := TfpgTabSheet(FPages[i+1]);
  -            DoChange(ActivePage);
             end;
           end;
   
  
positive.code:            if h <> ActivePage then
             begin
                ActivePage := h;
                DoChange(ActivePage);
             end;
             exit;
          end;  { if }
  
negative.code:   RePaint;
  end;
  
  procedure TfpgPageControl.DoPageChange(ATabSheet: TfpgTabSheet);
  begin
    if (csLoading in ComponentState) then
      Exit;
    if (csDesigning in ComponentState) then
      Exit;
    if Assigned(FOnChange) then
      FOnChange(self, ATabSheet);
  end;
  