Hi Everyone... Still trying to enhance my application and while researchin from the internet, i came accross this site that teaches how to enhance messagebox command thru the use of xmsg71.FLL file... i've used it and saw the extended capability of the messagebox, but while testing it, everytime i edit or save it always says invalid path... so i need to close foxpro and reopen the file for me to save other edition... i noticed that everytime i run the program and try to edit again it always says invalid path... Please help me be enlightened with this error... Thanks and God bless...
heres the code ive gotten from the internet...
*MEESAGEBOX ESPECIAL
*-------------------
SET LIBRARY TO xmsg71
**If This.Value=0
** * turn extended dialog off
** xmsg_SetDlgMonitor(.F.)
**ELSE
* Set dialog font and color
xmsg_AssignMessageFont('Times',16,.T.)
xmsg_AssignMessageFontColor(RGB(0,74,128))
* set dialog background color
xmsg_EnableUdfBackColors(.T.)
xmsg_LoadBackcolorFromSolidColor(1,RGB(210,235,253))
xmsg_LoadBackcolorFromSolidColor(2,RGB(107,174,221))
* set dialog icon
xmsg_EnableUdfIcons(.T.)
xmsg_LoadIconFromResourceFile(0x80, _vfp.ServerName, 0) &&UDF
* set button caption
xmsg_EnableUdfButtonCaptions(.T.)
xmsg_AssignButtonCaption(1, 'Agree?')
xmsg_AssignButtonFont(1, 'Arial',11)
* limit the width of the dialog
xmsg_AssignDlgMaxSize(400)
* turn extended dialog on
xmsg_SetDlgMonitor(.T.)
**ENDIF
=MESSAGEBOX('A picture is worth a thousand words...',;
64, 'MessageBox Dialog')
xmsg_SetDlgMonitor(.F.)
heres the code ive gotten from the internet...
*MEESAGEBOX ESPECIAL
*-------------------
SET LIBRARY TO xmsg71
**If This.Value=0
** * turn extended dialog off
** xmsg_SetDlgMonitor(.F.)
**ELSE
* Set dialog font and color
xmsg_AssignMessageFont('Times',16,.T.)
xmsg_AssignMessageFontColor(RGB(0,74,128))
* set dialog background color
xmsg_EnableUdfBackColors(.T.)
xmsg_LoadBackcolorFromSolidColor(1,RGB(210,235,253))
xmsg_LoadBackcolorFromSolidColor(2,RGB(107,174,221))
* set dialog icon
xmsg_EnableUdfIcons(.T.)
xmsg_LoadIconFromResourceFile(0x80, _vfp.ServerName, 0) &&UDF
* set button caption
xmsg_EnableUdfButtonCaptions(.T.)
xmsg_AssignButtonCaption(1, 'Agree?')
xmsg_AssignButtonFont(1, 'Arial',11)
* limit the width of the dialog
xmsg_AssignDlgMaxSize(400)
* turn extended dialog on
xmsg_SetDlgMonitor(.T.)
**ENDIF
=MESSAGEBOX('A picture is worth a thousand words...',;
64, 'MessageBox Dialog')
xmsg_SetDlgMonitor(.F.)