pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-12-03 21:44:45 +02:00
Code Issues Actions 1 Releases Activity

Update to CEF 3.3112.1659.gfef43e0

Browse Source 
- Update to CEF 3.3112.1659.gfef43e0
- Bug Fix #49
- Added longer error messages if the CEF binaries are not available.
- Added the AfterCreated event in TChromiumWindow.
- Added a 'Take a snapshot' button in the OSR demo.
This commit is contained in:
Salvador Díaz Fau
2017-09-07 10:58:09 +02:00
parent 60cc22a063
commit 379272e643
65 changed files with 1546 additions and 1300 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
demos/SimpleOSRBrowser/uSimpleOSRBrowser.pas
View File

@@ -50,10 +50,7 @@ uses
Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, AppEvnts,
{$ENDIF}
GR32_Image, // You need the Graphics32 components for this demo available at http://graphics32.org
uCEFChromium, uCEFTypes, uCEFInterfaces;
const
MINIBROWSER_CREATED = WM_APP + $100;
uCEFChromium, uCEFTypes, uCEFInterfaces, uCEFConstants;
type
TForm1 = class(TForm)
@@ -65,6 +62,8 @@ type
ComboBox1: TComboBox;
Panel2: TPanel;
GoBtn: TButton;
SnapshotBtn: TButton;
SaveDialog1: TSaveDialog;
procedure AppEventsMessage(var Msg: tagMSG; var Handled: Boolean);
@@ -95,6 +94,7 @@ type
procedure chrmosrPopupShow(Sender: TObject; const browser: ICefBrowser; show: Boolean);
procedure chrmosrPopupSize(Sender: TObject; const browser: ICefBrowser; const rect: PCefRect);
procedure chrmosrAfterCreated(Sender: TObject; const browser: ICefBrowser);
procedure SnapshotBtnClick(Sender: TObject);
private
function getModifiers(Shift: TShiftState): TCefEventFlags;
@@ -104,7 +104,7 @@ type
procedure WMMoving(var aMessage : TMessage); message WM_MOVING;
procedure WMCaptureChanged(var aMessage : TMessage); message WM_CAPTURECHANGED;
procedure WMCancelMode(var aMessage : TMessage); message WM_CANCELMODE;
procedure BrowserCreatedMsg(var aMessage : TMessage); message MINIBROWSER_CREATED;
procedure BrowserCreatedMsg(var aMessage : TMessage); message CEF_AFTERCREATED;
public
{ Public declarations }
@@ -235,7 +235,7 @@ end;
procedure TForm1.chrmosrAfterCreated(Sender: TObject; const browser: ICefBrowser);
begin
PostMessage(Handle, MINIBROWSER_CREATED, 0, 0);
PostMessage(Handle, CEF_AFTERCREATED, 0, 0);
end;
procedure TForm1.chrmosrCursorChange(Sender : TObject;
@@ -569,4 +569,9 @@ begin
chrmosr.SendFocusEvent(False);
end;
procedure TForm1.SnapshotBtnClick(Sender: TObject);
begin
if SaveDialog1.Execute then PaintBox.Buffer.SaveToFile(SaveDialog1.FileName);
end;
end.