home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.alaska-software.com
/
2014.06.ftp.alaska-software.com.tar
/
ftp.alaska-software.com
/
acsn
/
RTF100.ZIP
/
Addon.prg
next >
Wrap
Text File
|
1999-12-15
|
833b
|
41 lines
* -----------------------------
* AddOn.prg
* -----------------------------
FUNCTION PC_GetSaveFile( cFile, lKeepPath )
LOCAL cCurDrive, cCurDir, oFileDlg
IF valtype( lKeepPath ) <> "L"
lKeepPath := .T.
ENDIF
cCurDrive := CurDrive()
cCurDir := CurDir( cCurDrive + ":" )
oFileDlg := XbpFileDialog():New()
oFileDlg:Create( AppDeskTop() )
cFile := oFileDlg:SaveAs( cFile )
oFileDlg:Destroy()
IF lKeepPath
CurDir( cCurDrive + ":\" + cCurDir )
ENDIF
RETURN (cFile)
FUNCTION PC_DotFile( cName, nSize )
LOCAL nLength
IF valtype( nSize ) <> "N"
nSize := 25
ENDIF
IF nSize < 10
nSize := 10
ENDIF
nLength := len( cName )
IF nLength > nSize
cName := "..." + substr( cName, nLength - 17 )
ENDIF
RETURN ( cName )