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

4
demos/FMXExternalPumpBrowser/uFMXExternalPumpBrowser.pas
View File

@ -286,7 +286,7 @@ var
begin begin
if not(Panel1.IsFocused) or (chrmosr = nil) then exit; if not(Panel1.IsFocused) or (chrmosr = nil) then exit;
if (Key in [VK_BACK..VK_HELP]) and (KeyChar = #0) then if (Key <> 0) and (KeyChar = #0) then
begin begin
TempKeyEvent.kind := KEYEVENT_RAWKEYDOWN; TempKeyEvent.kind := KEYEVENT_RAWKEYDOWN;
TempKeyEvent.modifiers := getModifiers(Shift); TempKeyEvent.modifiers := getModifiers(Shift);
@ -324,7 +324,7 @@ begin
chrmosr.SendKeyEvent(@TempKeyEvent); chrmosr.SendKeyEvent(@TempKeyEvent);
end end
else else
if (Key in [VK_BACK..VK_HELP]) and (KeyChar = #0) then if (Key <> 0) and (KeyChar = #0) then
begin begin
TempKeyEvent.kind := KEYEVENT_KEYUP; TempKeyEvent.kind := KEYEVENT_KEYUP;
TempKeyEvent.modifiers := getModifiers(Shift); TempKeyEvent.modifiers := getModifiers(Shift);

10
demos/OSRExternalPumpBrowser/uOSRExternalPumpBrowser.pas
View File

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

10
demos/PopupBrowser/uChildForm.pas
View File

@ -161,7 +161,7 @@ procedure TChildForm.HandleSysCharMsg(var Msg: tagMSG; var Handled: Boolean);
var var
TempKeyEvent : TCefKeyEvent; TempKeyEvent : TCefKeyEvent;
begin begin
if Panel1.Focused and (Msg.wParam in [VK_BACK..VK_HELP]) then if Panel1.Focused then
begin begin
TempKeyEvent.kind := KEYEVENT_CHAR; TempKeyEvent.kind := KEYEVENT_CHAR;
TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam); TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam);
@ -183,7 +183,7 @@ procedure TChildForm.HandleSysKeyDownMsg(var Msg: tagMSG; var Handled: Boolean);
var var
TempKeyEvent : TCefKeyEvent; TempKeyEvent : TCefKeyEvent;
begin begin
if Panel1.Focused and (Msg.wParam in [VK_BACK..VK_HELP]) then if Panel1.Focused then
begin begin
TempKeyEvent.kind := KEYEVENT_RAWKEYDOWN; TempKeyEvent.kind := KEYEVENT_RAWKEYDOWN;
TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam); TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam);
@ -205,7 +205,7 @@ procedure TChildForm.HandleSysKeyUpMsg(var Msg: tagMSG; var Handled: Boolean);
var var
TempKeyEvent : TCefKeyEvent; TempKeyEvent : TCefKeyEvent;
begin begin
if Panel1.Focused and (Msg.wParam in [VK_BACK..VK_HELP]) then if Panel1.Focused then
begin begin
TempKeyEvent.kind := KEYEVENT_KEYUP; TempKeyEvent.kind := KEYEVENT_KEYUP;
TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam); TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam);
@ -227,7 +227,7 @@ procedure TChildForm.HandleKeyDownMsg(var Msg: tagMSG; var Handled: Boolean);
var var
TempKeyEvent : TCefKeyEvent; TempKeyEvent : TCefKeyEvent;
begin begin
if Panel1.Focused and (Msg.wParam in [VK_BACK..VK_HELP]) then if Panel1.Focused then
begin begin
TempKeyEvent.kind := KEYEVENT_RAWKEYDOWN; TempKeyEvent.kind := KEYEVENT_RAWKEYDOWN;
TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam); TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam);
@ -249,7 +249,7 @@ procedure TChildForm.HandleKeyUpMsg(var Msg: tagMSG; var Handled: Boolean);
var var
TempKeyEvent : TCefKeyEvent; TempKeyEvent : TCefKeyEvent;
begin begin
if Panel1.Focused and (Msg.wParam in [VK_BACK..VK_HELP]) then if Panel1.Focused then
begin begin
TempKeyEvent.kind := KEYEVENT_KEYUP; TempKeyEvent.kind := KEYEVENT_KEYUP;
TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam); TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam);

10
demos/SimpleOSRBrowser/uSimpleOSRBrowser.pas
View File

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