Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Field Field Name Type Width Dec Index Collate Nulls
1 NAME Character 10 No
2 BINARY Memo (binary) 4 No
APPEND BLANK
REPLACE NAME WITH "WORDS1", BINARY WITH FILETOSTR("C:\DEV\MYPROJECT\WORDS1.DBF")
FUNCTION MYFILE
PARAMETER m.FILENAME
PRIVATE m.FILENAME,m.FLG
M.FLG = .F.
IF !EMPTY(m.FILENAME)
IF ADIR(TMPDIRFILES,m.FILENAME) > 0
M.FLG = .T.
ENDIF
ENDIF
RETURN(m.FLG)
public m.DOCLOCATION,m.CCAPTION
m.DOCLOCATION = "P:\PROJECTLIST\"
m.CCAPTION = ""
IF !MYFILE(m.DOCLOCATION+"WORDS1.DBF")
SELECT 0
USE ("C:\DEV\MYPROJECT\BINARIES")
LOCATE FOR BINARIES.NAME = "WORDS1"
STRTOFILE(BINARIES.BINARY,m.DOCLOCATION+"WORDS1.DBF")
USE
USE (m.DOCLOCATION+"WORDS1.DBF") EXCLUSIVE
DELETE TAG ALL
INDEX ON WORD TAG TEXT
INDEX ON SOUNDEX(WORD) TAG SOUND
USE
ENDIF
IF !MYFILE(m.DOCLOCATION+"WORDS2.DBF")
SELECT 0
USE ("C:\DEV\MYPROJECT\BINARIES")
LOCATE FOR BINARIES.NAME = "WORDS2"
STRTOFILE(BINARIES.BINARY,m.DOCLOCATION+"WORDS2.DBF")
USE
USE (m.DOCLOCATION+"WORDS2.DBF") EXCLUSIVE
DELETE TAG ALL
INDEX ON WORD TAG TEXT
INDEX ON SOUNDEX(WORD) TAG SOUND
USE
ENDIF
IF !MYFILE(m.DOCLOCATION+"WORDS3.DBF")
SELECT 0
USE ("C:\DEV\MYPROJECT\BINARIES")
LOCATE FOR BINARIES.NAME = "WORDS3"
STRTOFILE(BINARIES.BINARY,m.DOCLOCATION+"WORDS3.DBF")
USE
USE (m.DOCLOCATION+"WORDS3.DBF") EXCLUSIVE
DELETE TAG ALL
INDEX ON WORD TAG TEXT
INDEX ON SOUNDEX(WORD) TAG SOUND
USE
ENDIF
IF !DIRECTORY(m.DOCLOCATION)
MD (m.DOCLOCATION)
ENDIF
fs_ad2_d.scx
fs_del.scx
fs_main.scx
fs_spell.prg
IF TYPE("M.cCaption") = "C"
THISFORM.CAPTION = m.CCAPTION
ENDIF
* Created dictionary indexes, if missing------------------------------------- *
* Open/select the dictionaries----------------------------------------------- *
IF USED("WORDS1") && If spelling dictionary #1 isn't open, then open it.
SELECT WORDS1
ELSE
SELECT 0
USE (m.DOCLOCATION+"WORDS1")
ENDIF
SET ORDER TO TAG TEXT
IF USED("WORDS2") && If spelling dictionary #2 isn't open, then open it.
SELECT WORDS2
ELSE
SELECT 0
USE (m.DOCLOCATION+"WORDS2")
ENDIF
SET ORDER TO TAG TEXT
IF USED("WORDS3") && If spelling dictionary #3 isn't open, then open it.
SELECT WORDS3
ELSE
SELECT 0
USE (m.DOCLOCATION+"WORDS3")
ENDIF
SET ORDER TO TAG TEXT
* --------------------------------------------------------------------------- *
* If checking a file, then open it------------------------------------------- *
* Created dictionary indexes, if missing------------------------------------- *
* If checking a file, then open it------------------------------------------- *
PRIVATE m.STRING
M.STRING = THISFORM.COMMENTS.VALUE
M.CCAPTION = "Checking Spelling in 'Comments'"
IF FS_SPELL("",@m.STRING,.T.)
IF m.STRING <> THISFORM.COMMENTS.VALUE
THISFORM.COMMENTS.VALUE = m.STRING
THISFORM.COMMENTS.SETFOCUS
ENDIF
ENDIF