HTMLText Window

HTML Text Window

The HTML Text window allows you to view and interact with an HTML page, but does not include full browser controls. The use of the dhtmledit.dhtmledit ActiveX control allows you to control the text that appears in the page. Refer to {ACTIVEX} and Display an Xdialog Box for more information.

This approach to displaying HTML is more powerful but more difficult to use than the Web Browser Window.

dim edit as P

dim edit.object as P

dim edit.class as C

dim edit.events as C

dim shared varC_result as C

dim edit_html as C

edit.class = "dhtmledit.dhtmledit"

edit.events = <<%code%

...

%code%

edit_html = "http://www.alphasoftware.com"

ok_button_label = "&OK"

cancel_button_label = "&Cancel"

varC_result = ui_dlg_box("Browser Window",<<%dlg%

{startup=init}

{region}

| {activex=100,25edit?.f.};

{endregion};

{line=1,0};

{region}

<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>

{endregion};

%dlg%,<<%code%

if a_dlg_button = "init" then

edit.object.browsemode = .t.

edit.object.appearance = 0

edit.object.ScrollBars = .t.

on error goto edit_error

edit.object.LoadURL(edit_html)

on error goto 0

edit.object.Refresh()

a_dlg_button = ""

end if

end

edit_error:

ui_msg_box("Error","Invalid URL or HTML content.",UI_STOP_SYMBOL)

end

%code%)