paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 13:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

lhelp: backspace to jump back in history

Browse Source 
git-svn-id: trunk@37978 -
This commit is contained in:
mattias 2012-07-20 09:55:50 +00:00
parent e5c4619d8e
commit b84a374cdb
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/chmhelp/lhelp/lhelpcore.pas
View File

@ -237,6 +237,9 @@ procedure THelpForm.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
begin begin
if Key = VK_ESCAPE then if Key = VK_ESCAPE then
Close; Close;
// Backspace: go to previous page (as if BackBttn were clicked)
if Key = VK_BACK then
if Assigned(ActivePage) then ActivePage.ContentProvider.GoBack;
end; end;
procedure THelpForm.FormShow(Sender: TObject); procedure THelpForm.FormShow(Sender: TObject);