Hello everyone:

Here is the sum on creating a dialog designer extension.  I received several
sample scripts and methods and my final results can be located on ArcScripts
under "CRIME" in the search by keyword box.  The extension I built is called
Crime analysis tools version 2.0 and the zip file contains all the scripts I
used to make the extension work.  Hope someone else finds it useful.  Since
this is my first try at dialog designer, I would willingly accept criticism
from anyone with specific suggestions to improve the extension.

-----------------------------------
I sent this to another poster a couple months ago - these are the make,
install, and uninstall scripts for my extension "Automatic Tiled Layouts" (see
ArcScripts page).  You do not need to load Dialog Designer, just include the
dialogs
in your extension.make script.  The msgbox.banner could probably go at the
beginning of the install script, and a msgbox.info at the end.

Hope this gets you going in the right direction.
Dave MacEwan
New York State Dept of Transportation
Region 9 GIS Coordinator
Binghamton, NY

Dave's scripts were used to finish my project (are we ever finished?).  Great
help DAVE!

-----------------------
Hi,

1. Provide a banner that stays open for a few seconds before anything else
opens..the banner might be called by msgbox.banner command?
Yes, the syntax is MsgBox.Banner (anImageFileName, duration, title)
2. "AFTER" the banner disappears, a message box appears with general info about
the extension, etc. for the users.
Continue with a MsgBox.Info("Your information", "title") or if the text is
lengthy, MsgBox.Report("Your info", "title")
2. Dialog Designer extension is turned on for the user automatically (ergo,
turned off automatically when the extension is turned off)
This one I don't quite know...
3. A button is added to the GUI and a menu item may still be added (I think I
can do them just like I have already) But does Dialog Designer require
something else?
I don't think so.
4. With a click of the button, the dialog with all the click scripts is now
visible in the bottom left-hand side of the screen.
6. Can you add tool apply buttons to a dialog? or do they have to remain on the
tool GUI?
You can add tools to dialogs. However, I'm not sure how.
Cheers,
Lionel Davoust

---------------------------
Dear Bryan: Here is the code I use. I attach it to a button in the project GUI.
When I press the button, the window gets resized, my company banner pops up and
then I'm launched straight into an active view and theme. I've not yet removed
the buttons I don't want the novice user to access. So it still retains full AV
functionality. That will be my final step after I finish the rest of the
coding. > 'SADMS.Checkview > 'Script to check to see if required view and
themes are present > ' if not error messages are displayed. > 'Date: May 7,2001
> 'Author: RWP > > > av.SetName ("Smart Map Services") > av.ReSize(980,760) >
av.MoveTo(15,10) > > MsgBox.Banner("Smart Map Logo Version 2.bmp".AsFileName,
10,"SmartMap") > > > myView = av.GetProject.FindDoc("Start Map") >
myView.GetWin.Open > > theView = av.GetActiveDoc > > if((theView.IS(View).Not)
or (theView.GetName <> "Start Map"))then > msgBox.Warning("The Project View
Start Map is NOT Present- OPEN the View Start Map!","") > return nil > end > >
theMajor = theView.FindTheme("Major Grid") > if ((theMajor.IS(Theme).NOT) or
(theMajor.GetName <> "Major Grid"))then > msgBox.Warning("Missing Theme Major
Grid","") > return nil > end > > theMinor = theView.FindTheme("Minor Grid") >
if ((theMinor.IS(Theme).NOT) or (theMinor.GetName <> "Minor Grid"))then >
msgBox.Warning("Missing Theme Minor Grid","") > return nil > end > > theSites =
theView.FindTheme("Accidents.shp") > if ((theSites.IS(Theme).NOT) or
(theSites.GetName <> "Accidents.shp"))then > msgBox.Warning("Missing Theme
Accidents.shp","") > return nil > end > > theMap = theView.FindTheme("Trail
Map") > if ((theMap.IS(Theme).NOT) or (theMap.GetName <> "Trail Map"))then >
msgBox.Warning("Missing Theme Trail Map","") > return nil > end > > >
theMinor.GetFTab.SetDefinition("") > theMajor.GetFTab.SetDefinition("") >
theSites.GetFTab.SetDefinition("") > 'theMap.GetFTab.SetDefinition("") > >
theMinor.SetVisible(true) > theMajor.SetVisible(true) >
theSites.SetVisible(true) > 'theMap.SetVisible(true) > > theView.Invalidate
Good luck

Bob Plummer Smart Map Services Not Just Pretty Pictures

=====
Bryan Hill, Crime Analyst
ESRI Authorized Intro to ArcView GIS Instructor
Glendale PD 6835 N 57th Dr, Glendale, AZ 85301
(623) 930-3073 (effective July 2nd, 2001-until then
(602) 262-7318 Phoenix PD
Phoenix_Crime@Yahoo.com or bhill@ci.glendale.az.us
"Comments or opinions made by me, are solely my own and do not necessarilly represent the opinions of the LE agency I work for!"

__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail - only $35
a year!  http://personal.mail.yahoo.com/