Announcement

**Steve Workings** · 11-21-2009, 07:55 PM

Re: xdialog hyperlink

Building XDialog with html and a hyperlink isn't hard, so maybe I don't understand what you're looking for, but here's an html example:

Code:

'Create an XDialog dialog box to prompt for parameters.
DIM htxt as P
dim htxt.object as p 
dim htxt.class as c
htxt.class = "dhtmledit.dhtmledit"
DIM SHARED varC_result as C
DIM htxt_html as c 
htxt_html = <<%html%
<html>
<head>
<meta name="generator" content="Alpha Five HTML Editor">
<title></title>
<style>
<!--
p            { margin-top: 0; margin-bottom: 0 }
-->
</style>
</head>
<body>
Here is some html text. <br>
Here is a hyperlink to a page: <br>
<a href="http://msgboard.alphasoftware.com/alphaforum/index.php" >Alpha Software Message Board</a>
</body>
</html>%html%

'Force the background color of the html text to be Win3D so that it blends in with the Xdialog box.
dim win3dcolor as c 
win3dcolor = ui_color_format("win3d","#rhghbh")

htxt_html = a5_html_background(htxt_html,win3dcolor)
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_dlg_box("Alpha Five",<<%dlg%
{startup=init}
{region}
| {activex=60,7htxt?.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 
	a_dlg_button = ""
	htxt.object.browsemode = .t. 
	htxt.object.appearance = 0
	htxt.object.ScrollBars = .f.
	on error goto htxt_error
	htxt.object.documenthtml = htxt_html
	on error goto 0
	htxt.object.Refresh()
	a_dlg_button = ""

end if
end 

htxt_error:
ui_msg_box("Error","Invalid URL or HTML content.",UI_STOP_SYMBOL)
end
%code%)

**MikeC** · 11-21-2009, 08:03 PM

Re: xdialog hyperlink

Thanks Steve,
Seems like that is the problem....You have built the link into HTML which is a xdialog box unto itself. I have been able to bring up a box like what you produced FROM my current xdialog....but I want to have just the link inside of say the xdialog I gave as a sample. Or am I looking at this backward.....should I create the HTML xdialog and then add other my other "stuff" to it. :)

If I am missing something simple I will try to find it ....

**Steve Workings** · 11-21-2009, 08:10 PM

Re: xdialog hyperlink

You're saying you want an html control and other controls, right? See attached picture.

You know how to build the other controls.

When you build the html control, establish a variable in your XDialog definition, and designate that variable as HTML Text (near the bottom of the list) and then go define your html.

Is that what you want?

**MikeC** · 11-21-2009, 08:26 PM

Re: xdialog hyperlink

Yes, and remember trying just that but did not seem to get the correct result....then I never went back to the genie and have been trying to create it all "freehand". :) back to the genie it is! Thanks--will report back with results.

**Tim Kiebert** · 11-21-2009, 09:03 PM

Re: xdialog hyperlink

Not being all that familiar with html type stuff I took a slightly different approach and based this on the html form control rather than the activex control.

Code:

[COLOR="Blue"]DIM htext as p
DIM htext.html as c
DIM htext.events as c

htext.html = <<%html%
<a href=""  a5:onClick="mtm()">Send Mike an email</a>
%html%

htext.events = <<%code%
function mtm as v ()
    email_client_auto("[email protected]")
end function
%code%
[/COLOR]

DIM vText1 as C
DIM SHARED varC_result as C
vText1 = "I would like to have a link displayed that acts or IS a hyperlink that shows"
vText1 =vText1 + " a \"hand\" just as seen anytime your cursor hovers over a link."+crlf(2)
vText1 =vText1 + "Whether this is done as I have it here with a hotspot button (NEED a HAND cursor and a flyover text change!) or with "
vText1 =vText1 + "HTML embedded that will automatically create the hyperlink (With Hand cursor) matters not!"+crlf(2)
vText1 =vText1 + "I made this a modeless dialog simply so that the email client, once accessed, can be edited."
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_modeless_dlg_box("Alpha Five",<<%dlg%
{region}
|{text=60,12:vText1};
{endregion};
{line=1,0};
{region}
[COLOR="Blue"]{HTMLForm=40,4htext};[/COLOR]
{lf=5}
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%,<<%code%
if a_dlg_button = "OK"
    ui_modeless_dlg_close("Alpha Five")
  elseif a_dlg_button = "Cancel"
    ui_modeless_dlg_close("Alpha Five")
end if
%code%)

**MikeC** · 11-21-2009, 09:20 PM

Re: xdialog hyperlink

Thanks Steve. One of the hurdles was to have it blend in with the rest of the gradient xdialog box which until now I couldn't do---but using the genie led me to the solution.

Modifying the following is easy once known how! All that is needed is to use the actual name of the color used (standard or custom) and only change that--so in the following I just changed Win3d to Light Tan....all there was to it.

Code:

'Force the background color of the html text to be Win3D so that it blends in with the Xdialog box.
dim win3dcolor as c 
win3dcolor = ui_color_format("Light Tan","#rhghbh")
vHtml_html = a5_html_background(vHtml_html,win3dcolor)

A few more tweaks should now finish what I need--trying to have almost no gap between my image and this html and change font and such.

Thanks again Steve--just needed the nudge.

**MikeC** · 11-21-2009, 09:24 PM

Re: xdialog hyperlink

Just saw your addition Tim....studying it now---seems much simpler.

EDIT LATER: seemed simpler but actually almost the same as still have to add the parameters necessary to have it blend in and also to eliminate the scroll bars just like Steve's solution has....so actually a tossup as it appears to be the same way to do it, just approaching it from different ways.

Still do appreciate your time Tim (as I always do!! Still waiting for you to come over here so you can collect your dues from me!)

**Tim Kiebert** · 11-21-2009, 11:09 PM

Re: xdialog hyperlink

No html needed

Code:

DIM vText1 as C
DIM SHARED varC_result as C
vText1 = "I would like to have a link displayed that acts or IS a hyperlink that shows"
vText1 =vText1 + " a \"hand\" just as seen anytime your cursor hovers over a link."+crlf(2)
vText1 =vText1 + "Whether this is done as I have it here with a hotspot button (NEED a HAND cursor and a flyover text change!) or with "
vText1 =vText1 + "HTML embedded that will automatically create the hyperlink (With Hand cursor) matters not!"+crlf(2)
vText1 =vText1 + "I made this a modeless dialog simply so that the email client, once accessed, can be edited."
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_modeless_dlg_box("Alpha Five",<<%dlg%
{region}
|{text=60,12:vText1};
{endregion};
{line=1,0};
[COLOR=Blue]{cursor=$sys_cursor_hand}
<%B=N;O={c=Blue}{F=Ariel,10,u} Send Mike an email; OF={c=Red} {F=Ariel,10,u}Send Mike an email%!sendmail>;
{cursor=};[/COLOR]
{lf=5};
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%,<<%code%
if a_dlg_button = "OK"
    ui_modeless_dlg_close("Alpha Five")
  elseif a_dlg_button = "Cancel"
    ui_modeless_dlg_close("Alpha Five")
end if

if a_dlg_button = "sendmail"
    email_client_auto("[email protected]")
    a_dlg_button = ""
end if
%code%)

**Peter.Wayne** · 11-21-2009, 11:34 PM

Re: xdialog hyperlink

What's the matter with using the {hyperlink} control in Xdialog?

That is,

{[email protected]!hide_button_click}

works for me. It even gives me the "hand" when the mouse is hovering over it.

Code:

DIM vText1 as C
DIM SHARED varC_result as C
vText1 = "I would like to have a link displayed that acts or IS a hyperlink that shows"
vText1 =vText1 + " a \"hand\" just as seen anytime your cursor hovers over a link."+crlf(2)
vText1 =vText1 + "Whether this is done as I have it here with a hotspot button (NEED a HAND cursor and a flyover text change!) or with "
vText1 =vText1 + "HTML embedded that will automatically create the hyperlink (With Hand cursor) matters not!"+crlf(2)
vText1 =vText1 + "I made this a modeless dialog simply so that the email client, once accessed, can be edited."
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_modeless_dlg_box("Alpha Five",<<%dlg%
{region}
|{text=60,12:vText1};
{endregion};
{line=1,0};
{region}
{region}
{color=Blue}
{sp=20}{[email protected]!hide_button_click}
{endregion}
{color=black}
{lf=5}
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%,<<%code%
if a_dlg_button = "OK"
    ui_modeless_dlg_close("Alpha Five")
  elseif a_dlg_button = "Cancel"
    ui_modeless_dlg_close("Alpha Five")
end if

if a_dlg_button = "hide_button_click"
    email_client_auto("[email protected]")
    a_dlg_button = ""
end if
%code%)

**MikeC** · 11-21-2009, 11:48 PM

Re: xdialog hyperlink

This last solution works the best as it can be aligned easily directly below an image with no space--the html seems to have a certain amount of space around it that I cannot get rid of.

Thanks yet again guys!!

**MikeC** · 11-21-2009, 11:55 PM

Re: xdialog hyperlink

wow! From multi- to a 3 liner to a one liner now!!---like most things I have found, knowing what functions Alpha has is perhaps the hardest part of developing....once known it is all relatively easy!!

Thanks Peter!!

**facklera** · 11-26-2009, 02:57 AM

Re: xdialog hyperlink

How do you add a hyperlink for existing file or webpage on excel spreadsheet? When i add the hyperlink to the spreadsheet and attach a document from my desktop, it works ok but if you save it and then try it, it doesn't work? i tried sending it to a friend but when they open it, it says "Cannot open the specidied file?"

Announcement

The Alpha Software Forum Participation Guidelines

xdialog hyperlink

xdialog hyperlink

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment