Url Dropdown

Fix Caption for ExternalPumpBrowser
Fix Windows IFDEF

demos/Lazarus_any_OS/ExternalPumpBrowser/uExternalPumpBrowser.lfm

@@ -32,12 +32,33 @@ object Form1: TForm1
       OnClick = GoBtnClick
       TabOrder = 0
     end
-    object AddressEdt: TEdit
+    object AddressEdt: TComboBox
       Left = 0
-      Height = 23
+      Height = 21
       Top = 0
       Width = 932
       Align = alClient
+      ItemHeight = 13
+      ItemIndex = 0
+      Items.Strings = (
+        'https://www.google.com'
+        'https://www.whatismybrowser.com/detect/what-http-headers-is-my-browser-sending'
+        'https://www.w3schools.com/js/tryit.asp?filename=tryjs_win_close'
+        'https://www.w3schools.com/html/html5_video.asp'
+        'http://www.adobe.com/software/flash/about/'
+        'http://isflashinstalled.com/'
+        'chrome://version/'
+        'http://html5test.com/'
+        'https://www.w3schools.com/'
+        'http://webglsamples.org/'
+        'https://get.webgl.org/'
+        'https://www.youtube.com'
+        'https://html5demos.com/drag/'
+        'https://developers.google.com/maps/documentation/javascript/examples/streetview-embed?hl=fr'
+        'https://www.w3schools.com/Tags/tryit.asp?filename=tryhtml_iframe_name'
+        'https://www.browserleaks.com/webrtc'
+        'https://frames-per-second.appspot.com/'
+      )
       TabOrder = 1
       Text = 'https://www.google.com'
     end

demos/Lazarus_any_OS/ExternalPumpBrowser/uExternalPumpBrowser.pas

@@ -52,7 +52,7 @@ type
   { TForm1 }
 
   TForm1 = class(TForm)
-    AddressEdt: TEdit;
+    AddressEdt: TComboBox;
     CEFLinkedWindowParent1: TCEFLinkedWindowParent;
     GoBtn: TButton;
     Chromium1: TChromium;
@@ -86,8 +86,10 @@ type
     procedure WMMove(var Message: TLMMove); message LM_MOVE;
     procedure WMSize(var Message: TLMSize); message LM_SIZE;
     procedure WMWindowPosChanged(var Message: TLMWindowPosChanged); message LM_WINDOWPOSCHANGED;
+    {$IFDEF WINDOWS}
     procedure WMEnterMenuLoop(var aMessage: TMessage); message WM_ENTERMENULOOP;
     procedure WMExitMenuLoop(var aMessage: TMessage); message WM_EXITMENULOOP;
+    {$ENDIF}
 
     procedure SendCompMessage(aMsg : cardinal);
 
@@ -235,7 +237,7 @@ end;
 
 procedure TForm1.BrowserCreatedMsg(Data: PtrInt);
 begin
-  Caption            := 'Simple Browser 2';
+  Caption            := 'External-Pump Browser 2';
   AddressPnl.Enabled := True;
 end;
 
@@ -275,6 +277,7 @@ begin
   Chromium1.NotifyMoveOrResizeStarted;
 end;
 
+{$IFDEF WINDOWS}
 procedure TForm1.WMEnterMenuLoop(var aMessage: TMessage);
 begin
   inherited;
@@ -288,6 +291,7 @@ begin
 
   if (aMessage.wParam = 0) and (GlobalCEFApp <> nil) then GlobalCEFApp.OsmodalLoop := False;
 end;
+{$ENDIF}
 
 initialization
   if GlobalCEFApp = nil then begin