Missing Code!

[Andy Dibble]

In my latest A5A6 application I have created three Display XDialog Box web browsers with pre-set URL�s. I launch these dialogs from a left hand vertical navigation bar, however - I am now running out of screen. For example � I have designed my application to fit a 1024 x 768 and my last three icons will not fit. The three icons launch the browsers perfectly but no space to include them!

So I have made a single launch icon in the Nav. Bar with the following code.

The code I am using does not launch the browsers when I make a selection � what is missing form my code?

'Date Created: 24-Jan-2003 05:58:27 PM
'Last Updated: 01-Nov-2004 12:56:08 AM
'Created By :
'Updated By : Andy
menu = ""%str%
Menu Options
Information:|Convertions:|Exchange Rates
Information:|Convertions:|Measurements
Information:|Convertions:|Time

%str%

result = ui_popup_menu(menu)

if result = "Exchange Rates" then
script_play("WebBrowser")
else if result = "Measurements" then
script_play("WebBrowser1")
else if result = ("Time") then
script_play("WebBrowser2")

end if

Any help you can offer will be welcomed.
Regards
Andy (an inexperienced code writer!)

[Al Buchholz]

RE: Missing Code!

Andy

Please include one of the scripts named WebBrowser or WebBrowser1 or WebBrowser2.

[Andy Dibble]

RE: Missing Code!

Hi Al,
The browser set up usinging a Display Dialog Box, but her is the Xbasic code:

-----------------------

'Create an XDialog dialog box to prompt for parameters.
DIM WebBrowser as P
dim WebBrowser.object as p
dim WebBrowser.class as c
WebBrowser.class = "shell.explorer"

dim WebBrowser.events as c
WebBrowser.events = ""%code%
function beforenavigate2 as v (pDisp as P,URL as P,Flags as P,TargetFrameName as P,PostData as P,Headers as P,Cancel as L)
end function

function clienttohostwindow as v (CX as N,CY as N)
end function

function commandstatechange as v (Command as N,Enable as L)
end function

function documentcomplete as v (pDisp as P,URL as P)
end function

function downloadbegin as v ()
end function

function downloadcomplete as v ()
end function

function filedownload as v (Cancel as L)
end function

function navigatecomplete2 as v (pDisp as P,URL as P)
end function

function navigateerror as v (pDisp as P,URL as P,Frame as P,StatusCode as P,Cancel as L)
end function

function newwindow2 as v (ppDisp as OLE::shell.explorer::IWebBrowser,Cancel as L)
end function

function newwindow3 as v (ppDisp as OLE::shell.explorer::IWebBrowser,Cancel as L,dwFlags as N,bstrUrlContext as C,bstrUrl as C)
end function

function onfullscreen as v (FullScreen as L)
end function

function onmenubar as v (MenuBar as L)
end function

function onquit as v ()
end function

function onstatusbar as v (StatusBar as L)
end function

function ontheatermode as v (TheaterMode as L)
end function

function ontoolbar as v (ToolBar as L)
end function

function onvisible as v (Visible as L)
end function

function printtemplateinstantiation as v (pDisp as P)
end function

function printtemplateteardown as v (pDisp as P)
end function

function privacyimpactedstatechange as v (bImpacted as L)
end function

function progresschange as v (Progress as N,ProgressMax as N)
end function

function propertychange as v (szProperty as C)
end function

function setsecurelockicon as v (SecureLockIcon as N)
end function

function statustextchange as v (Text as C)
end function

function titlechange as v (Text as C)
end function

function updatepagestatus as v (pDisp as P,nPage as P,fDone as P)
end function

function windowclosing as v (IsChildWindow as L,Cancel as L)
end function

function windowsetheight as v (Height as N)
end function

function windowsetleft as v (Left as N)
end function

function windowsetresizable as v (Resizable as L)
end function

function windowsettop as v (Top as N)
end function

function windowsetwidth as v (Width as N)
end function


%code%
DIM SHARED varC_result as C
DIM WebBrowser_url as c
WebBrowser_url = "http://www.iccfx.com/"
heading_string = "Enter a URL and click GO"
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_dlg_box("GRIT Web Browser",""%dlg%
{startup=init}
{region}
{Region}
{text=185,1:heading_string};
{Endregion};
{Region}
URL:| [.170WebBrowser_url] "&GO!WebBrowser_go";
| {activex=170,35WebBrowser?.t.};
{Endregion};
{Region}
;
{Endregion};
{line=1,0};
"*15=ok_button_label!OK" "15=cancel_button_label!CANCEL";
{endregion};
%dlg%,""%code%
if a_dlg_button = "init" then
a_dlg_button = ""
hourglass_cursor(.t.)
if WebBrowser_url "" "" then
on error goto WebBrowser_error
WebBrowser.object.navigate(WebBrowser_url)
on error goto 0
end if
hourglass_cursor(.f.)

end if
if a_dlg_button = "WebBrowser_go" then
a_dlg_button = ""
hourglass_cursor(.t.)
if WebBrowser_url "" "" then
on error goto WebBrowser_error
WebBrowser.object.navigate(WebBrowser_url)
on error goto 0
end if
hourglass_cursor(.f.)
end if


end

WebBrowser_error:
ui_msg_box("Error","Invalid URL.",UI_STOP_SYMBOL)
end
%code%)

[Andy Dibble]

RE: Missing Code!

Al,
During my pasting of the data in the last posting the error jumped out and bit me on the nose!!!

The cose for the for the browser names was missing the 'Open', thus the scipt should have been:

'Date Created: 24-Jan-2003 05:58:27 PM
'Last Updated: 01-Nov-2004 12:56:08 AM
'Created By :
'Updated By : Andy
menu = ""%str%
Menu Options
Information:|Convertions:|Exchange Rates
Information:|Convertions:|Measurements
Information:|Convertions:|Time

%str%

result = ui_popup_menu(menu)

if result = "Exchange Rates" then
script_play("OpenWebBrowser")
else if result = "OpenBrowser2" then
script_play("OpenWebBrowser1")
else if result = ("Time") then
script_play("WebBrowser2")

end if

Thanks for your time
Regards
Andy

Al Buchholz wrote:
-------------------------------
Andy

Please include one of the scripts named WebBrowser or WebBrowser1 or WebBrowser2.

[Al Buchholz]

RE: Missing Code!

Let me know if there is anything else that we can help you with! ;-)

Glad that you found the problem. It's therapeutic to set up the question with the code for others. I've found many answers to problems just before pressing the send message button.

It's actually a lot easier (for the answerers) to send the database with the minimal amount of code needed and enough explanation so someone else can recreate the situation.