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

Extra UpdateSize call

Browse Source 
- Added an extra call to TCEFWindowParent.UpdateSize to the demos when the browser is fully created.

- Also added a fix for Delphi 10.2 compatibility in the SchemeRegistrationBrowser.
This commit is contained in:
Salvador Díaz Fau
2017-08-23 12:28:45 +02:00
parent e2a597ec81
commit 13c427fc24
73 changed files with 3715 additions and 3416 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
demos/FullScreenBrowser/uMainForm.pas
View File

@ -50,6 +50,9 @@ uses
{$ENDIF}
uCEFChromium, uCEFWindowParent, uCEFInterfaces, uCEFTypes;
const
MINIBROWSER_CREATED = WM_APP + $100;
type
TMainForm = class(TForm)
CEFWindowParent1: TCEFWindowParent;
@ -61,11 +64,14 @@ type
const browser: ICefBrowser; const event: PCefKeyEvent; osEvent: PMsg;
out Result: Boolean);
procedure FormShow(Sender: TObject);
procedure Chromium1AfterCreated(Sender: TObject;
const browser: ICefBrowser);
private
{ Private declarations }
protected
procedure WMMove(var aMessage : TWMMove); message WM_MOVE;
procedure WMMoving(var aMessage : TMessage); message WM_MOVING;
procedure BrowserCreatedMsg(var aMessage : TMessage); message MINIBROWSER_CREATED;
procedure HandleKeyUp(const aMsg : TMsg; var aHandled : boolean);
procedure HandleKeyDown(const aMsg : TMsg; var aHandled : boolean);
@ -111,6 +117,17 @@ begin
if (TempKeyMsg.CharCode = VK_ESCAPE) then aHandled := True;
end;
procedure TMainForm.Chromium1AfterCreated(Sender: TObject;
const browser: ICefBrowser);
begin
PostMessage(Handle, MINIBROWSER_CREATED, 0, 0);
end;
procedure TMainForm.BrowserCreatedMsg(var aMessage : TMessage);
begin
CEFWindowParent1.UpdateSize;
end;
procedure TMainForm.Chromium1KeyEvent(Sender: TObject;
const browser: ICefBrowser; const event: PCefKeyEvent; osEvent: PMsg;
out Result: Boolean);