diff --git a/source/uCEFAccessibilityHandler.pas b/source/uCEFAccessibilityHandler.pas index 4ee213aa..b6e4b3ea 100644 --- a/source/uCEFAccessibilityHandler.pas +++ b/source/uCEFAccessibilityHandler.pas @@ -12,7 +12,7 @@ unit uCEFAccessibilityHandler; interface uses - uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes, uCEFChromiumEvents; + uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes; type TOnAccessibilityEvent = procedure(Sender: TObject; const value: ICefValue) of object; diff --git a/source/uCEFApp.pas b/source/uCEFApp.pas index c66c188f..82e3900f 100644 --- a/source/uCEFApp.pas +++ b/source/uCEFApp.pas @@ -71,8 +71,8 @@ uses {$ELSE} SysUtils, {$ENDIF} - uCEFMiscFunctions, uCEFCommandLine, uCEFConstants, - uCEFBrowserProcessHandler, uCEFResourceBundleHandler, uCEFRenderProcessHandler; + uCEFMiscFunctions, uCEFCommandLine, uCEFBrowserProcessHandler, + uCEFResourceBundleHandler, uCEFRenderProcessHandler; // TCefAppOwn diff --git a/source/uCEFApplication.pas b/source/uCEFApplication.pas index 6ee62fe9..c60704ce 100644 --- a/source/uCEFApplication.pas +++ b/source/uCEFApplication.pas @@ -216,6 +216,8 @@ begin else TempHandle := Application.Handle; + TempDPI := 0; + if GetDPIForHandle(TempHandle, TempDPI) then FDeviceScaleFactor := TempDPI / USER_DEFAULT_SCREEN_DPI else diff --git a/source/uCEFApplicationCore.pas b/source/uCEFApplicationCore.pas index 55dadad0..9c73f692 100644 --- a/source/uCEFApplicationCore.pas +++ b/source/uCEFApplicationCore.pas @@ -18,16 +18,16 @@ interface uses {$IFDEF DELPHI16_UP} - {$IFDEF MSWINDOWS}WinApi.Windows,{$ENDIF} System.Classes, System.UITypes, System.SyncObjs, + {$IFDEF MSWINDOWS}WinApi.Windows,{$ENDIF} System.Classes, System.UITypes, {$IFDEF FMX}uCEFLinuxTypes,{$ENDIF} {$ELSE} - {$IFDEF MSWINDOWS}Windows,{$ENDIF} Classes, {$IFDEF FPC}dynlibs,{$ENDIF} SyncObjs, + {$IFDEF MSWINDOWS}Windows,{$ENDIF} Classes, {$IFDEF FPC}dynlibs,{$ENDIF} {$ENDIF} {$IFDEF LINUX} {$IFDEF FPC}xlib,{$ENDIF} uCEFArgCopy, {$ENDIF} - uCEFTypes, uCEFInterfaces, uCEFApplicationEvents, uCEFBaseRefCounted, - uCEFSchemeRegistrar, uCEFPreferenceRegistrar, uCEFComponentIdList; + uCEFTypes, uCEFInterfaces, uCEFApplicationEvents, uCEFSchemeRegistrar, + uCEFPreferenceRegistrar, uCEFComponentIdList; const {$I uCEFVersion.inc} @@ -2083,9 +2083,7 @@ uses {$ENDIF} {$ENDIF} {$IFDEF MACOSX}uCEFMacOSFunctions,{$ENDIF} - uCEFLibFunctions, uCEFMiscFunctions, uCEFCommandLine, uCEFConstants, - uCEFSchemeHandlerFactory, uCEFCookieManager, uCEFApp, uCEFCompletionCallback, - uCEFWaitableEvent, uCEFBrowser; + uCEFLibFunctions, uCEFMiscFunctions, uCEFConstants, uCEFApp, uCEFBrowser; procedure DestroyGlobalCEFApp; begin @@ -2867,7 +2865,8 @@ var TempMachine : integer; TempVersionInfo : TFileVersionInfo; begin - Result := False; + Result := False; + TempMachine := 0; if CheckDLLVersion(LibCefPath, CEF_SUPPORTED_VERSION_MAJOR, @@ -4512,7 +4511,7 @@ end; function TCefApplicationCore.Load_cef_api_hash_h : boolean; begin - {$IFDEF FPC}Pointer({$ENDIF}cef_api_hash{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_api_hash'); + {$IFDEF FPC}Pointer({$ENDIF}uCEFLibFunctions.cef_api_hash{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_api_hash'); {$IFDEF FPC}Pointer({$ENDIF}uCEFLibFunctions.cef_api_version{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_api_version'); Result := assigned(cef_api_hash) and @@ -4593,7 +4592,7 @@ end; function TCefApplicationCore.Load_cef_cookie_capi_h : boolean; begin - {$IFDEF FPC}Pointer({$ENDIF}cef_cookie_manager_get_global_manager{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_cookie_manager_get_global_manager'); + {$IFDEF FPC}Pointer({$ENDIF}cef_cookie_manager_get_global_manager{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_cookie_manager_get_global_manager'); Result := assigned(cef_cookie_manager_get_global_manager); end; @@ -4901,7 +4900,7 @@ begin {$IFDEF FPC}Pointer({$ENDIF}cef_v8_value_create_function{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_v8_value_create_function'); {$IFDEF FPC}Pointer({$ENDIF}cef_v8_value_create_promise{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_v8_value_create_promise'); {$IFDEF FPC}Pointer({$ENDIF}cef_v8_stack_trace_get_current{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_v8_stack_trace_get_current'); - {$IFDEF FPC}Pointer({$ENDIF}cef_register_extension{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_register_extension'); + {$IFDEF FPC}Pointer({$ENDIF}cef_register_extension{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_register_extension'); Result := assigned(cef_v8_context_get_current_context) and assigned(cef_v8_context_get_entered_context) and diff --git a/source/uCEFAudioHandler.pas b/source/uCEFAudioHandler.pas index e15f4a93..8f4f798b 100644 --- a/source/uCEFAudioHandler.pas +++ b/source/uCEFAudioHandler.pas @@ -54,7 +54,7 @@ uses {$ELSE} SysUtils, {$ENDIF} - uCEFMiscFunctions, uCEFLibFunctions, uCEFBrowser; + uCEFMiscFunctions, uCEFBrowser; function cef_audio_handler_get_audio_parameters(self : PCefAudioHandler; browser : PCefBrowser; diff --git a/source/uCEFAuthCallback.pas b/source/uCEFAuthCallback.pas index 2e9f2428..34b33ae5 100644 --- a/source/uCEFAuthCallback.pas +++ b/source/uCEFAuthCallback.pas @@ -27,7 +27,7 @@ type implementation uses - uCEFMiscFunctions, uCEFLibFunctions; + uCEFMiscFunctions; procedure TCefAuthCallbackRef.Cancel; begin diff --git a/source/uCEFBeforeDownloadCallback.pas b/source/uCEFBeforeDownloadCallback.pas index 9519c89a..48f08f46 100644 --- a/source/uCEFBeforeDownloadCallback.pas +++ b/source/uCEFBeforeDownloadCallback.pas @@ -26,7 +26,7 @@ type implementation uses - uCEFMiscFunctions, uCEFLibFunctions; + uCEFMiscFunctions; procedure TCefBeforeDownloadCallbackRef.Cont(const downloadPath: ustring; showDialog: Boolean); var diff --git a/source/uCEFBrowserBitmap.pas b/source/uCEFBrowserBitmap.pas index 117f6ef3..c43e31bf 100644 --- a/source/uCEFBrowserBitmap.pas +++ b/source/uCEFBrowserBitmap.pas @@ -48,9 +48,6 @@ type implementation -uses - uCEFMiscFunctions; - constructor TCEFBrowserBitmap.Create; begin inherited Create; diff --git a/source/uCEFBrowserProcessHandler.pas b/source/uCEFBrowserProcessHandler.pas index 9df38817..4379a1f3 100644 --- a/source/uCEFBrowserProcessHandler.pas +++ b/source/uCEFBrowserProcessHandler.pas @@ -17,7 +17,7 @@ uses {$ELSE} Classes, {$ENDIF} - uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes, uCEFApplicationCore, uCEFPreferenceRegistrar; + uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes, uCEFApplicationCore; type TCefBrowserProcessHandlerOwn = class(TCefBaseRefCountedOwn, ICefBrowserProcessHandler) @@ -63,7 +63,7 @@ uses {$ELSE} SysUtils, {$ENDIF} - uCEFMiscFunctions, uCEFLibFunctions, uCEFCommandLine, uCEFListValue, uCEFConstants, uCEFStringList; + uCEFMiscFunctions, uCEFCommandLine; procedure cef_browser_process_handler_on_register_custom_preferences(self: PCefBrowserProcessHandler; type_: TCefPreferencesType; registrar: PCefPreferenceRegistrar); stdcall; var diff --git a/source/uCEFBrowserViewComponent.pas b/source/uCEFBrowserViewComponent.pas index 51424daf..170ff210 100644 --- a/source/uCEFBrowserViewComponent.pas +++ b/source/uCEFBrowserViewComponent.pas @@ -13,14 +13,14 @@ interface uses {$IFDEF DELPHI16_UP} - {$IFDEF MSWINDOWS}WinApi.Windows,{$ENDIF} System.Classes, + System.Classes, uCEFConstants, {$ELSE} - {$IFDEF MSWINDOWS}Windows,{$ENDIF} Classes, + Classes, {$IFDEF FPC} LCLProc, LCLType, LCLIntf, LResources, InterfaceBase, {$ENDIF} {$ENDIF} - uCEFTypes, uCEFInterfaces, uCEFConstants, uCEFViewsFrameworkEvents, uCEFViewComponent; + uCEFTypes, uCEFInterfaces, uCEFViewsFrameworkEvents, uCEFViewComponent; type {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows or pfidOSX or pfidLinux)]{$ENDIF}{$ENDIF} diff --git a/source/uCEFBrowserViewDelegate.pas b/source/uCEFBrowserViewDelegate.pas index c4a15fad..4f4466fd 100644 --- a/source/uCEFBrowserViewDelegate.pas +++ b/source/uCEFBrowserViewDelegate.pas @@ -159,7 +159,7 @@ type implementation uses - uCEFLibFunctions, uCEFMiscFunctions, uCEFBrowserView, uCEFBrowser, uCEFClient, uCEFConstants; + uCEFMiscFunctions, uCEFBrowserView, uCEFBrowser, uCEFClient, uCEFConstants; // ************************************************************** diff --git a/source/uCEFBrowserWindow.pas b/source/uCEFBrowserWindow.pas index 0fb91849..4f4c10bf 100644 --- a/source/uCEFBrowserWindow.pas +++ b/source/uCEFBrowserWindow.pas @@ -9,7 +9,7 @@ uses {$IFDEF FPC} LResources, PropEdits, {$ENDIF} - uCEFApplication, uCEFChromiumWindow, uCEFTypes, uCEFInterfaces, uCEFChromium, + uCEFApplication, uCEFTypes, uCEFInterfaces, uCEFChromium, uCEFLinkedWinControlBase, uCEFBrowserViewComponent, uCEFChromiumEvents, Forms, ExtCtrls, Controls, Classes, sysutils; diff --git a/source/uCEFBufferPanel.pas b/source/uCEFBufferPanel.pas index 1d1ab05b..4489fc83 100644 --- a/source/uCEFBufferPanel.pas +++ b/source/uCEFBufferPanel.pas @@ -15,10 +15,10 @@ uses {$ELSE} {$IFDEF MSWINDOWS}Windows, imm, {$ENDIF} Classes, Forms, Controls, Graphics, {$IFDEF FPC} - LCLProc, LCLType, LCLIntf, LResources, LMessages, InterfaceBase, {$IFDEF MSWINDOWS}Win32Extra,{$ENDIF} - {$IFDEF LINUXFPC}Messages,{$ENDIF} + LCLProc, LCLType, LCLIntf, LResources, InterfaceBase, {$IFDEF MSWINDOWS}Win32Extra,{$ENDIF} + {$IFDEF LINUXFPC}Messages, LMessages,{$ENDIF} {$IFDEF LCLGTK2}glib2, gdk2, gtk2,{$ENDIF} - {$IFDEF LCLGTK3}LazGdk3, LazGtk3, LazGObject2, LazGLib2, gtk3procs, gtk3objects, gtk3widgets,{$ENDIF} + {$IFDEF LCLGTK3}LazGdk3, LazGtk3, LazGObject2, LazGLib2, gtk3procs, gtk3widgets,{$ENDIF} {$IFDEF LCLQT}qtobjects, qtwidgets, qt4, QtWSExtCtrls, QtWSControls, WSLCLClasses,{$ENDIF} {$IFDEF LCLQT5}qtobjects, qtwidgets, qt5, QtWSExtCtrls, QtWSControls, WSLCLClasses,{$ENDIF} {$IFDEF LCLQT6}qtobjects, qtwidgets, qt6, QtWSExtCtrls, QtWSControls, WSLCLClasses,{$ENDIF} diff --git a/source/uCEFButton.pas b/source/uCEFButton.pas index f5ff5a94..47a6e9c0 100644 --- a/source/uCEFButton.pas +++ b/source/uCEFButton.pas @@ -67,7 +67,7 @@ type implementation uses - uCEFLibFunctions, uCEFMiscFunctions, uCEFLabelButton; + uCEFMiscFunctions, uCEFLabelButton; function TCefButtonRef.AsLabelButton : ICefLabelButton; begin diff --git a/source/uCEFButtonComponent.pas b/source/uCEFButtonComponent.pas index e6ccf27f..035ec9c3 100644 --- a/source/uCEFButtonComponent.pas +++ b/source/uCEFButtonComponent.pas @@ -13,9 +13,9 @@ interface uses {$IFDEF DELPHI16_UP} - {$IFDEF MSWINDOWS}WinApi.Windows,{$ENDIF} System.Classes, + System.Classes, {$ELSE} - {$IFDEF MSWINDOWS}Windows,{$ENDIF} Classes, + Classes, {$IFDEF FPC} LCLProc, LCLType, LCLIntf, LResources, InterfaceBase, {$ENDIF} @@ -110,9 +110,6 @@ type implementation -uses - uCEFButtonDelegate; - procedure TCEFButtonComponent.Initialize; begin inherited Initialize; diff --git a/source/uCEFButtonDelegate.pas b/source/uCEFButtonDelegate.pas index 92caddcf..69e9053f 100644 --- a/source/uCEFButtonDelegate.pas +++ b/source/uCEFButtonDelegate.pas @@ -93,7 +93,7 @@ type implementation uses - uCEFLibFunctions, uCEFMiscFunctions, uCEFButton; + uCEFMiscFunctions, uCEFButton; // ************************************************************** diff --git a/source/uCEFCallback.pas b/source/uCEFCallback.pas index 0f1e2db8..846ca2da 100644 --- a/source/uCEFCallback.pas +++ b/source/uCEFCallback.pas @@ -26,9 +26,6 @@ type implementation -uses - uCEFMiscFunctions, uCEFLibFunctions; - procedure TCefCallbackRef.Cancel; begin PCefCallback(FData)^.cancel(PCefCallback(FData)); diff --git a/source/uCEFChromium.pas b/source/uCEFChromium.pas index 21d3cd4b..79e6ca2d 100644 --- a/source/uCEFChromium.pas +++ b/source/uCEFChromium.pas @@ -17,12 +17,12 @@ uses {$ELSE} {$IFDEF MSWINDOWS}Windows,{$ENDIF} Classes, Controls, Graphics, Forms, {$IFDEF FPC} - LCLProc, LCLType, LCLIntf, LResources, LMessages, InterfaceBase, + LCLProc, LCLType, LCLIntf, LResources, InterfaceBase, {$ELSE} Messages, {$ENDIF} {$ENDIF} - uCEFConstants, uCEFTypes, uCEFInterfaces, uCEFChromiumCore; + uCEFTypes, uCEFInterfaces, uCEFChromiumCore, uCEFConstants; type {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows)]{$ENDIF}{$ENDIF} diff --git a/source/uCEFChromiumCore.pas b/source/uCEFChromiumCore.pas index aeca7521..70b542e8 100644 --- a/source/uCEFChromiumCore.pas +++ b/source/uCEFChromiumCore.pas @@ -18,7 +18,7 @@ uses {$ELSE} {$IFDEF MSWINDOWS}Windows, ActiveX, CommCtrl,{$ENDIF} Classes, {$IFDEF FPC} - LCLProc, LCLType, LCLIntf, LResources, LMessages, InterfaceBase, + LCLProc, LCLType, LCLIntf, LResources, InterfaceBase, {$IFDEF LINUX}xlib,{$ENDIF} {$ELSE} Messages, @@ -26,9 +26,10 @@ uses SyncObjs, {$ENDIF} uCEFTypes, uCEFInterfaces, uCEFLibFunctions, uCEFMiscFunctions, uCEFClient, - uCEFConstants, uCEFTask, uCEFDomVisitor, uCEFChromiumEvents, - {$IFDEF MSWINDOWS}uCEFDragAndDropMgr,{$ENDIF} - {$IFDEF LINUX}uCEFLinuxTypes, uCEFLinuxFunctions,{$ENDIF} + uCEFConstants, uCEFTask, uCEFChromiumEvents, + {$IFDEF MSWINDOWS}uCEFDragAndDropMgr,{$ENDIF} + {$IFDEF LINUXFMX}uCEFLinuxTypes,{$ENDIF} + {$IFDEF LCLGTK3}uCEFLinuxFunctions,{$ENDIF} uCEFChromiumOptions, uCEFChromiumFontOptions, uCEFPDFPrintOptions, uCEFBrowserViewComponent, uCEFWindowInfoWrapper, uCEFPreferenceObserver, uCEFSettingObserver; @@ -4242,15 +4243,15 @@ uses {$IFDEF FPC} {$IFDEF LINUX}x, xatom, {$IFDEF LCLGTK2}gdk2x, gtk2,{$ENDIF} - {$IFDEF LCLGTK3}LazGdk3, LazGtk3, LazGLib2,{$ENDIF} + {$IFDEF LCLGTK3}LazGLib2,{$ENDIF} {$IFDEF LCLQT}qt4,{$ENDIF} {$IFDEF LCLQT5}qt5,{$ENDIF} {$IFDEF LCLQT6}qtint,{$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} - uCEFBrowser, uCEFValue, uCEFDictionaryValue, uCEFStringMultimap, uCEFFrame, - uCEFApplicationCore, uCEFProcessMessage, uCEFRequestContext, + uCEFBrowser, uCEFValue, uCEFDictionaryValue, uCEFStringMultimap, + uCEFApplicationCore, uCEFRequestContext, {$IFDEF MSWINDOWS}uCEFOLEDragAndDrop,{$ENDIF} uCEFPDFPrintCallback, uCEFResolveCallback, uCEFDeleteCookiesCallback, uCEFStringVisitor, uCEFListValue, uCEFNavigationEntryVisitor, diff --git a/source/uCEFChromiumWindow.pas b/source/uCEFChromiumWindow.pas index 6949a2d0..52448ec2 100644 --- a/source/uCEFChromiumWindow.pas +++ b/source/uCEFChromiumWindow.pas @@ -17,13 +17,12 @@ uses {$ELSE} {$IFDEF MSWINDOWS}Windows,{$ENDIF} Classes, Forms, Controls, Graphics, {$IFDEF FPC} - LCLProc, LCLType, LCLIntf, LResources, LMessages, InterfaceBase, + LCLProc, LCLType, LCLIntf, LResources, InterfaceBase, {$ELSE} Messages, {$ENDIF} {$ENDIF} - uCEFWindowParent, uCEFChromium, uCEFInterfaces, uCEFConstants, uCEFTypes, - uCEFWinControl, uCEFLinkedWinControlBase; + uCEFChromium, uCEFInterfaces, uCEFTypes, uCEFLinkedWinControlBase, uCEFConstants; type {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows)]{$ENDIF}{$ENDIF} diff --git a/source/uCEFClient.pas b/source/uCEFClient.pas index d91a2e14..dc7dfd56 100644 --- a/source/uCEFClient.pas +++ b/source/uCEFClient.pas @@ -129,12 +129,13 @@ uses {$ELSE} SysUtils, {$ENDIF} - uCEFMiscFunctions, uCEFLibFunctions, uCEFProcessMessage, uCEFBrowser, uCEFLoadHandler, - uCEFFocusHandler, uCEFContextMenuHandler, uCEFDialogHandler, uCEFKeyboardHandler, - uCEFDisplayHandler, uCEFDownloadHandler, uCEFJsDialogHandler, - uCEFLifeSpanHandler, uCEFRequestHandler, uCEFRenderHandler, uCEFDragHandler, - uCEFFindHandler, uCEFConstants, uCEFApplicationCore, uCEFFrame, uCEFAudioHandler, - uCEFPrintHandler, uCEFFrameHandler, uCEFCommandHandler, uCEFPermissionHandler; + uCEFMiscFunctions, uCEFProcessMessage, uCEFBrowser, uCEFLoadHandler, + uCEFFocusHandler, uCEFContextMenuHandler, uCEFDialogHandler, + uCEFKeyboardHandler, uCEFDisplayHandler, uCEFDownloadHandler, + uCEFJsDialogHandler, uCEFLifeSpanHandler, uCEFRequestHandler, + uCEFRenderHandler, uCEFDragHandler, uCEFFindHandler, uCEFFrame, + uCEFAudioHandler, uCEFPrintHandler, uCEFFrameHandler, uCEFCommandHandler, + uCEFPermissionHandler; // ****************************************************** diff --git a/source/uCEFCommandHandler.pas b/source/uCEFCommandHandler.pas index fd2cd05f..eecadffc 100644 --- a/source/uCEFCommandHandler.pas +++ b/source/uCEFCommandHandler.pas @@ -54,7 +54,7 @@ uses {$ELSE} SysUtils, {$ENDIF} - uCEFMiscFunctions, uCEFLibFunctions, uCEFBrowser; + uCEFMiscFunctions, uCEFBrowser; function cef_command_handler_on_chrome_command(self : PCefCommandHandler; browser : PCefBrowser; diff --git a/source/uCEFCompletionCallback.pas b/source/uCEFCompletionCallback.pas index 220ba7a4..6c3cb9fa 100644 --- a/source/uCEFCompletionCallback.pas +++ b/source/uCEFCompletionCallback.pas @@ -12,7 +12,7 @@ unit uCEFCompletionCallback; interface uses - uCEFBaseRefCounted, uCEFInterfaces, uCEFWaitableEvent; + uCEFBaseRefCounted, uCEFInterfaces; type TCefCompletionCallbackOwn = class(TCefBaseRefCountedOwn, ICefCompletionCallback) @@ -56,7 +56,7 @@ type implementation uses - uCEFMiscFunctions, uCEFLibFunctions, uCEFTypes; + uCEFMiscFunctions, uCEFTypes; procedure cef_completion_callback_on_complete(self: PCefCompletionCallback); stdcall; var diff --git a/source/uCEFComponentIdList.pas b/source/uCEFComponentIdList.pas index 67cb1d34..93b2d06b 100644 --- a/source/uCEFComponentIdList.pas +++ b/source/uCEFComponentIdList.pas @@ -10,7 +10,7 @@ interface uses {$IFDEF DELPHI16_UP} - System.Classes, System.SyncObjs; + System.Classes, System.SyncObjs, System.Types; {$ELSE} Classes, SyncObjs; {$ENDIF} @@ -57,9 +57,9 @@ implementation uses {$IFDEF DELPHI16_UP} - System.SysUtils, System.Types; + System.SysUtils; {$ELSE} - SysUtils, Types; + SysUtils; {$ENDIF} constructor TCEFComponentIdList.Create; diff --git a/source/uCEFContextMenuHandler.pas b/source/uCEFContextMenuHandler.pas index 51242147..7c5c39ac 100644 --- a/source/uCEFContextMenuHandler.pas +++ b/source/uCEFContextMenuHandler.pas @@ -58,7 +58,7 @@ uses {$ELSE} SysUtils, {$ENDIF} - uCEFMiscFunctions, uCEFLibFunctions, uCEFBrowser, uCEFFrame, uCEFContextMenuParams, + uCEFMiscFunctions, uCEFBrowser, uCEFFrame, uCEFContextMenuParams, uCEFMenuModel, uCEFRunContextMenuCallback, uCEFRunQuickMenuCallback; procedure cef_context_menu_handler_on_before_context_menu(self : PCefContextMenuHandler; diff --git a/source/uCEFContextMenuParams.pas b/source/uCEFContextMenuParams.pas index c865f556..82d1721e 100644 --- a/source/uCEFContextMenuParams.pas +++ b/source/uCEFContextMenuParams.pas @@ -49,8 +49,7 @@ type implementation uses - uCEFMiscFunctions, uCEFLibFunctions, uCEFStringList; - + uCEFMiscFunctions, uCEFStringList; function TCefContextMenuParamsRef.GetDictionarySuggestions(const suggestions : TStringList): Boolean; var diff --git a/source/uCEFCookieAccessFilter.pas b/source/uCEFCookieAccessFilter.pas index d6144e84..5db4c03c 100644 --- a/source/uCEFCookieAccessFilter.pas +++ b/source/uCEFCookieAccessFilter.pas @@ -58,7 +58,7 @@ uses {$ELSE} SysUtils, {$ENDIF} - uCEFMiscFunctions, uCEFLibFunctions, uCEFBrowser, uCEFFrame, uCEFRequest, uCefResponse; + uCEFMiscFunctions, uCEFBrowser, uCEFFrame, uCEFRequest, uCefResponse; // TCefCookieAccessFilterOwn diff --git a/source/uCEFCookieManager.pas b/source/uCEFCookieManager.pas index 61e375d4..2a911858 100644 --- a/source/uCEFCookieManager.pas +++ b/source/uCEFCookieManager.pas @@ -48,7 +48,7 @@ implementation uses uCEFMiscFunctions, uCEFLibFunctions, uCEFDeleteCookiesCallback, - uCEFSetCookieCallback, uCEFCookieVisitor, uCEFStringList; + uCEFSetCookieCallback, uCEFCookieVisitor; function TCefCookieManagerRef.DeleteCookies(const url : ustring; diff --git a/source/uCEFCookieVisitor.pas b/source/uCEFCookieVisitor.pas index b658514c..ead404c3 100644 --- a/source/uCEFCookieVisitor.pas +++ b/source/uCEFCookieVisitor.pas @@ -53,7 +53,7 @@ uses {$ELSE} SysUtils, {$ENDIF} - uCEFMiscFunctions, uCEFLibFunctions; + uCEFMiscFunctions; function cef_cookie_visitor_visit( self : PCefCookieVisitor; const cookie : PCefCookie; diff --git a/source/uCEFCustomStreamReader.pas b/source/uCEFCustomStreamReader.pas index 7c0b2d37..1e4056ca 100644 --- a/source/uCEFCustomStreamReader.pas +++ b/source/uCEFCustomStreamReader.pas @@ -40,7 +40,7 @@ type implementation uses - uCEFMiscFunctions, uCEFLibFunctions; + uCEFMiscFunctions; function cef_stream_reader_read(self: PCefReadHandler; ptr: Pointer; size, n: NativeUInt): NativeUInt; stdcall; var diff --git a/source/uCEFDeleteCookiesCallback.pas b/source/uCEFDeleteCookiesCallback.pas index 8e86600a..6f3b9114 100644 --- a/source/uCEFDeleteCookiesCallback.pas +++ b/source/uCEFDeleteCookiesCallback.pas @@ -53,7 +53,7 @@ uses {$ELSE} SysUtils, {$ENDIF} - uCEFMiscFunctions, uCEFLibFunctions; + uCEFMiscFunctions; procedure cef_delete_cookie_callback_on_complete(self: PCefDeleteCookiesCallback; num_deleted: Integer); stdcall; var diff --git a/source/uCEFDevToolsMessageObserver.pas b/source/uCEFDevToolsMessageObserver.pas index 8f14d53b..a00a1203 100644 --- a/source/uCEFDevToolsMessageObserver.pas +++ b/source/uCEFDevToolsMessageObserver.pas @@ -50,7 +50,7 @@ uses {$ELSE} SysUtils, {$ENDIF} - uCEFMiscFunctions, uCEFLibFunctions, uCEFBrowser, uCEFJson; + uCEFMiscFunctions, uCEFBrowser; // ************************************************************ diff --git a/source/uCEFDialogHandler.pas b/source/uCEFDialogHandler.pas index bd589929..9362b423 100644 --- a/source/uCEFDialogHandler.pas +++ b/source/uCEFDialogHandler.pas @@ -51,7 +51,7 @@ uses {$ELSE} SysUtils, {$ENDIF} - uCEFMiscFunctions, uCEFLibFunctions, uCEFBrowser, uCEFFileDialogCallback, uCEFStringList; + uCEFMiscFunctions, uCEFBrowser, uCEFFileDialogCallback, uCEFStringList; function cef_dialog_handler_on_file_dialog(self : PCefDialogHandler; browser : PCefBrowser; diff --git a/source/uCEFDisplayHandler.pas b/source/uCEFDisplayHandler.pas index d3a6aa77..b156ea28 100644 --- a/source/uCEFDisplayHandler.pas +++ b/source/uCEFDisplayHandler.pas @@ -167,7 +167,7 @@ uses {$ELSE} SysUtils, {$ENDIF} - uCEFMiscFunctions, uCEFLibFunctions, uCEFBrowser, uCEFFrame, uCEFStringList; + uCEFMiscFunctions, uCEFBrowser, uCEFFrame, uCEFStringList; procedure cef_display_handler_on_address_change( self : PCefDisplayHandler; diff --git a/source/uCEFDomNode.pas b/source/uCEFDomNode.pas index bcba5b5d..5eee8e3c 100644 --- a/source/uCEFDomNode.pas +++ b/source/uCEFDomNode.pas @@ -13,9 +13,9 @@ interface uses {$IFDEF DELPHI16_UP} - {$IFDEF MSWINDOWS}WinApi.Windows,{$ENDIF} System.Classes, System.SysUtils, + System.Classes, System.SysUtils, {$ELSE} - {$IFDEF MSWINDOWS}Windows,{$ENDIF} Classes, SysUtils, + Classes, SysUtils, {$ENDIF} uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes; diff --git a/source/uCEFDomVisitor.pas b/source/uCEFDomVisitor.pas index fd9f4ac4..9123ed92 100644 --- a/source/uCEFDomVisitor.pas +++ b/source/uCEFDomVisitor.pas @@ -64,7 +64,7 @@ type implementation uses - uCEFMiscFunctions, uCEFLibFunctions, uCEFDomDocument; + uCEFMiscFunctions, uCEFDomDocument; procedure cef_dom_visitor_visite(self: PCefDomVisitor; document: PCefDomDocument); stdcall; var diff --git a/source/uCEFDownloadHandler.pas b/source/uCEFDownloadHandler.pas index 066105d1..3144c30d 100644 --- a/source/uCEFDownloadHandler.pas +++ b/source/uCEFDownloadHandler.pas @@ -45,7 +45,7 @@ type implementation uses - uCEFMiscFunctions, uCEFLibFunctions, uCEFBrowser, uCEFDownloadItem, uCEFBeforeDownloadCallback, + uCEFMiscFunctions, uCEFBrowser, uCEFDownloadItem, uCEFBeforeDownloadCallback, uCEFDownloadItemCallback; function cef_download_handler_can_download( self : PCefDownloadHandler; @@ -188,4 +188,4 @@ begin IChromiumEvents(FEvents).doOnDownloadUpdated(browser, downloadItem, callback); end; -end. \ No newline at end of file +end. diff --git a/source/uCEFDownloadImageCallBack.pas b/source/uCEFDownloadImageCallBack.pas index 02af502b..1548378a 100644 --- a/source/uCEFDownloadImageCallBack.pas +++ b/source/uCEFDownloadImageCallBack.pas @@ -53,7 +53,7 @@ uses {$ELSE} SysUtils, {$ENDIF} - uCEFMiscFunctions, uCEFLibFunctions, uCEFImage; + uCEFMiscFunctions, uCEFImage; // TCefDownloadImageCallbackOwn diff --git a/source/uCEFDownloadItem.pas b/source/uCEFDownloadItem.pas index a8691a34..ea23acb0 100644 --- a/source/uCEFDownloadItem.pas +++ b/source/uCEFDownloadItem.pas @@ -43,7 +43,7 @@ type implementation uses - uCEFMiscFunctions, uCEFLibFunctions; + uCEFMiscFunctions; function TCefDownloadItemRef.GetContentDisposition: ustring; begin diff --git a/source/uCEFDownloadItemCallback.pas b/source/uCEFDownloadItemCallback.pas index 476c8cbb..02c450d2 100644 --- a/source/uCEFDownloadItemCallback.pas +++ b/source/uCEFDownloadItemCallback.pas @@ -26,9 +26,6 @@ type implementation -uses - uCEFMiscFunctions, uCEFLibFunctions; - procedure TCefDownloadItemCallbackRef.cancel; begin PCefDownloadItemCallback(FData)^.cancel(PCefDownloadItemCallback(FData)); diff --git a/source/uCEFDragAndDropMgr.pas b/source/uCEFDragAndDropMgr.pas index 36074127..2b4ac5e7 100644 --- a/source/uCEFDragAndDropMgr.pas +++ b/source/uCEFDragAndDropMgr.pas @@ -15,11 +15,12 @@ interface uses {$IFDEF DELPHI16_UP} - {$IFDEF MSWINDOWS}WinApi.Windows, WinApi.ActiveX, WinApi.ShlObj, WinApi.ShellApi,{$ENDIF} - System.Classes, System.SysUtils, System.Math, System.StrUtils, System.AnsiStrings, + {$IFDEF MSWINDOWS}WinApi.Windows, WinApi.ActiveX, WinApi.ShlObj, WinApi.ShellApi,{$ENDIF} + System.Classes, System.SysUtils, System.Math, System.StrUtils, System.AnsiStrings, {$ELSE} - {$IFDEF MSWINDOWS}Windows, ActiveX, ShlObj, Shellapi,{$ENDIF} - Classes, SysUtils, Math, StrUtils, {$IFDEF DELPHI12_UP}AnsiStrings,{$ENDIF} + {$IFDEF MSWINDOWS}Windows, ActiveX, Shellapi,{$ENDIF} + {$IFNDEF FPC}ShlObj,{$ENDIF} Classes, SysUtils, StrUtils, + {$IFDEF DELPHI12_UP}AnsiStrings,{$ENDIF} {$ENDIF} uCEFDragData, uCEFInterfaces, uCEFTypes, uCEFOLEDragAndDrop; @@ -388,8 +389,6 @@ const CFHTML_ENDHTML : AnsiString = 'EndHTML:'; CFHTML_STARTFRAG : AnsiString = 'StartFragment:'; CFHTML_ENDFRAG : AnsiString = 'EndFragment:'; - CFHTML_STARSEL : AnsiString = 'StartSelection:'; - CFHTML_ENDSEL : AnsiString = 'EndSelection:'; CFHTML_SOURCEURL : AnsiString = 'SourceURL:'; FRAGMENT_START : AnsiString = '