pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions Releases Activity

Added initial QT support (work in progress)

Browse Source
This commit is contained in:
Salvador Díaz Fau
2025-09-13 18:23:07 +02:00
parent c9aba9c250
commit ded23f33a1
3 changed files with 17 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/uCEFWindowInfoWrapper.pas
View File

@@ -237,6 +237,9 @@ uses
ctypes, keysym, xf86keysym, x, xlib,
{$IFDEF LCLGTK2}gtk2, glib2, gdk2, gtk2proc, gtk2int, Gtk2Def, gdk2x, Gtk2Extra,{$ENDIF}
{$IFDEF LCLGTK3}LazGdk3, LazGtk3, LazGLib2, Gtk3Widgets, Gtk3Procs, LazGObject2,{$ENDIF}
{$IFDEF LCLQT}qtwidgets, qt4,{$ENDIF}
{$IFDEF LCLQT5}qtwidgets, qt5,{$ENDIF}
{$IFDEF LCLQT6}qtwidgets, qt6,{$ENDIF}
uCEFLinuxFunctions,
{$ENDIF}{$ENDIF}
uCEFMiscFunctions;
@@ -532,6 +535,12 @@ begin
TempParent := gdk_x11_window_get_xid(gtk_widget_get_window(TempWidget));
end;
{$ENDIF}
{$IF DEFINED(LCLQT) OR DEFINED(LCLQT5) OR DEFINED(LCLQT6)}
if ValidCefWindowHandle(aParent) then
begin
TempParent := QWidget_winId(TQtWidget(aParent).Widget);
end;
{$IFEND}
{$ENDIF}
aWindowInfo.parent_window := TempParent;