UI_dlg min, max from Selwyn I can't get to work

[Richbeach]

I have an app with several UIs that provide quick help to the user. I'm trying to incorporate Selwyn's min/max code and simply cannot get it to work. I've tried several variations attempting to mimic Selwyn's as closely as possible but no luck. Anyone have any ideas?



'This script briefly explains how to use Bing Maps and has button referral to Bing website for extensive help

ui_dlg_box("Quick Help Using Bing Maps",<<%dlg%
{toolcaption};
<%B=N;I=$$window.button.minimize%!minimize><%B=N;I=$$window.button.close%!close>;
{position=7N,2M}
{lf};
{'%O={F=Arial,9,B}{B}{C=Dark Blue} {I:'$$large.generic.people'} Using Bing Maps to Locate Instructors%?.T.};
{lf};
{wrap=70}
{font=Arial,9,n,}
{'Instructor location information is automatically placed in the Bing map search so when you come to this screen a quick glance is provided.}
{lf};
{lf};
{'If you are using a desktop PC you can copy the location address here then go to the Bing Website Help. From the "Explore venue maps" sample click on the link "Baltimore Washington International (BWI)" and then paste the address into the Search window. This will give you a full screen image of the location.}
{lf};
{lf};
{font=Arial,8,b,}
If you need help on Bing Maps click below:
{lf};
{line=1,0};
<*10&Close!OK> <*22&Bing Website Help>
%dlg%,<<%code%

'Displays Bing Map Help if selected

IF a_dlg_button="&Bing Website Help"
a_dlg_button=""
sys_open("http://onlinehelp.microsoft.com/en-us/bing/jj574283.aspx")
ELSE a_dlg_button="OK"
a_dlg_button="OK"
END IF
%code%)

Thanks for looking.

Rich

[Richbeach]

Re: UI_dlg min, max from Selwyn I can't get to work

This cuts and pastes pretty sloppy. I apologize, there should be spacing in the script but when I pasted it here they did not come through. The X (exit) works but the minimize does not.

Thanks again,

Rich

[DaveM]

Re: UI_dlg min, max from Selwyn I can't get to work

Use the code button
You will have to go advanced to see it maybe looks like "#"

[Richbeach]

Re: UI_dlg min, max from Selwyn I can't get to work

Works very nicely. Seems like with AS I never stop learning. Thank you Dave.

'This script briefly explains how to use Bing Maps and has button referral to Bing website for extensive help

ui_dlg_box("Quick Help Using Bing Maps",<<%dlg%
{toolcaption};
                           <%B=N;I=$$window.button.minimize%!minimize><%B=N;I=$$window.button.close%!close>;
{position=7N,2M}
{lf};
{'%O={F=Arial,9,B}{B}{C=Dark Blue}                     {I:'$$large.generic.people'}  Using Bing Maps to Locate Instructors%?.T.};
{lf};
{wrap=70}
{font=Arial,9,n,}
 {'Instructor location information is automatically placed in the Bing map search so when you come to this screen a quick glance is provided.}
{lf};
{lf};
 {'If you are using a desktop PC you can copy the location address here then go to the Bing Website Help. From the "Explore venue maps" sample click on the link "Baltimore Washington International (BWI)" and then paste the address into the Search window. This will give you a full screen image of the location.}
{lf};
{lf};
{font=Arial,8,b,}
     If you need help on Bing Maps click below:
{lf};
{line=1,0};
   <*10&Close!OK>  <*22&Bing Website Help>
%dlg%,<<%code%

'Displays Bing Map Help if selected

IF a_dlg_button="&Bing Website Help"
	a_dlg_button=""
   sys_open("http://onlinehelp.microsoft.com/en-us/bing/jj574283.aspx")
ELSE a_dlg_button="OK"
	a_dlg_button="OK"
END IF
%code%)

[Richbeach]

Re: UI_dlg min, max from Selwyn I can't get to work

I finally got a shell ui_dlg that would work. Plugged in some code and it was even fun playing with. This will stay minimized, at the bottom of the screen, and you can literally go any where in the app and then pop it up. This I think is cool. Still some caveats that require more playing with. Hope someone will find it useful.

Rich

dim xDlgHeader as p
dim dlg_title as c 
dim dlg_body as c 
dim dlg_event as c
 xDlgHeader.HeadingText = ""
 xDlgHeader.Image = ""
 xDlgHeader.BodyText = <<%str%
xxxxxxxxx         
%str%
dlg_title = "Hiding or Unhiding Message"
dlg_body = <<%dlg%
'If you include the {removecomments} command, any line that starts with an single quote will be treated as a comment.
'--------------between allows comments and removes red X on both dlg boxes
{justify=right}
<%B=N;I=$$window.button.minimize%!minimize><%B=N;I=$$window.button.close%!close>;
{removecomments}
{toolcaption}
{background=white}
'{can_exit=close}
{startup=init}
'--If {stretch=} commented out will not have big red X but will lose control of size when minimized and dlg title
'--Two buttons, minimize and close will work
{stretch=}
{stickto=top,right}
{justify=center}
{XdialogTitleSection=,10xDlgHeader}
{lf};
{font=Arial,9,b,}
 {'Show Reassigning Instructor to Student Message.     }
{font=Arial,9,n,}
{wrap=50}
{lf};
{lf};
  {'Check the box if you want to see the message again or uncheck it if you do not want to see the message.}
{lf};
;
{lf};
 {'%O={F=Arial,10,n}{B=Blue White,Yellow,Win3D}{C=Dark Blue}If this is highlighted you will see the message%?flag_instr_to_stud};
 {'%O={F=Arial,10,n}{B=Blue White,Yellow,Win3D}{C=Dark Blue}each time you make a reassignment%?flag_instr_to_stud};
{lf};
     (flag_instr_to_stud)  Check box to see the message;
{lf};
{justify=left}
 <*10&Close!OK>
{lf};
{lf};
%dlg%
dlg_event = <<%code%
 if a_dlg_button = "init" then
     a_dlg_button = ""
 end if
if a_dlg_button = "OK" then 
 ui_modeless_dlg_close("Hiding or Unhiding Message")
end if
if a_dlg_button = "minimize" then
    a_dlg_button = ""
    ui_dlg_minimize(dlg_title)
end if 
%code%

'Now, display the Xdialog.
ui_modeless_dlg_box(dlg_title,dlg_body,dlg_event)