From 8a135467dbf82cf37e280a4e71db8390081a93ee Mon Sep 17 00:00:00 2001
From: Marc Durdin <marc@keyman.com>
Date: Sun, 22 Jul 2018 08:23:02 +1000
Subject: [PATCH] [developer] Defer browser creation so that window is already
 sized correctly at creation

---
 .../TIKE/main/Keyman.Developer.UI.UframeCEFHost.pas        | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/windows/src/developer/TIKE/main/Keyman.Developer.UI.UframeCEFHost.pas b/windows/src/developer/TIKE/main/Keyman.Developer.UI.UframeCEFHost.pas
index 94b9a02084..989c9d58f7 100644
--- a/windows/src/developer/TIKE/main/Keyman.Developer.UI.UframeCEFHost.pas
+++ b/windows/src/developer/TIKE/main/Keyman.Developer.UI.UframeCEFHost.pas
@@ -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;