> Bill,
> Sorry to be late on this thread. I've been keeping track on
> it though and I'll give the "loop" and associated running
> problems a look this evening to see if I can sort anything out.
Thanks, Dave. I've made some changes to your code to accommodate this
customer's requirements that I wanted to feed back on. One change is a
"save map" button with the CLICK event code below.
Bill
* Purpose....: Save the current map as a BMP file in the customer
* database's folder. Assigns the map a unique filename
based on the
* customer record's matchcode and FILENO
**********************************************************************
LOCAL loTmp, chWnd, calias
PUBLIC cmapfile
calias = ALIAS()
&& save work area on entry
* Build a filename to store the map with; erase existing file of this
name if
* one exists (allow operator to replace maps after, say, zooming for
more detail)
cpath = JUSTPATH(DBF('custlist'))
cmapfile =
ADDBS(cpath)+TRIM(custlist.matchcode)+"_"+ALLTRIM(STR(custlist.fileno))+
"_map.bmp"
IF FILE(cmapfile)
SET SAFETY OFF
ERASE (cmapfile)
SET SAFETY ON
endif
* Hide the dashboard from the map
* Add a pushpin for customer's address; give it 2 seconds to complete
thisform.oMap_HTML.Dashboard_Hide.Click
thisform.oMap_HTML.cPushpin_Info.Value=ThisForm.txtPushpin_Info.Value
thisform.oMap_HTML.Add_Pin.Click
WAIT 'Adding pushpin' TIMEOUT 2
* Shrink the form to show only the map, and not the controls on the
form.
nsavewid = thisform.Width
&& save current form width
thisform.Width = thisform.olecontrol1.Width + 40 &&
shrink form width
* Save the Map using FoxForm.Form's SAVEASBMP method
chWnd = _vfp.activeform.hWnd
loTmp = go_objmgr.createobj("loTmp","FoxForm.Form") && same
as: loTmp = CREATEOBJECT("FoxForm.Form")
loTmp.SaveAsBMP(chWnd, cmapfile)
&& save the map
RELEASE loTmp
&& release foxform.form
loTmp = .null.
thisform.Width = nsavewid
&& restore form width
=MESSAGEBOX("Map has been saved as "+cmapfile,0,m_product)
IF !empty(calias)
SELECT (calias)
ENDIF
RELEASE cmapfile
RETURN
> Dave Crozier
_______________________________________________
Post Messages to: ProFox@leafe.com
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
