From 453c3065d7e859a8716ac01c5017650a24fae61e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Salvador=20D=C3=ADaz=20Fau?= <briskbard@briskbard.com>
Date: Sun, 29 Oct 2017 17:18:27 +0100
Subject: [PATCH] OSR demo : TChromium.WasHidden(False) must be in TForm.OnShow

---
 demos/SimpleOSRBrowser/uSimpleOSRBrowser.pas | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/demos/SimpleOSRBrowser/uSimpleOSRBrowser.pas b/demos/SimpleOSRBrowser/uSimpleOSRBrowser.pas
index 78cbd7df..ca3cbb90 100644
--- a/demos/SimpleOSRBrowser/uSimpleOSRBrowser.pas
+++ b/demos/SimpleOSRBrowser/uSimpleOSRBrowser.pas
@@ -433,8 +433,6 @@ end;
 
 procedure TForm1.BrowserCreatedMsg(var aMessage : TMessage);
 begin
-  chrmosr.WasHidden(False);
-  chrmosr.SendFocusEvent(True);
   NavControlPnl.Enabled := True;
   GoBtn.Click;
 end;
@@ -461,9 +459,17 @@ end;
 
 procedure TForm1.FormShow(Sender: TObject);
 begin
-  chrmosr.Options.BackgroundColor := CefColorSetARGB($FF, $FF, $FF, $FF); // opaque white background color
-  chrmosr.CreateBrowser(nil, '');
-  chrmosr.InitializeDragAndDrop(PaintBox);
+  if chrmosr.Initialized then
+    begin
+      chrmosr.WasHidden(False);
+      chrmosr.SendFocusEvent(True);
+    end
+   else
+    begin
+      chrmosr.Options.BackgroundColor := CefColorSetARGB($FF, $FF, $FF, $FF); // opaque white background color
+      chrmosr.CreateBrowser(nil, '');
+      chrmosr.InitializeDragAndDrop(PaintBox);
+    end;
 end;
 
 procedure TForm1.PaintBoxClick(Sender: TObject);