From 8cdde1ee62f481d5662709c6932342aeb2e43238 Mon Sep 17 00:00:00 2001
From: grayeddy <grayeddy@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 25 Feb 2009 11:13:23 +0000
Subject: [PATCH] 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 +
 components/rx/docs/WhatsNew.rus.txt |  1 +
 components/rx/pickdate.pas          | 18 +++++++++++++-----
 3 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/components/rx/docs/WhatsNew.eng.txt b/components/rx/docs/WhatsNew.eng.txt
index d4e67d42d..c1569e74f 100644
--- a/components/rx/docs/WhatsNew.eng.txt
+++ b/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
diff --git a/components/rx/docs/WhatsNew.rus.txt b/components/rx/docs/WhatsNew.rus.txt
index bfb213042..7a4b9eafd 100644
--- a/components/rx/docs/WhatsNew.rus.txt
+++ b/components/rx/docs/WhatsNew.rus.txt
@@ -1,3 +1,4 @@
+  + Клавиши PgUp/PgDn корректно пролистывают предыдущий/следующий месяц в TRxCalendarGrid и TRxDateEdit
   + При попытке редактирования закрытого набора данных TRxMemoryData в сообщении об ошибке выдаётся наименование набора данных
   + Исправлено создание ресурсов из XPM файлов
   + Доработана отрисовка тени у кнопки на TToolPanel
diff --git a/components/rx/pickdate.pas b/components/rx/pickdate.pas
index e097edd22..104f86b17 100644
--- a/components/rx/pickdate.pas
+++ b/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
-          else FCalendar.NextMonth;
+          if ssCtrl in Shift then FCalendar.NextYear;
         end;
       VK_PRIOR:
         begin
-          if ssCtrl in Shift then FCalendar.PrevYear
-          else FCalendar.PrevMonth;
+          if ssCtrl in Shift then FCalendar.PrevYear;
         end;
       VK_ESCAPE:ModalResult:=mrCancel;
     end;