diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-11-08 09:30:07 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-11-08 09:30:07 +0000 |
| commit | fb7cc21f0b94f77746dc17d74a1a0e95f5fdc062 (patch) | |
| tree | 7b71362e9b3783a36c23211d04353ebd7e8e9406 /src/gui/gui_popupcalendar.pas | |
| parent | 08de118bcf5f120f1e4eeaa8b1b6c28c4dca494d (diff) | |
| download | fpGUI-fb7cc21f0b94f77746dc17d74a1a0e95f5fdc062.tar.xz | |
* GUI: Changed the PgUp and PgDn directions in the Calendar component, to be consistant with the Up/Down Arrows.
Diffstat (limited to 'src/gui/gui_popupcalendar.pas')
| -rw-r--r-- | src/gui/gui_popupcalendar.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/gui/gui_popupcalendar.pas b/src/gui/gui_popupcalendar.pas index 9d6431f0..061dbd3b 100644 --- a/src/gui/gui_popupcalendar.pas +++ b/src/gui/gui_popupcalendar.pas @@ -318,17 +318,17 @@ begin keyPageUp: begin if (ssCtrl in shiftstate) then - btnYearDownClicked(nil) // Ctrl+PageUp + btnYearUpClicked(nil) // Ctrl+PageUp else - btnMonthDownClicked(nil); // PageUp + btnMonthUpClicked(nil); // PageUp consumed := True; end; keyPageDown: begin if (ssCtrl in shiftstate) then - btnYearUpClicked(nil) // Ctrl+PageDown + btnYearDownClicked(nil) // Ctrl+PageDown else - btnMonthUpClicked(nil); // PageDown + btnMonthDownClicked(nil); // PageDown consumed := True; end; end; |