Update to CEF 3.3202.1690.gcd6b88f

- Update to CEF 3.3202.1690.gcd6b88f
- Bug fix #71
- Added the TCEFWorkScheduler class to handle the cef_do_message_loop_work calls when you use an external message pump.
- Added 2 demos using the "external message pump" mode.
- Added a TakeSnapshot function to the TChromium and TCEFWindowParent to take snapshots in non-OSR mode.

demos/SimpleOSRBrowser/SimpleOSRBrowser.dpr

@@ -59,6 +59,8 @@ begin
   GlobalCEFApp.EnableHighDPISupport       := True;
   GlobalCEFApp.FastUnload                 := True;
 
+  //GlobalCEFApp.AddCustomCommandLine('--show-fps-counter');
+
   // In case you want to use custom directories for the CEF3 binaries, cache, cookies and user data.
 {
   GlobalCEFApp.FrameworkDirPath     := 'cef';

demos/SimpleOSRBrowser/uSimpleOSRBrowser.dfm

@@ -49,7 +49,8 @@ object Form1: TForm1
         
           'https://www.w3schools.com/tags/tryit.asp?filename=tryhtml5_selec' +
           't_form'
-        'https://www.briskbard.com')
+        'https://www.briskbard.com'
+        'https://frames-per-second.appspot.com/')
     end
     object Panel2: TPanel
       Left = 726
@@ -108,6 +109,7 @@ object Form1: TForm1
     Align = alClient
     Caption = 'Panel1'
     TabOrder = 1
+    TabStop = True
     OnClick = Panel1Click
     OnEnter = Panel1Enter
     OnExit = Panel1Exit

demos/SimpleOSRBrowser/uSimpleOSRBrowser.pas

@@ -346,11 +346,11 @@ procedure TForm1.chrmosrGetViewRect(Sender : TObject;
 begin
   if (GlobalCEFApp <> nil) then
     begin
-      rect.x          := 0;
-      rect.y          := 0;
-      rect.width      := DeviceToLogical(Panel1.Width,  GlobalCEFApp.DeviceScaleFactor);
-      rect.height     := DeviceToLogical(Panel1.Height, GlobalCEFApp.DeviceScaleFactor);
-      Result          := True;
+      rect.x      := 0;
+      rect.y      := 0;
+      rect.width  := DeviceToLogical(Panel1.Width,  GlobalCEFApp.DeviceScaleFactor);
+      rect.height := DeviceToLogical(Panel1.Height, GlobalCEFApp.DeviceScaleFactor);
+      Result      := True;
     end
    else
     Result := False;
@@ -619,6 +619,8 @@ var
 begin
   if (GlobalCEFApp <> nil) then
     begin
+      Panel1.SetFocus;
+
       TempEvent.x         := X;
       TempEvent.y         := Y;
       TempEvent.modifiers := getModifiers(Shift);