paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-02 03:52:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

LHelp: Focus TOC TreeView in a proper way. Sending key VK_T caused text being deleted in Lazarus source editor.

Browse Source 
git-svn-id: trunk@64590 -
This commit is contained in:
juha 2021-02-16 11:53:53 +00:00
parent 98e62261f7
commit 1f5fc709d3
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1264,12 +1264,7 @@ begin
fMustClose:= false;
Application.Restore;
Application.BringToFront;
{$IFDEF WINDOWS}
// Go to TOC TreeView and to get focus on foreground window
KeyInput.Apply([ssCtrl]);
KeyInput.Press(VK_T);
KeyInput.UnApply([ssCtrl]);
{$ENDIF}
MiActionsTOCClick(Nil); // Go to TOC TreeView.
end;
end;
{