pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-05-23 21:50:21 +02:00
Code Issues Actions Releases Activity

OSR demo : TChromium.CreateBrowser moved to TForm.OnShow

Browse Source
This commit is contained in:
Salvador Díaz Fau 2017-10-29 17:10:33 +01:00
parent 74b1d6c52a
commit 410c16b0bb
3 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
demos/SimpleOSRBrowser/SimpleOSRBrowser.dpr
View File

@ -46,7 +46,6 @@ uses
Forms, Windows,
{$ENDIF}
uCEFApplication,
uCEFTypes,
uSimpleOSRBrowser in 'uSimpleOSRBrowser.pas' {Form1};
{$R *.res}
@ -58,7 +57,6 @@ begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.WindowlessRenderingEnabled := True;
GlobalCEFApp.EnableHighDPISupport := True;
//GlobalCEFApp.EnableGPU := False;
// In case you want to use custom directories for the CEF3 binaries, cache, cookies and user data.
{

1
demos/SimpleOSRBrowser/uSimpleOSRBrowser.dfm
View File

@ -13,7 +13,6 @@ object Form1: TForm1
OldCreateOrder = False
Position = poScreenCenter
OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
OnCreate = FormCreate
OnDestroy = FormDestroy
OnHide = FormHide
OnShow = FormShow

15
demos/SimpleOSRBrowser/uSimpleOSRBrowser.pas
View File

@ -74,7 +74,6 @@ type
procedure FormShow(Sender: TObject);
procedure FormHide(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormAfterMonitorDpiChanged(Sender: TObject; OldDPI, NewDPI: Integer);
@ -434,6 +433,8 @@ end;
procedure TForm1.BrowserCreatedMsg(var aMessage : TMessage);
begin
chrmosr.WasHidden(False);
chrmosr.SendFocusEvent(True);
NavControlPnl.Enabled := True;
GoBtn.Click;
end;
@ -447,13 +448,6 @@ begin
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
chrmosr.Options.BackgroundColor := CefColorSetARGB($FF, $FF, $FF, $FF); // opaque white background color
chrmosr.CreateBrowser(nil, '');
chrmosr.InitializeDragAndDrop(PaintBox);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
chrmosr.ShutdownDragAndDrop;
@ -467,8 +461,9 @@ end;
procedure TForm1.FormShow(Sender: TObject);
begin
chrmosr.WasHidden(False);
chrmosr.SendFocusEvent(True);
chrmosr.Options.BackgroundColor := CefColorSetARGB($FF, $FF, $FF, $FF); // opaque white background color
chrmosr.CreateBrowser(nil, '');
chrmosr.InitializeDragAndDrop(PaintBox);
end;
procedure TForm1.PaintBoxClick(Sender: TObject);