anchor.diff:  var
     i: integer;
   begin
  -//  writeln(Classname, '.Keypress');
  -  consumed := True;
     i := ActivePageIndex;
     if ssAlt in shiftstate then
     case keycode of
  
positive.code:           if ActivePage <> TfpgTabSheet(FPages.Last) then
            begin
              ActivePage := TfpgTabSheet(FPages[i+1]);
            end;
          end;
  
    else
      consumed := False;
    end;  { case/else }
    inherited HandleKeyPress(keycode, shiftstate, consumed);
  end;
  
  procedure TfpgPageControl.RePaint;
  
negative.code:           if ActivePage <> TfpgTabSheet(FPages.First) then
            begin
              ActivePage := TfpgTabSheet(FPages[i-1]);
              consumed := True;
            end;
          end;
  
  