anchor.diff:            MaxKeyboardWidth := ItemWidth;
   
           Inc(TotalKeyboardHeight, ItemHeight);
  -        Inc(MaxScrollPosition);
         end
         else
         begin
  
positive.code:       end;
      end;
    end;
  
    Dec(MaxScrollPosition); // Don't allow scroll off the end of the list
  
    //
    // Do we need scrollable keyboard list? Only if it's greater than 75% of screen height
    //
  
    ScrollableView := TotalKeyboardHeight > (Screen.Height * 3 div 4);
    if ScrollableView then
    begin
      TotalKeyboardHeight := Screen.Height * 3 div 4;
    end;
  
    if not FIsKeyboardMenu then
  
negative.code:     if FSelectedItemIndex < ScrollPosition then
        ScrollPosition := FSelectedItemIndex
      else
        while (FItemRects[FSelectedItemIndex].Top + FItemOffsets[FSelectedItemIndex] < 0) or
          (FItemRects[FSelectedItemIndex].Bottom + FItemOffsets[FSelectedItemIndex] > ScrollRects[1].Top) do
        begin
          Inc(ScrollPosition);
          RecalculateScrollPositions;
  