Author Topic: FBSL - a simple Web browser (Read 10107 times)

Gerome · « **on:** February 09, 2006, 04:45 PM »

Hello,

Fbsl is able to create controls on the fly thanks to its API capacity to dialog with and thanks to the rich funds that Windows has, I'll show you how easy it is to embedd a web browser component with Fbsl and thanks to ATL APIs...
Get ready... ?

At first, here's the script :

[Select]

'$AppType GUI
option explicit
$DLLDeclare ATL.AtlAxWinInit
Dim %hDisplay, $URL

FBSL_SetText(Me, "==FBSL Basic Web Browser==")
ReSize(Me, 0, 0, 600, 500)
Center(Me)

Const hURL = FBSL_Control("Edit", Me, "http://www.fbsl.net", 0, 10, 3, 368, 23, _
WS_Child + WS_Visible + WS_TabStop + ES_AutoHScroll, WS_Ex_ClientEdge)
Const IDB_Go = 1000
FBSL_Control("Button", Me, "Go", IDB_Go, 380, 3, 75, 23, WS_Child + WS_Visible + WS_TabStop, 0)
AtlAxWinInit(0)
hDisplay = FBSL_Control("AtlAxWin", Me, "MSHTML:<HTML></HTML>",_
0, 0, 30, 600, 460, WS_Child + WS_Visible, WS_Ex_ClientEdge)
Show(Me)
RefreshMe()

Begin Events
Select Case CBMsg
Case WM_Size
RefreshMe()
Case WM_Close
ExitProgram(0)
Case WM_Command
If CBCtl = IDB_Go Then EventGo()
End Select
End Events

Sub EventGo()
FBSL_GetText(hURL, URL)
If URL = "" Then Return
If (hDisplay <> 0) Then Destroy(hDisplay)
hDisplay = FBSL_Control("AtlAxWin", Me, URL, 0, 0, 30, 600, 460,_
WS_Child + WS_Visible + WS_VScroll + WS_HScroll, WS_Ex_ClientEdge)
RefreshMe()
End Sub

Sub RefreshMe()
Dim %Lefti, %Topi, %Righti, %Bottomi
GetClientRect( Me, Lefti, Topi, Righti, Bottomi )
ReSize(hDisplay, 10, 30, Righti - 25, Bottomi - 70)
End Sub

And then, here's the result :

mouser · « **Reply #1 on:** February 09, 2006, 05:25 PM »

ok, that is pretty sweet.

Cpilot · « **Reply #2 on:** February 09, 2006, 05:28 PM »

ok, that is pretty sweet.
-mouser

Yep, api access can have it's advantages.

Cpilot · « **Reply #3 on:** February 09, 2006, 07:15 PM »

Little modification to add AutoComplete.

[Select]

'$AppType GUI
option explicit
$DLLDeclare ATL.AtlAxWinInit,shlwapi.SHAutoComplete
Dim %hDisplay, $URL

FBSL_SetText(Me, "==FBSL Basic Web Browser==")
ReSize(Me, 0, 0, 600, 500)
Center(Me)
Const SHACF_URLMRU = &H4

Const SHACF_URLHISTORY = &H2

Const SHACF_URLALL = (SHACF_URLHISTORY + SHACF_URLMRU)
Const hURL = FBSL_Control("Edit", Me, "", 0, 10, 3, 368, 23, _
WS_Child + WS_Visible + WS_TabStop + ES_AutoHScroll, WS_Ex_ClientEdge)
Const IDB_Go = 1000
FBSL_Control("Button", Me, "Go", IDB_Go, 380, 3, 75, 23, WS_Child + WS_Visible + WS_TabStop, 0)
AtlAxWinInit(0)
hDisplay = FBSL_Control("AtlAxWin", Me, "MSHTML:<HTML></HTML>",_
0, 0, 30, 600, 460, WS_Child + WS_Visible, WS_Ex_ClientEdge)

SHAutoComplete(hURL,SHACF_URLHISTORY)

Show(Me)
RefreshMe()

Begin Events
Select Case CBMsg
Case WM_Size
RefreshMe()
Case WM_Close
ExitProgram(0)
Case WM_Command
If CBCtl = IDB_Go Then EventGo()
End Select
End Events

Sub EventGo()
FBSL_GetText(hURL, URL)
If URL = "" Then Return
If (hDisplay <> 0) Then Destroy(hDisplay)
hDisplay = FBSL_Control("AtlAxWin", Me, URL, 0, 0, 30, 600, 460,_
WS_Child + WS_Visible + WS_VScroll + WS_HScroll, WS_Ex_ClientEdge)
RefreshMe()
End Sub

Sub RefreshMe()
Dim %Lefti, %Topi, %Righti, %Bottomi
GetClientRect( Me, Lefti, Topi, Righti, Bottomi )
ReSize(hDisplay, 10, 30, Righti - 25, Bottomi - 70)
End Sub

Gerome · « **Reply #4 on:** February 10, 2006, 04:39 AM »

Yo Cpilot!

Even better!
Now i'm using your version at office, this helps me a lot at debugging my JScript code compared to a direct use of complete IE6 where it by default mask all JScripts errors (even if the check was checked!).
Anyway, your enhanced version is more practical

Gerome · « **Reply #5 on:** February 10, 2006, 05:03 AM »

Hello,

I've refined the code and fixed 2 bugs, one of the 2 bugs was sucking RAM

Enjoy this smoother version :=)

[Select]

'$AppType GUI
option explicit
$DLLDeclare ATL.AtlAxWinInit,shlwapi.SHAutoComplete
Dim %hDisplay, $URL

FBSL_SetText(Me, "==FBSL Basic Web Browser==")
ReSize(Me, 0, 0, 600, 500)
Center(Me)
Const SHACF_URLMRU = &H4

Const SHACF_URLHISTORY = &H2

Const SHACF_URLALL = (SHACF_URLHISTORY + SHACF_URLMRU)
Const hURL = FBSL_Control("Edit", Me, "", 0, 10, 3, 368, 23, _
WS_Child + WS_Visible + WS_TabStop + ES_AutoHScroll, WS_Ex_ClientEdge)
Const IDB_Go = 1000
FBSL_Control("Button", Me, "Go", IDB_Go, 380, 3, 75, 23, WS_Child + WS_Visible + WS_TabStop, 0)
AtlAxWinInit(0)
hDisplay = FBSL_Control("AtlAxWin", Me, "MSHTML:<HTML></HTML>",_
0, 0, 30, 600, 460, WS_Child + WS_Visible, WS_Ex_ClientEdge)

SHAutoComplete(hURL,SHACF_URLHISTORY)

Show(Me)
RefreshMe()

Begin Events
Select Case CBMsg
Case WM_Size
RefreshMe()
Case WM_Close
ExitProgram(0)
Case WM_Command
If CBCtl = IDB_Go Then EventGo()
End Select
End Events

Sub EventGo()
FBSL_GetText(hURL, URL)
If (hDisplay <> 0) Then
Destroy(hDisplay)
hDisplay = 0
End If
If URL = "" Then Exit Sub
hDisplay = FBSL_Control("AtlAxWin", Me, URL, 0, 0, 30, 600, 460,_
WS_Child + WS_Visible + WS_VScroll + WS_HScroll, WS_Ex_ClientEdge)
RefreshMe()
End Sub

Sub RefreshMe()
Dim %Lefti, %Topi, %Righti, %Bottomi
GetClientRect( Me, Lefti, Topi, Righti, Bottomi )
ReSize(hDisplay, 10, 30, Righti - 25, Bottomi - 70)
End Sub

Author Topic: FBSL - a simple Web browser (Read 10107 times)

Gerome

FBSL - a simple Web browser

mouser

Re: FBSL - a simple Web browser

Cpilot

Re: FBSL - a simple Web browser

Cpilot

Re: FBSL - a simple Web browser

Gerome

Re: FBSL - a simple Web browser

Gerome

Re: FBSL - a simple Web browser