pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions Releases Activity

Bug fix #93

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-02-25 16:27:53 +01:00
parent b87bbb9a54
commit f1765f7288
4 changed files with 17 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
demos/SimpleOSRBrowser/uSimpleOSRBrowser.pas
View File

@ -167,7 +167,7 @@ var
begin
case Msg.message of
WM_SYSCHAR :
if Panel1.Focused and (Msg.wParam in [VK_BACK..VK_HELP]) then
if Panel1.Focused then
begin
TempKeyEvent.kind := KEYEVENT_CHAR;
TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam);
@ -183,7 +183,7 @@ begin
end;
WM_SYSKEYDOWN :
if Panel1.Focused and (Msg.wParam in [VK_BACK..VK_HELP]) then
if Panel1.Focused then
begin
TempKeyEvent.kind := KEYEVENT_RAWKEYDOWN;
TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam);
@ -199,7 +199,7 @@ begin
end;
WM_SYSKEYUP :
if Panel1.Focused and (Msg.wParam in [VK_BACK..VK_HELP]) then
if Panel1.Focused then
begin
TempKeyEvent.kind := KEYEVENT_KEYUP;
TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam);
@ -215,7 +215,7 @@ begin
end;
WM_KEYDOWN :
if Panel1.Focused and (Msg.wParam in [VK_BACK..VK_HELP]) then
if Panel1.Focused then
begin
TempKeyEvent.kind := KEYEVENT_RAWKEYDOWN;
TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam);
@ -231,7 +231,7 @@ begin
end;
WM_KEYUP :
if Panel1.Focused and (Msg.wParam in [VK_BACK..VK_HELP]) then
if Panel1.Focused then
begin
TempKeyEvent.kind := KEYEVENT_KEYUP;
TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam);