pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-10-30 23:07:52 +02:00
Code Issues Actions 1 Releases Activity

Fixed some GTK2 demos

Browse Source 
Added Lazarus 3.4 mention in the readme
Added CefKeyEventLog calls in SimpleOSRBrowser to log keyboard events.
This commit is contained in:
Salvador Díaz Fau
2024-05-29 17:25:15 +02:00
parent e3cd6821c8
commit 013bbe441c
28 changed files with 86 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
demos/Delphi_VCL/SimpleOSRBrowser/uSimpleOSRBrowser.pas
View File

@@ -215,6 +215,7 @@ begin
GlobalCEFApp.EnableGPU := True;
GlobalCEFApp.LogFile := 'debug.log';
GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
//GlobalCEFApp.ChromeRuntime := True;
// If you need transparency leave the GlobalCEFApp.BackgroundColor property
// with the default value or set the alpha channel to 0
@@ -288,7 +289,9 @@ begin
TempKeyEvent.character := #0;
TempKeyEvent.unmodified_character := #0;
TempKeyEvent.focus_on_editable_field := ord(False);
{$IFDEF DEBUG}
CefKeyEventLog(TempKeyEvent);
{$ENDIF}
chrmosr.SendKeyEvent(@TempKeyEvent);
Handled := (Msg.wParam in [VK_LEFT, VK_RIGHT, VK_UP, VK_DOWN, VK_TAB]);
end;
@@ -304,7 +307,9 @@ begin
TempKeyEvent.character := #0;
TempKeyEvent.unmodified_character := #0;
TempKeyEvent.focus_on_editable_field := ord(False);
{$IFDEF DEBUG}
CefKeyEventLog(TempKeyEvent);
{$ENDIF}
chrmosr.SendKeyEvent(@TempKeyEvent);
end;
@@ -321,6 +326,9 @@ begin
TempKeyEvent.focus_on_editable_field := ord(False);
CefCheckAltGrPressed(Msg.wParam, TempKeyEvent);
{$IFDEF DEBUG}
CefKeyEventLog(TempKeyEvent);
{$ENDIF}
chrmosr.SendKeyEvent(@TempKeyEvent);
end;