PureBasic Forums - English

Posted: **Tue Apr 22, 2008 8:11 pm**

Does anyone know if you can change the border style around a webgadget? It defaults to borderless. I want a double line sunken border. I have a container gadget for the border currently.

Posted: **Tue Apr 22, 2008 9:17 pm**

Someone might be able to make a better example...

Code: Select all

  If OpenWindow(0, 0, 0, 640, 480, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
    
    web_gadget = WebGadget(#PB_Any, 50, 50, 256, 256, "http://localhost")
    web_gadget_handle = GadgetID(web_gadget)

    web_gadget_exstyle = GetWindowLong_( web_gadget_handle, #GWL_EXSTYLE)
    SetWindowLong_( web_gadget_handle, #GWL_EXSTYLE, web_gadget_exstyle |  #WS_EX_CLIENTEDGE | #WS_EX_LEFTSCROLLBAR	) ; dont ask why this works...
		UpdateWindow_( web_gadget_handle ) ; make sure it updates?
    
    Repeat 
    Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf

I don't know why this works, I mean... without the #WS_EX_LEFTSCROLLBAR it doesn't work!

--EDIT--

Either #WS_EX_LEFTSCROLLBAR or #WS_EX_LEFT or #WS_EX_RIGHT is needed for the border styles to work, anyone knows why?

Try #WS_EX_STATICEDGE if you want a thinner border though.

--EDIT2--

Well, this is what I have so far:

Code: Select all

 Procedure WebGadgetBorder( hWnd.l )
  	If (IsWindow_(hWnd)) 
	    SetWindowLong_( hWnd, #GWL_EXSTYLE, GetWindowLong_( hWnd, #GWL_EXSTYLE) |  #WS_EX_CLIENTEDGE | #WS_EX_RIGHT ) ; #WS_EX_LAYOUTRTL
			UpdateWindow_( hWnd ) ; make sure it updates?
  	EndIf
  EndProcedure
  
  If OpenWindow(0, 0, 0, 640, 480, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
    
    web_gadget = WebGadget(#PB_Any, 50, 20, 540, 440, "http://www.google.com/search?&q=Google")		
		WebGadgetBorder( GadgetID(web_gadget) )

    Repeat 
    Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf

I researched on the problem and I couldn't find anything useful, it simply isn't displaying the border in my XP unless I set an RTL style!... Very, very strange.

Posted: **Tue Apr 22, 2008 9:41 pm**

Thanks for the quick reply. Doesn't work here though (Win ME).

Also, how do you set the focus on a webgadget? I can't do that either.

Edit: oh, another one. Checking it out now.

Edit2: No the second one doesn't work either.

Posted: **Tue Apr 22, 2008 9:45 pm**

I tried using GetWindowLong_() with #GWL_EXSTYLE for a webgadget and it just returns zero. I assume this means webgadgets don't have extended styles.

Posted: **Tue Apr 22, 2008 9:55 pm**

Does this not work ?

Code: Select all

  If OpenWindow(0, 0, 0, 640, 480, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0)) 
    
    web_gadget = WebGadget(#PB_Any, 50, 50, 256, 256, "http://localhost") 
    hWnd = GadgetID(web_gadget) 

    style = GetWindowLong_(hWnd, #GWL_EXSTYLE) 
    SetWindowLong_(hWnd, #GWL_EXSTYLE, style|#WS_EX_CLIENTEDGE)
    SetWindowPos_(hWnd,0,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE|#SWP_NOOWNERZORDER|#SWP_DRAWFRAME)	

    
    Repeat 
    Until WaitWindowEvent() = #PB_Event_CloseWindow 
  EndIf

Posted: **Tue Apr 22, 2008 9:57 pm**

Try this for setting the focus, and I added a WS_STYLE in hopes that it works under 9X but I can't test right now, I only have XP here, sorry.

Code: Select all

  Procedure WebGadgetSetBorder( hWnd.l )
  	If (IsWindow_(hWnd)) 
  		SetWindowLong_( hWnd, #GWL_STYLE, GetWindowLong_( hWnd, #GWL_STYLE) |  #WS_THICKFRAME ) ; as thick as it gets
	    SetWindowLong_( hWnd, #GWL_EXSTYLE, GetWindowLong_( hWnd, #GWL_EXSTYLE) |  #WS_EX_WINDOWEDGE | #WS_EX_CLIENTEDGE | #WS_EX_RIGHT ) ; #WS_EX_LAYOUTRTL
			UpdateWindow_( hWnd ) ; make sure it updates?
  	EndIf
  EndProcedure
	Procedure.l WebGadgetSetFocus( hWnd.l )
		Repeat 
			hWnd = GetWindow_( hWnd, #GW_CHILD )
			Define.s lpClassName = Space(#MAX_PATH)
			GetClassName_( hWnd, lpClassName, #MAX_PATH)
			If lpClassName = "Internet Explorer_Server"
				ProcedureReturn SetFocus_( hWnd )
				EndIf
		Until hWnd = #Null
	EndProcedure
		
  If OpenWindow(0, 0, 0, 640, 480, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
    
    web_gadget = WebGadget(#PB_Any, 50, 20, 540, 440, "http://www.google.com/search?&q=Google")		
		WebGadgetSetBorder( GadgetID(web_gadget) )
		WebGadgetSetFocus( GadgetID(web_gadget) )
		
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
    
  EndIf

Notice, if you're browsing local files inside your WebGadget the WebGadgetSetFocus routine WILL fail, because the instance created in the embedded object is not an internet explorer object but rather a shell (explorer) object. (at least thats what I remember from previous attempts)

Posted: **Tue Apr 22, 2008 9:58 pm**

superadnim, the reason you're having to use the extra styles is because UpdateWindow_() does not refresh the non-client area. Instead, simply use SetWindowPos_() etc.

Posted: **Tue Apr 22, 2008 10:04 pm**

srod, thanks! thats it!
sending #SWP_FRAMECHANGED seems to work

now, I should undust my old winME and see if it works.

Posted: **Tue Apr 22, 2008 10:13 pm**

Final code from my side, works in XP and WinME:

Code: Select all

  Procedure WebGadgetSetBorder( hWnd.l, mode.l=#False )
  	If (IsWindow_(hWnd)) 
			If (mode)
				SetWindowLong_( hWnd, #GWL_STYLE, GetWindowLong_( hWnd, #GWL_STYLE) |  #WS_THICKFRAME )
			Else
				SetWindowLong_( hWnd, #GWL_EXSTYLE, GetWindowLong_( hWnd, #GWL_EXSTYLE) | #WS_EX_CLIENTEDGE  )
			EndIf
			SetWindowPos_(hWnd, #Null, 0,0,0,0 , #SWP_FRAMECHANGED | #SWP_NOSIZE | #SWP_NOMOVE	)
  	EndIf
  EndProcedure
	Procedure.l WebGadgetSetFocus( hWnd.l )
		Repeat 
			hWnd = GetWindow_( hWnd, #GW_CHILD )
			Define.s lpClassName = Space(#MAX_PATH)
			GetClassName_( hWnd, lpClassName, #MAX_PATH)
			If lpClassName = "Internet Explorer_Server"
				ProcedureReturn SetFocus_( hWnd )
				EndIf
		Until hWnd = #Null
	EndProcedure
		
  If OpenWindow(0, 0, 0, 640, 480, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
    
    web_gadget = WebGadget(#PB_Any, 50, 20, 540, 440, "http://www.google.com/search?&q=Google")		
		WebGadgetSetBorder( GadgetID(web_gadget) )
		WebGadgetSetFocus( GadgetID(web_gadget) )
		
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
    
  EndIf

I'm not too happy about the focus routine but thats the only thing I could come up with

Perhaps, if you iterate until you can't find a child anymore, that'll give you the last child which is the one you should be sending the focus to. Either way I ignore if winapi has a function or better way to do this that's why I did it by hand.

Hope it works over there too.

--EDIT--

This is what I meant, but it doesn't work with files...

Code: Select all

	Procedure.l WebGadgetSetFocus( hWnd.l ) ; still doesn't work with webgadget while browsing files...
		If (IsWindow_(hWnd))
			Define.l temp
			Repeat 
				temp = hWnd
				hWnd = GetWindow_( hWnd, #GW_CHILD )
			Until hWnd = #Null
			If (IsWindow_(temp))
				ProcedureReturn SetFocus_( temp )
			EndIf
		EndIf
	EndProcedure

Posted: **Wed Apr 23, 2008 1:08 am**

Yes, srod your example works here, and superadnim's last example works. Thanks!

Any ideas about setting the focus? Like when I change tabs setgadgetstate works for an editorgadget but not with a webgadget.

Edit: Oops, sorry superadnim, I didn't read your whole last post.

Posted: **Wed Apr 23, 2008 1:14 pm**

Both your setfocus functions work here superadnim, I'm using local files. Thanks, I prefer the first version, it loops 3 times so not too many. I didn't realize a webgadget is embedded. Anyway, here is what I am using now...

Code: Select all

Procedure SetWebBorder(Gadget.l)
 ;Double sunken border for WebGadget, by srod
 
 Protected hWnd.l = GadgetID(Gadget)
 SetWindowLong_(hWnd, #GWL_EXSTYLE, GetWindowLong_(hWnd, #GWL_EXSTYLE) | #WS_EX_CLIENTEDGE)
 SetWindowPos_(hWnd, 0, 0, 0, 0, 0, #SWP_NOMOVE | #SWP_NOSIZE | #SWP_NOOWNERZORDER | #SWP_DRAWFRAME)
 
EndProcedure

Code: Select all

Procedure.l SetWebFocus(Gadget.l)
 ;Set the focus on a WebGadget, by superadnim
 
 Protected lpClassName$, hWnd.l = GadgetID(Gadget)
 Repeat
  hWnd = GetWindow_(hWnd, #GW_CHILD)
  lpClassName$ = Space(#MAX_PATH)
  GetClassName_(hWnd, lpClassName$, #MAX_PATH)
  If lpClassName$ = "Internet Explorer_Server"
   ProcedureReturn SetFocus_(hWnd)
  EndIf
 Until hWnd = #Null
 
EndProcedure

PureBasic Forums - English

Set Webgadget border style?

Set Webgadget border style?