pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-09-30 21:28:55 +02:00
Code Issues Actions Releases Activity

Fixed keyboard issue in Lazarus_Linux_QT6\SimpleOSRBrowser

Browse Source
This commit is contained in:
Salvador Díaz Fau
2025-09-20 18:52:54 +02:00
parent b5c6f18cdc
commit de7dbe1359
3 changed files with 30 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
demos/Lazarus_Linux_QT6/SimpleOSRBrowser/umainform.pas
View File

@@ -259,9 +259,15 @@ begin
QTKeyEventToCEFKeyEvent(QKeyEventH(Event_), TempCefEvent);
TempCefEvent.kind := KEYEVENT_RAWKEYDOWN;
Chromium1.SendKeyEvent(@TempCefEvent); CefKeyEventLog(TempCefEvent);
TempCefEvent.kind := KEYEVENT_CHAR;
Chromium1.SendKeyEvent(@TempCefEvent); CefKeyEventLog(TempCefEvent);
//CefKeyEventLog(TempCefEvent);
Chromium1.SendKeyEvent(@TempCefEvent);
if AdjustCefKeyCharEvent(QKeyEventH(Event_), TempCefEvent) then
begin
TempCefEvent.kind := KEYEVENT_CHAR;
//CefKeyEventLog(TempCefEvent);
Chromium1.SendKeyEvent(@TempCefEvent);
end;
end;
procedure TMainForm.Panel1QTKeyRelease(Sender: TObject; Event_: QEventH);
@@ -271,7 +277,8 @@ begin
QTKeyEventToCEFKeyEvent(QKeyEventH(Event_), TempCefEvent);
TempCefEvent.kind := KEYEVENT_KEYUP;
Chromium1.SendKeyEvent(@TempCefEvent); CefKeyEventLog(TempCefEvent);
//CefKeyEventLog(TempCefEvent);
Chromium1.SendKeyEvent(@TempCefEvent);
end;
procedure TMainForm.Panel1Resize(Sender: TObject);

18
source/uCEFLinuxFunctions.pas
View File

@@ -48,6 +48,7 @@ function GdkEventToWindowsKeyCode(Event: PGdkEventKey) : integer;
function GetCefStateModifiers(KeyboardModifiers : QtKeyboardModifiers; NativeModifiers : LongWord) : TCefEventFlags;
function GetCefWindowsKeyCode(key : QtKey) : integer;
procedure QTKeyEventToCEFKeyEvent(Event_ : QKeyEventH; var aCEFKeyEvent : TCEFKeyEvent);
function AdjustCefKeyCharEvent(Event_ : QKeyEventH; var aCEFKeyEvent : TCEFKeyEvent): boolean;
{$IFEND}
{$IFDEF FMX}
@@ -739,6 +740,23 @@ begin
else
aCEFKeyEvent.character := aCEFKeyEvent.unmodified_character;
end;
function AdjustCefKeyCharEvent(Event_ : QKeyEventH; var aCEFKeyEvent : TCEFKeyEvent): boolean;
var
TempKey : WideString;
begin
Result := False;
QKeyEvent_text(Event_, @TempKey);
if (length(TempKey) > 0) then
begin
aCEFKeyEvent.windows_key_code := ord(TempKey[1]);
aCEFKeyEvent.unmodified_character := TempKey[1];
aCEFKeyEvent.character := aCEFKeyEvent.unmodified_character;
Result := True;
end;
end;
{$IFEND}
{$IFDEF FMX}

2
update_CEF4Delphi.json
View File

@@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 788,
"InternalVersion" : 789,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "140.1.14"
}