mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 02:36:23 +02:00
lhelp: backspace to jump back in history
git-svn-id: trunk@37978 -
This commit is contained in:
parent
e5c4619d8e
commit
b84a374cdb
@ -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);
|
||||||
|
Loading…
Reference in New Issue
Block a user