small fix in pickdate.pas

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@718 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/rx/docs/WhatsNew.eng.txt

@@ -1,3 +1,4 @@
+  + Keys PgUp/PgDn correctly go through previous/next month in TRxCalendarGrid and TRxDateEdit
   + if try edit closed TRxMemoryData in error message display TRxMemoryData.Name
   + fix create resource from XPM image
   + draw shadow on button image in TToolPanel

components/rx/docs/WhatsNew.rus.txt

@@ -1,3 +1,4 @@
+  + Клавиши PgUp/PgDn корректно пролистывают предыдущий/следующий месяц в TRxCalendarGrid и TRxDateEdit
   + При попытке редактирования закрытого набора данных TRxMemoryData в сообщении об ошибке выдаётся наименование набора данных
   + Исправлено создание ресурсов из XPM файлов
   + Доработана отрисовка тени у кнопки на TToolPanel

components/rx/pickdate.pas

@@ -495,7 +495,17 @@ begin
           if (Day < DaysThisMonth) then Day := Day + 1
           else CalendarDate := CalendarDate + 1;
           Exit;
-        end
+        end;
+      VK_PRIOR:
+        begin
+          ChangeMonth(-1);
+          Exit;
+        end;
+      VK_NEXT:
+        begin
+          ChangeMonth(+1);
+          Exit;
+        end;
     end;
   inherited KeyDown(Key, Shift);
 end;
@@ -1121,13 +1131,11 @@ begin
     case Key of
       VK_NEXT:
         begin
-          if ssCtrl in Shift then FCalendar.NextYear
+          if ssCtrl in Shift then FCalendar.NextYear;
-          else FCalendar.NextMonth;
         end;
       VK_PRIOR:
         begin
-          if ssCtrl in Shift then FCalendar.PrevYear
+          if ssCtrl in Shift then FCalendar.PrevYear;
-          else FCalendar.PrevMonth;
         end;
       VK_ESCAPE:ModalResult:=mrCancel;
     end;