minibrowser corrections

source/minibrowser.pb

@@ -5,46 +5,47 @@
 ; LICENSE  : GPL
 ; AUTHOR   : Michael H.G. Schmidt
 ; EMAIL    : michael@schmidt2.de
-; DATE     : 20230213
+; DATE     : 20230214
 ; ------------------------------------------------------------
 ;
 
+Global StartPage$ = "http://Bing.de"
+
 Procedure ResizeWebWindow()
-  ResizeGadget(10, #PB_Ignore, #PB_Ignore, WindowWidth(0), WindowHeight(0)-52)
+  ResizeGadget(10, #PB_Ignore, #PB_Ignore, WindowWidth(0), WindowHeight(0)-20)
-  ResizeGadget(4, #PB_Ignore, #PB_Ignore, WindowWidth(0)-185, #PB_Ignore)
+  ResizeGadget(4, #PB_Ignore, #PB_Ignore, WindowWidth(0)-200, #PB_Ignore)
-  ResizeGadget(5, WindowWidth(0)-25, #PB_Ignore, #PB_Ignore, #PB_Ignore)
+  ResizeGadget(5, WindowWidth(0)-30, #PB_Ignore, #PB_Ignore, #PB_Ignore)
   ResizeGadget(6, #PB_Ignore, #PB_Ignore, WindowWidth(0), #PB_Ignore)
 EndProcedure
 
-If OpenWindow(0, 100, 200, 800, 600, "MiniBrowser", #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget)
+Procedure JavaScriptErrorMessages(WebGadget,MyState)
+  Protected MyWebGadget.IWebBrowser2
+  MyWebGadget=GetWindowLongPtr_(GadgetID(Webgadget), #GWL_USERDATA)
+  MyWebGadget\put_Silent(MyState)
+EndProcedure
 
-  CreateStatusBar(0, WindowID(0))
+If OpenWindow(0, 100, 200, 800, 600, "MiniBrowser", #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget)
-    AddStatusBarField(#PB_Ignore)
+  
-    StatusBarText(0, 0, "READY.", 0)
+  LoadFont(1,"Courier",10, #PB_Font_Bold)
-      
+  SetGadgetFont(#PB_Default, FontID(1))
-  ButtonGadget(1,   0, 3, 50, 25, "Back")
+  ButtonGadget(1, 0, 3, 60, 25, "Insecure")
-  ButtonGadget(2,  50, 3, 50, 25, "Next")
+  SetGadgetFont(#PB_Default, #PB_Default)
-  ButtonGadget(3, 100, 3, 50, 25, "Stop")
+    
-  StringGadget(4, 155, 5, 0, 20, "http://")
+  ButtonGadget(2, 60, 3, 50, 25, "Back")
+  ButtonGadget(3, 110, 3, 50, 25, "Stop")
+  
+  StringGadget(4, 165, 5, 0, 20, StartPage$)
   ButtonGadget(5, 0, 3, 25, 25, "Go")
   FrameGadget(6, 0, 30, 0, 2, "", 2) ; Nice little separator
   
-  If WebGadget(10, 0, 31, 0, 0, "http://DuckDuckGo.com") = 0
+  WebGadget(10, 1, 37, 1278, 732, StartPage$)
-    
-    CompilerIf #PB_Compiler_OS <> #PB_OS_Windows
-      ; Linux and OX uses Webkit
-      MessageRequester("Error", "Webkit library not found", 0)
-    CompilerEndIf
-    End
-    
-  EndIf
-  
   AddKeyboardShortcut(0, #PB_Shortcut_Return, 0)
+  JavaScriptErrorMessages(10,1) ; Turn off Java Script Error Messages
   
   ; Use bindevent() to have a realtime window resize
   BindEvent(#PB_Event_SizeWindow, @ResizeWebWindow())
   ResizeWebWindow() ; Adjust the gadget to the current window size
-    
+
   Repeat
     Event = WaitWindowEvent()
     
@@ -52,15 +53,18 @@ If OpenWindow(0, 100, 200, 800, 600, "MiniBrowser", #PB_Window_MinimizeGadget |
       Case #PB_Event_Gadget
         Select EventGadget()
           Case 1
-            SetGadgetState(10, #PB_Web_Back)
+            JavaScriptErrorMessages(10,#False)
+            SetGadgetState(10, #PB_Web_Refresh)
           Case 2
-            SetGadgetState(10, #PB_Web_Forward)
+            SetGadgetState(10, #PB_Web_Back)
           Case 3
             SetGadgetState(10, #PB_Web_Stop)
           Case 5
+            JavaScriptErrorMessages(10,#True)
             SetGadgetText(10, GetGadgetText(4))
         EndSelect
       Case #PB_Event_Menu ; We only have one shortcut
+        JavaScriptErrorMessages(10,#True)
         SetGadgetText(10, GetGadgetText(4))
     EndSelect
     
@@ -68,8 +72,10 @@ If OpenWindow(0, 100, 200, 800, 600, "MiniBrowser", #PB_Window_MinimizeGadget |
   
 EndIf
 
+
 ; IDE Options = PureBasic 5.73 LTS (Windows - x64)
-; CursorPosition = 7
+; CursorPosition = 12
+; FirstLine = 1
 ; Folding = -
 ; EnableXP
 ; Executable = ..\tools\minibrowser.exe

tools/logon.cmd

@@ -445,6 +445,9 @@ for %%D in (
 
 )
 
+rem delete strange "about" link in IrfanView Startmenu folder ...
+del /F /Q  %STARTMENU_PUBLIC%\IrfanView\"About IrfanView.lnk" 2>nul
+
 echo.
 echo Other tasks and fixes for the user
 echo ########################################