Update Webgadget to 1.0.8.0

Signed-off-by: Imhotheb <Info@Imhotheb.de>

PB.Ex_WebGadget/x64/PB.Ex_WebGadget.pb

@@ -1,7 +1,10 @@
+;Version: 1.0.8.0
+
 EnableExplicit
 
 Global PBEx_WebGadget
 
+#PBEx_WebGadgetEx_Version$ = "1.0.8.0"
 #PB_Web_Zoom = 100
 
 CompilerIf #PB_Compiler_Processor = #PB_Processor_x86
@@ -53,6 +56,8 @@ If PBEx_WebGadget
   Global SetWebGadgetExAttribute.SetWebGadgetExAttribute = GetFunction(PBEx_WebGadget, "SetWebGadgetExAttribute")
   Prototype EnableRemoteDebugger(Port, ErrorOutput)
   Global EnableRemoteDebugger.EnableRemoteDebugger = GetFunction(PBEx_WebGadget, "EnableRemoteDebugger")
+  Prototype SetWebGadgetExSetUserAgent(UserAgent.p-Unicode, ErrorOutput)
+  Global SetWebGadgetExSetUserAgent.SetWebGadgetExSetUserAgent = GetFunction(PBEx_WebGadget, "SetWebGadgetExSetUserAgent")
   
 EndIf
 
@@ -65,7 +70,10 @@ Procedure MyJSCallback(aaa)
 EndProcedure
 
 If OpenWindow(0, 0, 0, 1200, 768, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
+  ;SetWebGadgetExSetUserAgent("PureBasic Bot", @ErrorOutput$)
+  
   WebGadgetEx(1, 0, 20, 1200, 748, "http://www.rsbasic.de", WindowID(0), @ErrorOutput$)
+  ;WebGadgetEx(1, 0, 20, 1200, 748, "https://www.whatismybrowser.com/detect/what-is-my-user-agent", WindowID(0), @ErrorOutput$)
   ButtonGadget(2, 0, 0, 50, 20, "Back", 0)
   ButtonGadget(3, 50, 0, 50, 20, "Forward", 0)
   ButtonGadget(4, 100, 0, 50, 20, "Reload", 0)
@@ -149,12 +157,11 @@ If OpenWindow(0, 0, 0, 1200, 768, "Window", #PB_Window_SystemMenu | #PB_Window_S
   ForEver
 EndIf
 ; IDE Options = PureBasic 5.71 beta 1 LTS (Windows - x64)
-; CursorPosition = 54
-; FirstLine = 12
+; CursorPosition = 14
 ; Folding = -
 ; EnableXP
 ; EnableUser
 ; Executable = PB.Ex_MSSQL.exe
 ; CompileSourceDirectory
-; EnableCompileCount = 498
+; EnableCompileCount = 504
 ; EnableBuildCount = 7

PB.Ex_WebGadget/x64/PB.Ex_WebGadget.pbi

@@ -1,7 +1,10 @@
+;Version: 1.0.8.0
+
 EnableExplicit
 
 Global PBEx_WebGadget
 
+#PBEx_WebGadgetEx_Version$ = "1.0.8.0"
 #PB_Web_Zoom = 100
 
 CompilerIf #PB_Compiler_Processor = #PB_Processor_x86
@@ -53,11 +56,13 @@ If PBEx_WebGadget
   Global SetWebGadgetExAttribute.SetWebGadgetExAttribute = GetFunction(PBEx_WebGadget, "SetWebGadgetExAttribute")
   Prototype EnableRemoteDebugger(Port, ErrorOutput)
   Global EnableRemoteDebugger.EnableRemoteDebugger = GetFunction(PBEx_WebGadget, "EnableRemoteDebugger")
+  Prototype SetWebGadgetExSetUserAgent(UserAgent.p-Unicode, ErrorOutput)
+  Global SetWebGadgetExSetUserAgent.SetWebGadgetExSetUserAgent = GetFunction(PBEx_WebGadget, "SetWebGadgetExSetUserAgent")
   
 EndIf
-
 ; IDE Options = PureBasic 5.71 beta 1 LTS (Windows - x64)
-; CursorPosition = 57
+; CursorPosition = 61
+; FirstLine = 2
 ; EnableXP
 ; EnableUser
 ; Executable = PB.Ex_MSSQL.exe

PB.Ex_WebGadget/x86/PB.Ex_WebGadget.pb

@@ -1,7 +1,10 @@
+;Version: 1.0.8.0
+
 EnableExplicit
 
 Global PBEx_WebGadget
 
+#PBEx_WebGadgetEx_Version$ = "1.0.8.0"
 #PB_Web_Zoom = 100
 
 CompilerIf #PB_Compiler_Processor = #PB_Processor_x86
@@ -53,6 +56,8 @@ If PBEx_WebGadget
   Global SetWebGadgetExAttribute.SetWebGadgetExAttribute = GetFunction(PBEx_WebGadget, "SetWebGadgetExAttribute")
   Prototype EnableRemoteDebugger(Port, ErrorOutput)
   Global EnableRemoteDebugger.EnableRemoteDebugger = GetFunction(PBEx_WebGadget, "EnableRemoteDebugger")
+  Prototype SetWebGadgetExSetUserAgent(UserAgent.p-Unicode, ErrorOutput)
+  Global SetWebGadgetExSetUserAgent.SetWebGadgetExSetUserAgent = GetFunction(PBEx_WebGadget, "SetWebGadgetExSetUserAgent")
   
 EndIf
 
@@ -65,7 +70,10 @@ Procedure MyJSCallback(aaa)
 EndProcedure
 
 If OpenWindow(0, 0, 0, 1200, 768, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
+  ;SetWebGadgetExSetUserAgent("PureBasic Bot", @ErrorOutput$)
+  
   WebGadgetEx(1, 0, 20, 1200, 748, "http://www.rsbasic.de", WindowID(0), @ErrorOutput$)
+  ;WebGadgetEx(1, 0, 20, 1200, 748, "https://www.whatismybrowser.com/detect/what-is-my-user-agent", WindowID(0), @ErrorOutput$)
   ButtonGadget(2, 0, 0, 50, 20, "Back", 0)
   ButtonGadget(3, 50, 0, 50, 20, "Forward", 0)
   ButtonGadget(4, 100, 0, 50, 20, "Reload", 0)
@@ -149,8 +157,8 @@ If OpenWindow(0, 0, 0, 1200, 768, "Window", #PB_Window_SystemMenu | #PB_Window_S
   ForEver
 EndIf
 ; IDE Options = PureBasic 5.71 beta 1 LTS (Windows - x64)
-; CursorPosition = 149
-; FirstLine = 90
+; CursorPosition = 157
+; FirstLine = 98
 ; Folding = -
 ; EnableXP
 ; EnableUser

PB.Ex_WebGadget/x86/PB.Ex_WebGadget.pbi

@@ -1,7 +1,10 @@
+;Version: 1.0.8.0
+
 EnableExplicit
 
 Global PBEx_WebGadget
 
+#PBEx_WebGadgetEx_Version$ = "1.0.8.0"
 #PB_Web_Zoom = 100
 
 CompilerIf #PB_Compiler_Processor = #PB_Processor_x86
@@ -53,11 +56,13 @@ If PBEx_WebGadget
   Global SetWebGadgetExAttribute.SetWebGadgetExAttribute = GetFunction(PBEx_WebGadget, "SetWebGadgetExAttribute")
   Prototype EnableRemoteDebugger(Port, ErrorOutput)
   Global EnableRemoteDebugger.EnableRemoteDebugger = GetFunction(PBEx_WebGadget, "EnableRemoteDebugger")
+  Prototype SetWebGadgetExSetUserAgent(UserAgent.p-Unicode, ErrorOutput)
+  Global SetWebGadgetExSetUserAgent.SetWebGadgetExSetUserAgent = GetFunction(PBEx_WebGadget, "SetWebGadgetExSetUserAgent")
   
 EndIf
-
 ; IDE Options = PureBasic 5.71 beta 1 LTS (Windows - x64)
-; CursorPosition = 57
+; CursorPosition = 61
+; FirstLine = 2
 ; EnableXP
 ; EnableUser
 ; Executable = PB.Ex_MSSQL.exe