Re: ProGUI Update, Graph Library and Experimental V2
Posted: Sat Jun 20, 2020 8:32 pm
Is the WebBrowser widget IE?
If so does it default to the most recent version of IE?
If so does it default to the most recent version of IE?
http://www.purebasic.com
https://www.purebasic.fr/english/
Yep, I think so - it's just a standard PB WebGadget placed inside of a PanelEx page (so its rendering is diverted onto the PanelEx compositing buffer).the.weavster wrote:Is the WebBrowser widget IE?
If so does it default to the most recent version of IE?
Actually I think it is the old IE control under the hood, I wonder if there's a way to get PB to use the latest version (swap a DLL or something).PrincieD wrote:Yep, I think so - it's just a standard PB WebGadget placed inside of a PanelEx page (so its rendering is diverted onto the PanelEx compositing buffer).the.weavster wrote:Is the WebBrowser widget IE?
If so does it default to the most recent version of IE?
Chris.
You may want to look at the work Patrice has done with the other PB over here.PrincieD wrote:I wonder if there's a way to get PB to use the latest version (swap a DLL or something).
Hmm interesting, this is some pretty awesome work too: viewtopic.php?f=27&t=72703 just a shame about the huge file sizes.Kuron wrote:You may want to look at the work Patrice has done with the other PB over here.PrincieD wrote:I wonder if there's a way to get PB to use the latest version (swap a DLL or something).
He has it working quite well.
Even moreso when you consider MS has backported Canary (the new Edge) to Windows 7.PrincieD wrote:Hmm interesting
Code: Select all
Procedure callback(hwnd, message, wparam, lparam)
Select message
Case #WM_ERASEBKGND
ProcedureReturn 1
Case #WM_PAINT
ImgBeginDraw(timg)
ImgBlit(timg1, 0, 0, winwidth, winheight, 0, 0)
GetCursorPos_(p.POINT)
ScreenToClient_(WindowID(0), p)
ImgBeginDraw(timg2)
ImgBox(0, 0, 20, 20, RGB(255, 0, 0), 1)
ImgEndDraw()
w = 300
h = 300
rc.RECT_F
rc\left = p\x-(w/2)
rc\top = p\y-(h/2)
rc\right = rc\left + w
rc\bottom = rc\top + h
ImgBeginLayer(rc, 0.8, brush, *tborder)
ImgRect(rc, RGB(255, 255, 255), 1)
ForEach object()
;ImgDrawEx(object()\img, 20, 20, 20, 20, object()\x, object()\y, 200, 200, object()\alpha)
ImgDraw(object()\img, object()\x, object()\y, -1, -1, object()\alpha)
Next
;BrushSetSimpleTransform(boingBrush, (1/w)*p\y, (1/w)*p\y, 420, 420, p\x/10, -28, -28)
;ImgFillBox(220, 220, 400, 400, boingBrush)
;ImgBox(180, 180, 200, 200, RGB(0, 0, 255), 1)
;ImgFillBox(220, 220, 400, 400, *tborder\bottomright)
ImgDrawBorder(*tborder, 220, 200, 400, 400, 1)
ImgDrawBorder(*tborder, 120, 100, p\x, p\y, 1)
w = 100
h = 100
rc.RECT_F
rc\left = p\x-(w/2)
rc\top = p\y-(h/2)
rc\right = rc\left + w
rc\bottom = rc\top + h
ImgBeginLayer(rc, 1, 0, 0)
ImgBox(0, 0, 2000, 2000, RGB(0, 255, 0), 1)
ImgEndLayer()
ImgEndLayer()
ImgEndDraw()
dc = BeginPaint_(WindowID(0), @ps.PAINTSTRUCT)
ps\fErase = 0
ImgToHdc(timg, dc)
EndPaint_(WindowID(0), @ps)
Default
ProcedureReturn #PB_ProcessPureBasicEvents
EndSelect
EndProcedure
Code: Select all
Procedure callback(hwnd, message, wparam, lparam)
Select message
Case #WM_ERASEBKGND
ProcedureReturn 1
Case #WM_PAINT
ImgBeginDraw(timg)
ImgBlit(timg1, 0, 0, winwidth, winheight, 0, 0)
GetCursorPos_(p.POINT)
ScreenToClient_(WindowID(0), p)
ImgBeginDraw(timg2)
ImgBox(0, 0, 20, 20, RGB(255, 0, 0), 1)
ImgEndDraw()
w = 300
h = 300
BrushSetSimpleTransform(boingBrush, (1/w)*p\y, (1/w)*p\y, 420, 420, p\x/10, -28, -28)
BrushSetOpacity(boingBrush, 0.2)
ImgFillBox(0, 0, winwidth, winheight, boingBrush)
BrushSetOpacity(boingBrush, 1)
rc.RECT_F
rc\left = p\x-(w/2)
rc\top = p\y-(h/2)
rc\right = rc\left + w
rc\bottom = rc\top + h
ImgBeginLayer(rc, 0.8, brush, *tborder)
ImgRect(rc, RGB(255, 255, 255), 1)
ForEach object()
;ImgDrawEx(object()\img, 20, 20, 20, 20, object()\x, object()\y, 200, 200, object()\alpha)
ImgDraw(object()\img, object()\x, object()\y, -1, -1, object()\alpha)
Next
BrushSetSimpleTransform(boingBrush, (0.5/w)*p\y, (0.5/w)*p\y, 420, 420, p\x/20, -28, -28)
ImgFillBox(220, 220, 400, 400, boingBrush)
;ImgBox(180, 180, 200, 200, RGB(0, 0, 255), 1)
;ImgFillBox(220, 220, 400, 400, *tborder\bottomright)
ImgDrawBorder(*tborder, 220, 200, 400, 400, 1)
ImgDrawBorder(*tborder, 120, 100, p\x, p\y, 1)
w = 200
h = 200
rc.RECT_F
rc\left = p\x-(w/2)
rc\top = p\y-(h/2)
rc\right = rc\left + w
rc\bottom = rc\top + h
ImgBeginLayer(rc, 1, 0, *tborder)
ImgBox(0, 0, 2000, 2000, RGB(0, 50, 255), 1)
ForEach object()
ImgDrawEx(object()\img, 0, 0, -1, -1, object()\x, object()\y, 150, 150, object()\alpha)
Next
ImgEndLayer()
ImgEndLayer()
ImgEndDraw()
dc = BeginPaint_(WindowID(0), @ps.PAINTSTRUCT)
ps\fErase = 0
ImgToHdc(timg, dc)
EndPaint_(WindowID(0), @ps)
Default
ProcedureReturn #PB_ProcessPureBasicEvents
EndSelect
EndProcedure