erabo/spiegel-keyman
1
0
Fork 0
mirror of https://github.com/keymanapp/keyman.git synced 2026-09-02 21:57:41 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 14

[developer] Defer browser creation so that window is already sized correctly at creation

Browse source
This commit is contained in:
Marc Durdin 2018-07-22 08:23:02 +10:00
parent d65566b8c6
commit 8a135467db
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
windows/src/developer/TIKE/main/Keyman.Developer.UI.UframeCEFHost.pas
View file

@ -30,6 +30,7 @@ const
CEF_DESTROY = WM_USER + 300;
CEF_AFTERDESTROY = WM_USER + 301;
CEF_AFTERCREATE = WM_USER + 302;
CEF_SHOW = WM_USER + 303;
type
TCEFHostBeforeBrowseEvent = procedure(Sender: TObject; const Url: string; out Result: Boolean) of object;
@ -99,6 +100,7 @@ type
procedure CreateBrowser;
procedure Navigate; overload;
procedure CEFShow(var message: TMessage); message CEF_SHOW;
public
procedure SetFocus; override;
procedure StartClose;
@ -163,6 +165,11 @@ end;
procedure TframeCEFHost.FormShow(Sender: TObject);
begin
inherited;
PostMessage(Handle, CEF_SHOW, 0, 0);
end;
procedure TframeCEFHost.CEFShow(var message: TMessage);
begin
CreateBrowser;
end;