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

FireMonkey support added

Browse Source 
- New Delphi package called CEF4Delphi_FMX.dpk that includes VCL and FMX components.
- New FMX comopnents : TFMXChromium, TFMXBufferPanel and TFMXWorkScheduler.
- New FMX demo :  FMXExternalPumpBrowser
- Improved WorkScheduler for VCL too.
- New GlobalCEFApp.DisableWebSecurity property.
This commit is contained in:
Salvador Díaz Fau
2018-01-25 21:34:04 +01:00
parent 45b4965cb8
commit b47a8e2d52
60 changed files with 8748 additions and 719 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
source/uCEFStringVisitor.pas
View File

@ -71,12 +71,12 @@ type
TCustomCefStringVisitor = class(TCefStringVisitorOwn)
protected
FChromiumBrowser : TObject;
FChromiumBrowser : IChromiumEvents;
procedure Visit(const str: ustring); override;
public
constructor Create(const aChromiumBrowser : TObject); reintroduce;
constructor Create(const aChromiumBrowser : IChromiumEvents); reintroduce;
destructor Destroy; override;
procedure InitializeVars; override;
end;
@ -84,7 +84,7 @@ type
implementation
uses
uCEFMiscFunctions, uCEFLibFunctions, uCEFChromium;
uCEFMiscFunctions, uCEFLibFunctions;
procedure cef_string_visitor_visit(self: PCefStringVisitor; const str: PCefString); stdcall;
begin
@ -126,7 +126,7 @@ end;
// TCustomCefStringVisitor
constructor TCustomCefStringVisitor.Create(const aChromiumBrowser : TObject);
constructor TCustomCefStringVisitor.Create(const aChromiumBrowser : IChromiumEvents);
begin
inherited Create;
@ -147,8 +147,7 @@ end;
procedure TCustomCefStringVisitor.Visit(const str: ustring);
begin
if (FChromiumBrowser <> nil) and (FChromiumBrowser is TChromium) then
TChromium(FChromiumBrowser).Internal_TextResultAvailable(str);
if (FChromiumBrowser <> nil) then FChromiumBrowser.doTextResultAvailable(str);
end;
end.