anchor.diff:            if ActivePage <> TfpgTabSheet(FPages.First) then
             begin
               ActivePage := TfpgTabSheet(FPages[i-1]);
  +            consumed := True;
             end;
           end;
   
  
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: var
    i: integer;
  begin
    i := ActivePageIndex;
    if ssAlt in shiftstate then
    case keycode of
  