1
0
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:
Salvador Diaz Fau
2017-07-18 17:50:28 +02:00
parent 9959b4b1e8
commit 5766453f91
49 changed files with 3486 additions and 1198 deletions

View File

@@ -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.