s.Solution.init
-------------------------------------------------------------------------
#define POINT_LOC "."
#define SEP_LOC ","
#define DATE_LOC "AMERICAN"
#define CURRENCY_LOC "$"
*----------------------< c_solutions >-----------------------*
* This class is added to all forms in the Solutions
* sample suite.
*---------------------------------------------------------*
LOCAL lcDir, lcSamplePaths, lcHome
IF ATC("SOLUTIONS.",PROG(PROG(-1)-1))#0
THIS.lCalledBySolution = .T.
ENDIF
THISFORM.ShowTips = .T.
THISFORM.AutoCenter = This.CenterForm
IF THIS.FixedFormBorder
THISFORM.BorderStyle = 2 && Fixed Dialog
ENDIF
THIS.cOldPath = SET("PATH")
SET PATH TO
lcDir= THIS.GetDirectory() &&directory of sample
IF !EMPTY(HOME(2))
lcHome = HOME(2)
ELSE
lcHome = HOME()+"Samples\"
ENDIF
THIS.AddToPath(lcHome+"CLASSES")
THIS.AddToPath(lcHome+"SOLUTION")
THIS.AddToPath(lcDir)
THIS.cDirectory = SET("DEFAULT") + CURDIR()
IF THIS.AutoSETDEFAULT
SET DEFAULT TO (lcDir)
ENDIF
* Save old settings to be restored.
THIS.cPoint = SET("POINT")
THIS.cSep = SET("SEPARATOR")
THIS.cDate = SET("DATE")
THIS.cCurrency = SET("CURRENCY", 1)
THIS.cTalk = SET("TALK")
THIS.cDeleted = SET("DELETED")
SET POINT TO POINT_LOC
SET SEPARATOR TO SEP_LOC
SET DATE TO DATE_LOC
SET CURRENCY TO CURRENCY_LOC
SET DELETED ON && ignore records marked for deletion
SET TALK OFF
-------------------------------------------------------------------------
Download Program klik disini
