You've already forked CEF4Delphi
mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2025-11-23 21:34:53 +02:00
Improved demos
- Bug fix #33 : Drag and drop is now supported in OSR mode. - Improved keyboard handling in OSR mode. - MiniBrowser demo : The DOM visitor and the Javascript extensions now send customized results to the main form - Fixed some CEF3 variable definitions.
This commit is contained in:
@@ -60,7 +60,7 @@ type
|
||||
|
||||
TCefFastDomVisitor = class(TCefDomVisitorOwn)
|
||||
protected
|
||||
FProc: TCefDomVisitorProc;
|
||||
FProc : TCefDomVisitorProc;
|
||||
|
||||
procedure visit(const document: ICefDomDocument); override;
|
||||
|
||||
@@ -68,6 +68,18 @@ type
|
||||
constructor Create(const proc: TCefDomVisitorProc); reintroduce; virtual;
|
||||
end;
|
||||
|
||||
TCefFastDomVisitor2 = class(TCefDomVisitorOwn)
|
||||
protected
|
||||
FProc : TCefDomVisitorProc2;
|
||||
FBrowser : ICefBrowser;
|
||||
|
||||
procedure visit(const document: ICefDomDocument); override;
|
||||
|
||||
public
|
||||
constructor Create(const browser: ICefBrowser; const proc: TCefDomVisitorProc2); reintroduce; virtual;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
@@ -97,6 +109,7 @@ end;
|
||||
constructor TCefFastDomVisitor.Create(const proc: TCefDomVisitorProc);
|
||||
begin
|
||||
inherited Create;
|
||||
|
||||
FProc := proc;
|
||||
end;
|
||||
|
||||
@@ -105,4 +118,27 @@ begin
|
||||
FProc(document);
|
||||
end;
|
||||
|
||||
|
||||
// TCefFastDomVisitor2
|
||||
|
||||
constructor TCefFastDomVisitor2.Create(const browser: ICefBrowser; const proc: TCefDomVisitorProc2);
|
||||
begin
|
||||
inherited Create;
|
||||
|
||||
FBrowser := browser;
|
||||
FProc := proc;
|
||||
end;
|
||||
|
||||
destructor TCefFastDomVisitor2.Destroy;
|
||||
begin
|
||||
FBrowser := nil;
|
||||
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
procedure TCefFastDomVisitor2.visit(const document: ICefDomDocument);
|
||||
begin
|
||||
FProc(FBrowser, document);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user