Tools

home *** CD-ROM | disk | FTP | other *** search

/ Tools / WinSN5.0Ver.iso / VFP50 / CONVERT.APP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1996-08-01 | 573.5 KB | 12,276 lines

SCREEN CONVERT pProgCallb The wrong parameters were passed to the converter. To convert files, open them from the File menu. 03.00.00.0424 You must be using FoxPro version 03.00.00.0424 or later to run converter. transprt The transporter program could not be found. Conversion cancelled. MasterConvert gOMasterb There was a problem starting the Converter. There was a problem starting the Converter. PFILENAME PFILETYPE PVERSION PPROGCALL GTRANSPORT GRETURNVAL GERROR GASHOWME GOPJX GOMASTER GOTHERM GICALLINGPROG LHADERROR DOCONVERT Conversion cancelled at user's request. m.err = .T. Fatal Error in Converter: C Error: Error Number: Method: Offending Code: File being processed: Not recorded DEFAvC Error DEFAvC Error The disk is full, and the converter cannot continue. The log file cannot be saved to disk. glogb THIS.formRefb THIS.projcallb An error occurred in the Converter and it cannot continue. The error has been logged in . Open the logfile? RETURN TO &cCallingProg ERRORNUM METHOD CERRMSG THIS LLOCALERR LHADLOCERR CCURRENTFILE LHADERROR CLOGFILE DEBUG FORMREF CLEANUP PROJCALL GOPJX GOTHERM GERROR GICALLINGPROG CCALLINGPROGK CFILENAME CACTION GLOGL Begin Conversion CFILENAME DTSTARTTIME WRITELOG End Conversion 01/01/95 12:00 Successful conversion took seconds. CFILENAME THIS DTENDTIME WRITELOG DTSTARTTIME CFILE SAVEAREA THIS LLOCALERR LHADLOCERR _temppct CSCXFILE APLATFORMS READABLE ISDBF _TEMPPCT DISTINCT PLATFORM WINDOWS WINDOWS IPLATFORM m.pFilenameb m.pFiletypeb Microsoft Visual FoxPro Converter Utility Version 5.00e (07/15/96)C- -- DEBUGGING ON foreign conprocs MACHINE SprTherm CvtAlert PFILENAME PFILETYPE PVERSION THIS LUSERCALL ACONVPARMS LHADERROR NCURRENTWORKAREA OLDDATA SPRTHERM CVTALERT NNEWWORKAREA ON ESCAPE &cOld SET ESCAPE &cOld SET COMPATIBLE &cOld SET EXCLUSIVE &cOld SET CLASS TO &cOld FOREIGNC PROCEDUREv foreign CONPROCSC PROCEDUREv conprocs SET TRBETWEEN &cOld SET FULLPATH &cOld SET UDFPARMS TO &cOld SET DEVELOPMENT &cOld SET DEBUG &cOld SET EXACT &cOld SET KEYCOMP TO &cOld SET CPDIALOG &cOld SET PATH TO &cOld SET LIBRARY TO &cOld ON ERROR &cOld OLDSAFE OLDNOTIFY OLDMESS OLDTALK OLDMEMOWID OLDONESCAPE OLDESCAPE OLDCOMPAT OLDEXCLUS OLDBLOCK OLDCOLLATE OLDCLASS OLDDEFAULT FOREIGN CONPROCS OLDTRBE OLDFULLPATH OLDUDFPARM OLDDEVO OLDDEBUG OLDEXACT OLDKEYCOMP OLDCPDIALOG OLDPOINT OLDSEP OLDPATH OLDLIBR OLDERROR OLDDATA NCURRENTWORKAREA SCREEN cvtdlog30scx Select the file or directory to update. thermometer Converting screen CCC SCREEN cvtalert30scx Do you want to convert the screen CC to Visual FoxPro 5.0 format? thermometer Converting screen CCC oConvObjectb SCREEN WINDOWS cvtalertscx Do you want to convert the screen CC to Visual FoxPro 5.0 format? thermometer Converting screen CCC oConvObjectb Converting screens... PROJECT CATALOG (and all of the forms and reports within it) to Visual FoxPro 5.0 format? PROJECT project cvtalertpjx3 to Visual FoxPro 5.0 format? PROJECT project cvtalertpjx CATALOG catalog cvtalertpjx CATALOG DBASE catalog cvtalertcat Do you want to convert the therm2 Converting project CCC oConvObjectb Converting project... REPORT cvtalertfrx Do you want to convert the CCC label report 6 to Visual FoxPro 5.0 format? thermometer Converting screen CCC oConvObjectb Converting other files... LABEL DB4QUERY DB4FORM DB4REPORT DB4LABEL FORMAT thermometer Converting format file CCC oConvObjectb FB+FRX G_PLATFORMS APARMS OCONVOBJECT CCONVTYPE ACONVPARMS IFILEDIR CFILE LRECURSE GETOPTS GOTHERM PARTIALFNAME UPDATE UPDATESCX SCX30CONVERTERCLASS LHADERROR GRETURNVAL CONVERTER APLATFORMS GETPLATFORMCOUNT KPLAT SCXCONVERTERCLASS JUSTSTEM JUSTEXT LHANDLED THECLASS CFILETYPE LMAKEBACKDIR COBJNAME CCVTMSG CFILENAME PJXCONVERTERCLASS FPCCONVERTERCLASS DB4CATCONVERTERCLASS PFILENAME FRXCONVERTERCLASS LCONVERTED CFRX2FILES FMTCONVERTERCLASS0 oAlert.chkBothPlatb oAlert.chkSet30Defb OBJNAME OALERT CBACKDIR CLOGFILE CCODEFILE LDEVMODE LBACKUP NOPTDEV IPLATFORMCOUNT IBOTHPLAT ADDBS JUSTPATH ACONVPARMS CHKBOTHPLAT ENABLED CHKSET30DEF SHOWN Microsoft Visual FoxPro Converter Utility Version 5.00e (07/15/96) WZPDATE WZPTIME PSTRING BackColor BackStyle BorderWidth FontBold m.fp25fldb ForeColor BackColor FillColor DisabledForeColor DisabledBackColor ItemForeColor ItemBackColor DisabledItemForeColor DisabledItemBackColor SelectedItemBackColor BorderColor Picture FontName ControlSource Alias Order ChildAlias ChildOrder ParentAlias RelationalExpr InitialSelectedAlias WindowList CursorSource Caption Value Caption m.fp25fldb m.fp25fldb m.fp25fldb m.fp30parentb WARNING Expression too long at Record # CCCOZ oForm.cCurrentFileb WARNING Expression too long at Record # CCCOZ The expression was not converted. See the log file for details. WARNING Expression too long at Record # CCCOZ The expression was not converted. See the log file for details. FP30PROP FP25FLD FP30PARENT THIS ISDEFAULT ADDQUOTES WRITELOG OFORM CCURRENTFILE FP3PROPK m.cValueb m.cValueb BackColor BackStyle BorderWidth FontBold CPROP CVALUE FP3PROP SYS(16C SYS(16 _SYS(16 sys(16 _sys(16 Sys(16 _Sys(16 RETURN #REGI temp4a---a #REGI temp4aa ReadValid Valid ErrorMessage Message ReadActivate ReadDeactivate ReadShow ReadWhen ERROR ReadShow Valid PROCEDURE ENDPROC NEWMETHOD FP25FLD CTYPE NEWPROP SAVEAREA GENDIR NEWMETHOD2 GENDIRCOUNT ADDPROP _FOX3SPR TEMP1 TEMP4 CLEANWHITE FINDARRY MEMOFIND NLINE C25ALIAS EXTRACTPROCS SPRMEMO TEMP3 IFUNC IPROC FP3METHOD temp4a- temp4aa DECLC temp4a- temp4aa DIMEC NSIO NSION NARRYCT CARRYNAME NARRYLEN IPLACE CTEMP MEMOFIND TEMP1 A_DIMESC File ` could not be opened. It was not converted. Cannot open File is already open. File ` is read-only. It was not converted. is read-only. It was not converted. Invalid file format. File could not be opened. It was not converted. File ` not found. It was not converted. File not found. It was not converted. CFILE CTHISALIAS READABLE WRITELOG JUSTFNAME LHADERROR PREADONLY ISDBFR label textbox editbox shape commandgroup commandgroup commandgroup image optionbutton optiongroup checkbox combobox spinner oleboundcontrol listbox dataenvironment cursor relation formset pageframe CCLASSTYPEH Called Converter function that wasn't overridden! exists. Overwrite it? CFILENAME NRESULT JUSTFNAME CTMPFILE FORCEEXT IBUFFER CTMPPJXNAME ADDBS JUSTPATH PJXNAME TIMESTAMP OUTFILE HOMEDIR EXCLUDE MAINPROG SAVECODE DEBUG ENCRYPT NOLOGO CMNTSTYLE OBJREV DEVINFO SYMBOLS OBJECT CKVAL OSTYPE OSCREATOR COMMENTS RESERVED1 RESERVED2 SCCDATA LOCAL NEW30ALIAS JUSTFNAME NTIMESTAMP LSAVECODE LDEBUG LENCRYPT CDEVINFO P30TO40 LDEVMODE NEW30ALIAS NAME TIMESTAMP EXCLUDE MAINPROG CSTUBFILE NTIMESTAMP LEXCLUDE LISMAIN JUSTSTEM COUTFILE userb *- end of log PJX25ALIAS NEW30ALIAS CLOGFILEh PATHv cFName = ALLTRIM(IIF(AT(CHR(0),&cField) > 0,LEFT(&cField,AT(CHR(0),&cField)-1),&cField)) File C not found. It was not converted. cvtLocate The file C could not be found. Would you like to try and locate the file? Locate file: File C not found. It was not converted. REPLACE &cField WITH m.cTmpFname SET PATH TO &cNewPath SET PATH TO &cOldPath Backing up project files... SELECT &cField, type FROM DBF(THIS.pjx25Alias) WHERE type $ m.cType AND !DELETED() INTO ARRAY tmparr CCCCC Could not locate file listed in C . Not backed up. Some files are missing or could not be located. They will not be converted. Continue? CFIELD CTYPE CDESC CBACKNAME CTMPFNAME CTMPFNAMEOLD LNOFINDS SAVEAREA CCURDIR COLDPATH CNEWPATH CTHISPATH CFNAME PJX25ALIAS CBACKDIR JUSTFNAME CCURRENTFILE LBACKUP FORCEEXT CMEMOEXT CHOMEDIR WRITELOG OLOCATE SHOW LLOCALERR JUSTEXT LHADERROR JUSTPATH GOTHERM UPDATE2 TMPARR GOMASTER PATHv CLASS Compiling. The file could not be compiled. Check the .ERR file for details and compile manually. The file C could not be compiled. Check the .ERR file for details and compile manually. CFILE LIS30FILE CPATH CERRFILE WRITELOG NEW30ALIAS JUSTPATH PJXNAME CHOMEDIR READABLE ISDBF LLOCALERR ADDBS JUSTSTEM LHADLOCERRD Compiling. CFILE NEW30ALIAS CHOMEDIR READABLE ISDBF OBJTYPE PLATFORM COMPILEFRX WRITELOG DATABASEv OBJECTNAME Compiling. SET DATABASE TO &cOldDataBase CFILE LIS30FILE LOPENSHARED COLDDATABASE WRITELOG NEW30ALIAS CHOMEDIR READABLE ISDBF JUSTSTEM DO EscHandler Conversion Log for Converter: Microsoft Visual FoxPro Converter Utility Version 5.00e (07/15/96) Invalid Project file selected. s|R|B|V|K project _FOX3PJX _FOX3PJX Converting screens... APARMS TMPARR CTMPPJXNAME SETID GOPJX AMASTERPARMS NTIMESTAMP TSTAMP PJXNAME CBACKDIR LDEVMODE CCODEFILE CLOGFILE LBACKUP IPLATFORMCOUNT CCURRENTFILE CMEMOEXT WRITELOG ADDBS JUSTPATH FORCEEXT PJX25ALIAS OPENFILE LHADERROR GOTHERM VISIBLE LSET30DEFAULTS CONV20PJX LDEBUG DEBUG LENCRYPT ENCRYPT CDEVINFO DEVINFO HIGHSCXID CHOMEDIR NSCREENSETS NSCREENCTR BACKFILES GOMASTER CLEANUP _FOX3PJX SPRMEMO UPDATE2 EXACTv transdlg LBT66 CCCCC SET EXACT &cOldExact CPJXNAME CBACKNAME CTMPFNAME NTABLES COLDEXACT TRANSDLG PJX25ALIAS TMPARR NEW30ALIAS CHOMEDIR JUSTEXT JUSTFNAME FORCEEXT LBACKUP CBACKDIR PJXNAME WINDOWS oFormb File already converted . SPR file created. Converting other files... CCCCC File C not found. It was not converted. File C not found. It was not converted. oFormb .name .name .mainprog .type .timestamp .homedir .exclude CCCCC File not found. It was not converted. oFormb File already converted .name .mainprog .type .timestamp .homedir .exclude .name File is already in this project. It was not converted or added to the project. .name .mainprog .type .timestamp .homedir .exclude No conversion necessary. .name .name .mainprog .type .timestamp .homedir .exclude No conversion necessary. OFORM CSAVEAREA IWHICHPLAT CEXT1 CEXT2 APLATFORMS PJX25ALIAS NRECCOUNT NTMPCOUNT PREFORM CREATEPJX HIGHSCXID LISMAIN GETNEXTFSET COUTFILE EXTPROJ APARMS IPLATFORMCOUNT GETPLATFORMCOUNT A_S3FILES GETPLATFORM SCXCONVERTERCLASS LHADERROR C25ALIAS LCONVERTED CONVERTER SETID TYPE CSTUBFILE OUTFILE CHOMEDIR ISDIR JUSTPATH ADDBS JUSTFNAME WRITELOG A_S2FILES FORCEEXT INSERTSCX NSCREENCTR GOTHERM UPDATE2 LSET30DEFAULTS JUSTEXT LBACKUP CBACKDIR SCX30CONVERTERCLASS OCONVFORM NEW30ALIAS MAINPROG TIMESTAMP HOMEDIR EXCLUDE JUSTSTEM P30TO40 CFRXEXT CFRTEXT F2FILES F3FILES FRXCONVERTERCLASS TSTAMP COMPILEALLSCX COMPILEALLFRX COMPILEALLDBC CLOSEPJX COMPLETE2 GOPJX CCURRENTFILE .Comments .Comments .User .User NEW30ALIAS PJX25ALIAS COMMENTS LNOADDSPR CFILENAME COUTFILE NEW30ALIAS NAME TIMESTAMP EXCLUDE NTIMESTAMP LEXCLUDE JUSTFNAME IPLATFORMCOUNT APARMS JUSTSTEM JUSTEXT PJXCONVERTERBASE INSERTSCX\ Transporting project CC UDFPv SET UDFP TO &oldudfp Converting project... Converting project CC OLDUDFP GOTHERM SETTITLE2 PARTIALFNAME CCURRENTFILE GTRANSPORT PJXNAME GASHOWME PJX25ALIAS OPENFILE LHADERRORQ _FOX3PJX CTMPFNAME CCURRENTFILE CHOMEDIR CBACKNAME CBACKDIR JUSTFNAME LDEVMODE _FOX3PJX SPRMEMO CCODEFILE NEW30ALIAS MAINPROG TYPE TIMESTAMP HOMEDIR EXCLUDE NTIMESTAMP JUSTSTEM CLOSEFILES PJXNAME FORCEEXT CMEMOEXT ADDBS JUSTPATH@ CCCCC File C not found. It was not converted. PSETID TMPARR CURSCXID PJX25ALIAS ARRANGED EXCLUDE SETID SCRNORDER COUTFILE A_S2FILES A_S3FILES LEXCLUDE CHOMEDIR JUSTFNAME LBACKUP CBACKDIR FORCEEXT WRITELOG CSTUBFILE OUTFILE ISDIR JUSTPATH ADDBS LISMAIN MAINPROG A_PJXSETS OPENFILES CLOSEFILES DEFWINDS RELWINDS ASSOCWINDS MODAL NOLOGO READCYCLE NOLOCK MULTREADS GOTHERM UPDATE2 NSCREENCTR NSCREENSETS DO EscHandler Conversion Log for Converter: Microsoft Visual FoxPro Converter Utility Version 5.00e (07/15/96) FOX_FILE Invalid Catalog file selected. Converting catalog... scx|frx|lbx catalog Converting catalog... APARMS TMPARR GOPJX ISPROJ NTIMESTAMP TSTAMP PJXNAME PJXVERSION CBACKDIR LDEVMODE CCODEFILE CLOGFILE LBACKUP IPLATFORMCOUNT CCURRENTFILE CMEMOEXT WRITELOG CTMPPJXNAME ADDBS JUSTPATH FORCEEXT PJX25ALIAS OPENFILE LHADERROR NSCREENSETS CURSCXID GOTHERM UPDATE2 VISIBLE CHOMEDIR BACKFILES GOMASTER CLEANUP .path Converted.C Converting screens... SCREEN WINDOWS oConvObjectb Not converted. File already converted . SPR file created. Converting other files... REPORT oFormb File already converted .File_name .type .path .Title .path .path .type x666666 .Title No conversion necessary. OFORM CTMPFILE G_PLATFORMS APARMS OCONVOBJECT IWHICHPLAT APLATFORMS PJX25ALIAS PREFORM CREATEPJX WRITELOG CURSCXID NSCREENSETS GOTHERM UPDATE2 PJXVERSION LDEVMODE CCODEFILE CLOGFILE IPLATFORMCOUNT CSTUBFILE FORCEEXT COUTFILE GETPLATFORMCOUNT GETPLATFORM SCXCONVERTERCLASS LHADERROR LCONVERTED CONVERTER C25ALIAS ENDLOG INSERTSCX F3FILES F2FILES LBACKUP CBACKDIR JUSTFNAME FRXCONVERTERCLASS NEW30ALIAS MAINPROG TIMESTAMP HOMEDIR EXCLUDE COMMENTS NTIMESTAMP JUSTPATH JUSTSTEM CTYPE COMPILEALLSCX COMPILEALLFRX CLOSEPJX COMPLETE2 GOPJX CFULL30PJXNAME .Title .Title CFILENAME COUTFILE NEW30ALIAS NAME TIMESTAMP EXCLUDE COMMENTS NTIMESTAMP LEXCLUDE JUSTSTEM IPLATFORMCOUNT APARMS JUSTEXT PJXCONVERTERBASE INSERTSCX LBT66 CCCCC PJX25ALIAS FILE_NAME TMPARR NTABLES CTMPFNAME JUSTEXT JUSTFNAME FORCEEXT LBACKUP CHOMEDIR CBACKDIR PJXNAME CTMPFNAME CCURRENTFILE CHOMEDIR CLOSEFILES CFULL30PJXNAME FORCEEXT PJXNAME CMEMOEXT LBACKUP ADDBS JUSTPATH NEW30ALIASg WINDOWS Converting screen CC (Macintosh version) File ` is read-only. It was not converted. PLATFORM OBJTYPE CLASS Screen file is an unknown format.` It was not converted. _FOX3SPR _FOX3SPR PROCEDURE *---------------------------------------------- *- Code from *---------------------------------------------- _FOX3PJX APARMS LBACKUP LPROJCALL LFORCETRANSPORTDLOG LNOCOMPILE IMAXTHISTIME IMAXOTHERTIME THIS OCONVFORM PROJCALL LTRANSDLOG LDEVMODE CCODEFILE CLOGFILE IPLATFORMCOUNT IWHICHPLAT SAVEDPLAT A_PJXSETS GOPJX LMULTIREADS LAUTOCLOSE CBACKDIR A_SCX2FILES A_S2FILES A_SCX3FILES A_S3FILES CSTUBFILE CNEWSCX CCURRENTFILE LUSERCALL ADDBS JUSTPATH FORCEEXT JUSTEXT GOTHERM SETTITLE PARTIALFNAME UPDATE VISIBLE PLATFORM GETPLATFORM WRITELOG BEGINLOG NTIMESTAMP TSTAMP SCXCOUNT A_SCX2ALIAS KNOWNFILE ERASEBACKUP PREADONLY JUSTFNAME OPENFILE C25ALIAS CONV20SCX LHADERROR TIMESTAMP SET30DEFAULTS LCONVERTED _FOX3SPR SPRMEMO TEMP1 TEMP2 TEMP3 TEMP4 DEFINES _FOX3PJXE Converting screen CC CLASS formset Screen FONTINFO formset (Macintosh version) CFORMSET THIS NRECCOUNT SCANPLAT PLATFORM IPLATFORMCOUNT NTMPCOUNT GOTHERM SETTITLE PARTIALFNAME CCURRENTFILE UPDATE PREFORM CREATESCX NEW30ALIAS A_SCX3ALIAS C25ALIAS ENVIRON OBJTYPE A_PLAT ADDSRECS CTMPNAME CFORMNAME LINDIRECTWINNAME CINDIRECTWINNAME ADDFSET SCXCOUNT LMULTIREADS A_SCX2ALIAS FORMNUM CLASS OBJNAME CBACKDIR A_SCX2FILES UNIQUEID PARENT CFORMSETNAME LHADERROR ADDPROCS1 WRITEFONTSUB PROJCALL COLDOUTFILE GOPJX COUTFILE A_SCX3FILES INSERTSCX ADDPARM ADDGENPROCS UPDMETHODS POSTFORM CLOSEFILES IWHICHPLAT COMPLETE OCONVFORM ENDLOG CNEWSCX FORCEEXT A_SCX2FILES> Migrating file... Migrating screen CC Unable to migrate file. Screen file is an unknown format. It was not converted. Unable to migrate file. It was not converted. Transporting screen CC CFILENAME OTHIS CNEWSCXNAME READABLE ISDBF GOTHERM SETTITLE PARTIALFNAME CCURRENTFILE MIGDB4 WRITELOG JUSTFNAME LHADERROR FORCEEXT A_SCX2FILES UPDATE LOLDSCXSHOW GASHOWME GTRANSPORT COMMENT VERSION = 3.00 CSCXNAME TMPALIAS SCXCOUNT A_SCX3FILES A_SCX3ALIAS PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE OLE2 RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 USER CHEADERID LMULTIREADS Transporting screen CCC UDFPv MESSAGE SET UDFP TO &oldudfp PLATFORM SCXTYPE OLDUDFP COLDMESS A_SCX2ALIAS GOTHERM SETTITLE PARTIALFNAME A_SCX2FILES GTRANSPORT GASHOWME LTRANSDLOG OPENFILE C25ALIAS PLATFORM LHADERRORn setupcode *- [CONVERTER] Parameter statement generated by ConverterC *- [CONVERTER] Pass these values along to the new form PARAMETERS LOCAL _aParm, _cparmstr, _nctr DIMENSION _aParm[ _aParm[ ] = [ _cparmstr = [] IF PARAMETERS() > 0 _cparmstr = [WITH ] _cparmstr = _cparmstr + _aParm[1] FOR m._nctr = 2 TO PARAMETERS() _cparmstr = _cparmstr + [,] + _aParm[m._nctr] ENDIF *- [CONVERTER] Declare arraysC EXTERNAL ARRAY *- [CONVERTER] _rval will hold return valueC LOCAL _rval *- [CONVERTER] Declare variables for record pointersC PUBLIC EXTERNAL PROC C DO FORM " " NAME LINKED _cparmstr NOREAD TO m._rvalC RETURN m._rval IF _macC EXTERNAL PROC DO FORM " " NAME LINKED _cparmstr NOREAD TO m._rvalC RETURN m._rval ENDIF EXTERNAL PROC C DO FORM " " NAME LINKED NOREAD TO m._rvalC RETURN m._rval IF _macC EXTERNAL PROC DO FORM " " NAME LINKED NOREAD TO m._rvalC RETURN m._rval ENDIF CSCXNAME NPARMCOUNT CPARMCONT CPARMCODE CPARMA ATEMP CTMPTEXT CITEM NARRYLEN CPUBLIST CDOFORM OBJTYPE CPARMS GETPARAM _FOX3SPR SPRMEMO A_DIMES A_DIMES2 GETARRAY STRIPPAREN CARRAYS CNEWSCX SCXCOUNT A_SCX3FILES LHASRETURN LHASDATANAVOBJ A_PJXSETS A_TABLES CCURSVAR MAKEVAR JUSTFNAME IPLATFORMCOUNT NOREADPLAINEXPR NOREADEXPR JUSTSTEM JUSTEXT LMULTIREADS* FONTINFO FONTINFO SAVEAREA TEMPFILE CTEMP LMULTIREADS SCXCOUNT A_SCX3ALIAS NDNORECNO NDNOCOUNT RESERVED2 METHODS LHASIDX _FOX3SPR CLASS NFORMREC1 NFORMREC2 LHASINVIS UNIQUEID ADDBS JUSTPATH A_SCX3FILES FORCEEXT _FOX3SPR *- [CONVERTER] C *- [CONVERTER] Header File for *- [CONVERTER] New INCLUDE file, with #DEFINEsC #INCLUDE *----- Miscellaneous code _FOX3PJX _FOX3PJX CHFILE CTMPFILE NEW30ALIAS _FOX3SPR DEFINES FORCEEXT CSTUBFILE JUSTFNAME CCURRENTFILE RESERVED8 SPRMEMO LDEVMODE CODE CCODEFILE PROJCALL _FOX3PJX A_SCX2ALIAS A_SCX3ALIAS LUSERCALL PLATFORM IPLATFORMCOUNT ADDBS JUSTPATH A_SCX3FILES JUSTSTEM LHADERROR LBACKUP ERASEBACKUP A_SCX2FILES IWHICHPLAT LNOCOMPILE THIS LUSERCALL A_SCX3FILES FORCEEXT LBACKUP A_SCX2FILES OCONVFORM Setting 3.0 defaults... checkbox combobox commandbutton editbox header label listbox spinner textbox pageframe formset FontBold FontSize checkbox combobox commandbutton editbox label listbox spinner shape textbox pageframe ColorSource commandgroup optiongroup pageframe .name = pageframe FontBold FontSize ColorSource .name = ColorSource LLUPDATED CPROP CLINE CTEXT IRECC CLASSLOC GOTHERM UPDATE PROPERTIES BASECLASS ADD40PROPERTY COBJECT: name = name = LCPROPERTY LCVALUE LCOBJECT LUSELF CPROP LLUPDATED FONTSTR A_SCX2FLD FONTSUBN COMMENT NEW30ALIAS PLATFORM UNIQUEID PROPERTIES FONTSUBn formset WindowTypeCC WindowTypeCC ReadCycleC ReadLockC WindowListC CLASS ReleaseWindowsC formset formset *----- formset formset formset formset NODEFINE *----- formset formset NODEFINE GETPLAT TMPSTR TMPCNT LREADCLAUSE CURPLAT IFORMSETCTR CFORMSETNAME GETVARPREFIX GOODNAME JUSTSTEM CCURRENTFILE A_READS NOBJCOUNT FP3PROP FP3METHOD LDEVMODE ADDPROP A_PJXSETS GETBORDER SCXCOUNT A_SCX2ALIAS PLATFORM OBJTYPE ADDREADS LMULTIREADS READ_EXPR READCLAUSE WRITEREADS A_SCX3ALIAS UNIQUEID TIMESTAMP CLASS BASECLASS OBJNAME PROPERTIES SAVEDPLAT NTIMESTAMP _FOX3SPR METHODS NFSETRECNO NEW30ALIAS RESERVED4 PARENTNAME C25ALIAS2 NOMOUSE ReadNoMousea ReadSavea ReadTimeoutCC OBJECT OBJECT ReadObjectCC COLORSCHEME COLORSCHEME ColorScheme TMPSTR TMPCNT THIS READ_EXPR ADDPROP WORDNUM ReadWhenC ReadValidC ReadActivateC ReadDeactivateC ReadWhenC ReadValidC ReadActivateC ReadDeactivateC NOREADEXPR ADDMETHODS A_READS NOREADPLAINEXPR CPROCS setupcode SYS(16C SYS(16 _SYS(16 sys(16 _sys(16 Sys(16 _Sys(16 temp4a- temp4aa ENDIF #ITSE temp4a- WCLAUSE WNAME #WNAME temp4a- NOREAD PLAIN NOREAD Cannot process macro expression in generator directive. *- [CONVERTER] Cannot process macro in generator directiveC temp4aa temp1 temp1 temp1 PROCCODE SYS(16C SYS(16 _SYS(16 sys(16 _sys(16 Sys(16 _Sys(16 temp4-- PARAMETERS THIS.a_reads[3] = IIF(THIS.lDevMode,"","*- [CONVERTER] Restore environment" + CHR(13) + [IF TYPE("rborder") == 'C'] + CHR(13)+CHR(10) + CHR(9) + [SET READBORDER &rborder] + CHR(13)+CHR(10) + [ENDIF] + CHR(13)+CHR(10) + CHR(13)+CHR(10) + [IF TYPE("talkstat") == 'C'] + CHR(13)+CHR(10) + CHR(9) + [IF m.talkstat = "ON"] + CHR(13)+CHR(10) + CHR(9) + CHR(9) + [SET TALK ON] + CHR(13)+CHR(10) + CHR(9) + [ENDIF] + CHR(13)+CHR(10) + [ENDIF] + CHR(13)+CHR(10) + CHR(13)+CHR(10) + [IF TYPE("compstat") == 'C'] + CHR(13)+CHR(10) + CHR(9) + [IF m.compstat = "ON"] + CHR(13)+CHR(10) + CHR(9) + CHR(9) + [SET COMPATIBLE ON] + CHR(13)+CHR(10) + CHR(9) + [ENDIF] + CHR(13)+CHR(10) + [ENDIF] + CHR(13)+CHR(10) + CHR(13)+CHR(10) ) SCRN_NUM PART1 PART2 PART2LINE PART2CHR SECT1 SECT2 SECT1LINE SECT2LINE PARMLINE SECT1CHR SECT2CHR SECT2START GENDIR GENDIRCOUNT SAVEAREA CTEMPTXT NGENDIR CDEFINE CREPLACESTR CGENACTION CPARMLINE NLINE CPARMS GETPARAM _FOX3SPR TEMP1 SETUPCODE TEMP4 CLEANWHITE LHASSYS16 MEMOFIND DEFINES ITSE_EXPR READ_EXPR WCLAUSE_EXPR CWNAMEEXPR A_PJXSETS NOREADPLAINEXPR NOREADEXPR WRITELOG CCURRENTFILE GETFIRSTLINE PROCCODE NMAXRETU LHASRETURN A_READS MERGEMETHODS LMULTIREADS WHENTYPE VALID VALIDTYPE SHOWTYPE ACTIVATE ACTIVTYPE DEACTIVATE DEACTTYPE RETURN temp1 #INSE temp4a---a m.insfileb m.insfileb *- Could not find #INSERT directive file *- Could not find #INSERT directive file temp2 *- Start of #INSERT directive - *- End of #INSERT directive #INSE temp1 #INSE temp4 MERGECODE FP30FLD CODETYPE INSFILE SAVEAREA _FOX3SPR TEMP1 TEMP4 CLEANWHITE THIS GETDEFINE FINDARRY MEMOFIND ADDBS JUSTPATH CCURRENTFILE JUSTFNAME TEMP2 MEMOSTUFF IF ('#' $ &cMemoFld) m.gendir = ALLT(STRTRAN(MLINE(&cMemoFld,m.ngendir),CHR(9),' ')) #DEFI m.gendir = MLINE(&cMemoFld,m.ngendir + m.nCtr) cTmp = MLINE(&cMemoFld,m.nLine - 1) REPLACE (cMemoFld) WITH STUFF(&cMemoFld,_MLINE + IIF(m.nLine <= 1,0,1),0,'*') CMEMOFLD GENDIRCOUNT NGENDIR CDEFINE GENDIR NLINE MEMOFIND _FOX3SPR DEFINESA CLASS WINDOWS CLASS WINDOWS CPLATONLY TMPARR TMP2ARR TMPCNT TOTRECS SCXCOUNT A_SCX2ALIAS OBJTYPE PLATFORM C25ALIAS DISTINCT G_PLATFORMS A_PLAT ISMULTIPLAT# PROCCODE SAVEREC PART2LINE PART2 PART2CHR OBJTYPE PLATFORM A_PLAT GETFIRSTLINE PROCCODE CPROCS *- [CONVERTER] Begin CLEANUP and other procedures from 2.x Form *- [CONVERTER] End CLEANUP and other procedures from 2.x Form *- [CONVERTER] Begin VALID/WHEN procedures from 2.x Form *- [CONVERTER] End VALID/WHEN procedures from 2.x Form *- [CONVERTER] SYS(16) replacement to accommodate relocated code PROCEDURE _Sys PARAMETERS nCode, nDepth IF PARAMETERS() = 1 RETURN IIF(LEFT(SYS(16),9) == "PROCEDURE" AND OCCURS(" ",SYS(16)) >= 2,SUBS(SYS(16),AT(" ",SYS(16),2) + 1),SYS(16)) RETURN SYS(16,nDepth) ENDIF *- [CONVERTER] End of SYS(16) replacement SAVEREC PART2LINE PART2 PART2CHR CPROCS _FOX3SPR SPRMEMO TEMP3 LHASSYS16, WINDOWS oRecb PLATNUM CRECTYPE OREC A_SCX2FLD NOLDSIZE PLATFORM A_PLAT OBJTYPE ADDFONTSUB ADDSCXOBJ MAPIT ADDREC GOTHERM UPDATE NTMPCOUNT NRECCOUNT LHADERROR CLOSEFILES A_DIMES dataenvironment *- [CONVERTER] Open old-style IDX index file specified in screen environmentC SELECT SET INDEX TO relation label shape listbox commandgroup commandgroup optiongroup checkbox textbox textbox editbox combobox BITMAPC image oleboundcontrol commandgroup commandgroup spinner NOBJTYPE CTRLTYPE TMPOBJ OBJCLASS OFORM OBJCLASSM THIS OCONVFORM FORMCLASS DATANAVCLASS LHASIDX _FOX3SPR LOAD A_SCX2FLD DATANAVRELATIONCLASS LABELCLASS LINECLASS SHAPECLASS LISTCLASS BTNCLASS BTNGCLASS RADIOCLASS CBOXCLASS OBJCODE SAYCLASS GETCLASS EDITCLASS POPUPCLASS STYLE NAME PICTCLASS OLECLASS INVCLASS INVGCLASS SPINCLASS LoadCCC *- [CONVERTER] Remember environmentC PRIVATE m.compstat, m.currarea, m.rborder, m.talkstat IF SET("TALK") = "ON" SET TALK OFF m.talkstat = "ON" m.talkstat = "OFF" ENDIF m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER") SET READBORDER ON m.currarea = SELECT() *- [CONVERTER] Open tables so that fields are availableC THIS.DataEnvironment.OpenTables *- [CONVERTER] Reset record pointers LOCAL aTbl, iLen, i, iRec, cVar, iPrev iPrev = SELECT() DIMENSION aTbl[1,2] iLen = AUSED(aTbl) FOR i = 1 TO iLen cVar = '_iconv' + PROPER(aTbl[i,1]) + 'GoToPlaceHolder' IF TYPE(cVar) # 'N' iRec = -2 iRec = EVAL(cVar) ENDIF IF USED(aTbl[i,1]) SELECT (aTbl[i,1]) DO CASE CASE BETWEEN(iRec, 1, RECCOUNT()) GOTO iRec CASE iRec = 0 GO TOP SKIP IIF(!BOF(),-1,0) CASE iRec = -1 GO BOTTOM SKIP IIF(!EOF(),1,0) OTHERWISE GO TOP ENDCASE ENDIF IF iPrev > 0 IF USED(iPrev) SELECT (iPrev) ENDIF ENDIF RELEASE aTbl, iLen, i, iRec, cVar, iPrev *- [CONVERTER] Remember record pointersC IF USED(" SELECT = IIF(BOF(), 0, IIF(EOF(), -1, RECNO())) ENDIF UnloadC *- 2.6 SAYs that need to be refreshed ReadShowC *----- CGOTO CCURSVAR A_SCX3ALIAS NFSETRECNO NOREADPLAINEXPR ADDMETHODS A_READS LDEVMODE LHASDATANAVOBJ A_PJXSETS CSETSKIP CDEFINEWIN A_TABLES MAKEVAR CREADSHOW CLEANPROC _FOX3SPR CFORMSETNAME FP3METHOD METHODS4 _iconvCC GoToPlaceHolder CNAME temp4a- temp4aa CSNIPPET GENDIRCOUNT SAVEAREA NLINE _FOX3SPR TEMP1 TEMP4 CLEANWHITE GENDIR MEMOFINDv Converting screen CC File ` is read-only. It was not converted. CLASS Screen file is an unknown format.` It was not converted. APARMS LBACKUP LPROJCALL LFORCETRANSPORTDLOG LNOCOMPILE CEXT1 CEXT2 CBACKEXT1 CBACKEXT2 PROJCALL LSET30DEFAULTS IPLATFORMCOUNT CBACKDIR GOPJX A_SCX2FILES A_S2FILES A_SCX3FILES A_S3FILES CNEWSCX CCURRENTFILE LUSERCALL ADDBS JUSTPATH JUSTEXT FORCEEXT GOTHERM SETTITLE PARTIALFNAME UPDATE VISIBLE WRITELOG BEGINLOG KNOWNFILE OCONVFORM ERASEBACKUP PREADONLY JUSTFNAME A_SCX2ALIAS OPENFILE C25ALIAS ColorSource = 3 ColorSource = 5 ColorSource = 3 ColorSource = 0 PROPERTIES BASECLASS LSET30DEFAULTS SET30DEFAULTS CLOSEFILES LCONVERTED The file could not be compiled. Check the .ERR file for details and compile manually. The file C could not be compiled. Check the .ERR file for details and compile manually. CHFILE CTMPFILE CEXT1 CEXT2 CBACKEXT1 CBACKEXT2 CERRFILE JUSTEXT A_SCX2FILES A_SCX2ALIAS A_SCX3ALIAS LUSERCALL LHADERROR A_SCX3FILES FORCEEXT LNOCOMPILE LLOCALERR IPLATFORMCOUNT PLATFORM ADDBS JUSTPATH JUSTSTEM LHADLOCERR WRITELOG CNEWSCX Converting report CC File ` is read-only. It was not converted. LBL|LBX Migrating file... Migrating report CC Unable to migrate file. Report or label file is an unknown format. It was not converted. Transporting report CC PLATFORM OBJTYPE OBJTYPE Report or label file is an unknown format. _FOX3SPR _FOX3SPR APARMS LBACKUP LPROJCALL LFORCETRANSPORTDLOG LNOCOMPILE CNEWFRXNAME OTHIS CNEWEXT1 CNEWEXT2 COLDEXT1 COLDEXT2 THIS OCONVFORM PROJCALL LTRANSDLOG CLOGFILE LAUTOOPEN LAUTOCLOSE CBACKDIR GOPJX CFRX2FILES F2FILES CFRX3FILES F3FILES CNEWFRX CCURRENTFILE JUSTEXT LUSERCALL ADDBS JUSTPATH FORCEEXT GOTHERM SETTITLE PARTIALFNAME UPDATE VISIBLE WRITELOG BEGINLOG PLATFORM GETPLATFORM NTIMESTAMP TSTAMP PREADONLY JUSTFNAME LHADERROR READABLE ISDBF MIGDB4 LOLDFRXSHOW GASHOWME GTRANSPORT C25ALIAS OPENFILE ERASEBACKUP CONV20FRX TIMESTAMP IMAXTHISTIME IMAXOTHERTIME LNEEDSDE CFRX3ALIAS OBJTYPE ENVIRON LCONVERTED _FOX3SPR LOAD{ Converting report CC dataenvironment relation SELECT C SET INDEX TO oRecb PROCEDURE Destroy *- [CONVERTER] Reset tables for compatibility THIS.OpenTables THIS.Init PROCEDURE InitC OFORM A_SCX2FLD NRECCOUNT NCURREC TEMPFILE GOTHERM SETTITLE PARTIALFNAME CCURRENTFILE UPDATE PREFORM CREATEFRX NEW30ALIAS CFRX3ALIAS ENVIRON LNEEDSDE OCONVFORM OBJTYPE NTMPCOUNT DATANAVCLASS FP3OBJTYPE DATANAVRELATIONCLASS _FOX3SPR LHASIDX MAPIT ADDREC LHADERROR CLOSEFILES CSETSKIP NDNORECNO LNOCOMPILE COMPILEFRX ADDBS JUSTPATH CFRX3FILES PLATFORM FORCEEXT JUSTEXT FLOAT STRETCH POSTFORM COMPLETE ENDLOG CFRX2FILES _FOX3SPR CNEWEXT1 CNEWEXT2 COLDEXT1 COLDEXT2 JUSTEXT CFRX2FILES _FOX3SPR C25ALIAS CFRX3ALIAS CFRX3FILES LUSERCALL LHADERROR FORCEEXT LBACKUP userb C25ALIAS CFRX3FILES FORCEEXT CFRX3ALIAS Transporting report CC UDFPv MESSAGE SET UDFP TO &oldudfp PLATFORM FRXTYPE OLDUDFP COLDMESS C25ALIAS GOTHERM SETTITLE PARTIALFNAME CCURRENTFILE GTRANSPORT CFRX2FILES GASHOWME LTRANSDLOG OPENFILE PLATFORM LHADERRORJ UNIQUEID TIMESTAMP NTIMESTAMP PLATFORMS THIS LUSERCALL CFRX3FILES FORCEEXT JUSTEXT LBACKUP CFRX2FILES OCONVFORMo FORCEEXT CFRX2FILES PARM1 PARM2 FP3CLASS FP3BASE FORMREF FP25OT A_SCX2FLD FP25OC FP3PROP FP3METHODS PREMAP ADDBASIC ADDFONT ADDPOS ADDCOLOR ADDMAIN POSTMAP WRITENAME BMPFPATH NOMODIFY FONT STYLE COLOR SIZE CPICTSTR SPCLOC TMPSTR TMPCNT TMPWORD TMPLOC TMPPRESTR FORMREF ITSE_EXPR A_SCX2FLD HASITSE WORDNUM PICWORD3 PICWORD1 ADDQUOTES PICWORD2 *----- FORMREF LDEVMODE NEW30ALIAS PLATFORM UNIQUEID TIMESTAMP CLASS BASECLASS OBJNAME PARENT PROPERTIES USER RESERVED2 FP3SAVEPLAT FP3ID FP3TIME FP3CLASS FP3BASE FP3NAME FP3PARENT FP3PROP FP3COMMENT FP3RESERVED2 FP3METHOD _FOX3SPR METHODSz FP3PLAT A_SCX2FLD FP3TIME FORMREF NTIMESTAMP FP3COMMENT FP3PARENT PARENTNAME FP3ID LHASINVIS CADDNAME FP3NAME ADDPROP FP3NAME4 WINDOWS FontName FontSize FontBoldC FontItalica FontUnderlinea FontOutlinea FontShadowa FontCondensea FontExtenda NBTN A_SCX2FLD FP3FONT FP3FSIZE FP3FSTYLE GETSTYLE FP3FONT1 FP3FONT5 FP3FONT6 NDEFFONT1 FORMREF NDEFFONT5 NDEFFONT6 ADDPROP LeftC WidthC HeightC ADDPROP A_SCX2FLD NDEFFONT1 NDEFFONT5 FP3FUDGE NDEFFONT6 FP3FONT6 FP3FONT1 FP3FONT5 ColorSource ForeColorCCC BackColorCCC FillColorCCC DisabledBackColorCCC ADDPROP ICOLORSOURCE A_SCX2FLD BIUOSCE IFNTSTYLE CFONTSTYLE CSTYLECODES ,()[] NEWOBJ CNAME A_SCX2FLD JUSTSTEM STRIPQUOTE FORMREF NOBJCOUNT GETVARPREFIX FormatC Format InputMaskC InputMask PICWORD1 HASITSE ADDPROP ADDQUOTES PICWORD2 SpecialEffect SpecialEffect A_SCX2FLD PICWORD1 ADDPROP} BackStyle BackStyleC LCONVERT NMODE NFILLPAT ADDPROP ,'T','F') ALLTRIM(STR( DTOS( PSTRING# FP25OBJ ADDBASIC FP3ID' WhenCC ValidCC MessageC ErrorMessageC SYS(16C ReleaseErase- ControlSourceCC ADDNAME GETNEWNAME FP3CLASS ADDMODE A_SCX2FLD FORMREF NOREADPLAINEXPR ADDMETHODS CLEANPROC LHASSYS16 FP3METHOD GETPICPART ADDPROP ADDCTRL ADDFX" EnabledC ADDPROP A_SCX2FLD LeftC WidthC HeightC WidthC HeightC Option BorderStyle ButtonCount EnabledC Style EnabledC PictureC Caption Style Enabled- EnabledC Defaulta Cancela CaptionC Option Value Height Width TerminateReada TerminateRead- ReleaseErase- BTNNAME INVISBTN OPTBTN CAPNAME HSPC LHASPICTS TOTBTNS UNITWID UNITHGT ST_LEFT ST_TOP LISHORIZ A_SCX2FLD PICWORD1 ADDPROP NDEFFONT1 NDEFFONT5 NDEFFONT6 FP3FONT6 FP3FONT1 FP3FONT5 ADDMODE FP3NAME PICWORD2 ADDFONT ADDCOLOR ADDFX FULLBMP ADDQUOTES IVALUE PictureC Caption CaptionC TerminateReada TerminateRead- PICWORD1 ADDPROP FULLBMP PICWORD2 ADDQUOTES Value CTEMPSTR CFILLCHAR CINITVAL A_SCX2FLD FILLCHAR ADDPROP RowSourceCC RangeLowC FirstElement RangeHighC NumberOfElements RowSourceType Value RowSourceType Value RowSourceType Value RowSourceType Value RowSourceType Value TerminateReada TerminateRead- EnabledC ADDPROP ADDQUOTES A_SCX2FLD ADDMETHODS PICWORD1 LeftC WidthC HeightC FP3FUDGE ADDPROP A_SCX2FLD NDEFFONT1 NDEFFONT5 NDEFFONT6 FP3FONT6 FP3FONT1 FP3FONT5R ColorSource ItemForeColorCCC ItemBackColorCCC DisabledItemBackColorCCC ADDPROP A_SCX2FLD, EnabledC ADDBTN ADDPROP A_SCX2FLD EnabledC Style Style ValueC ADDBTN ADDPROP A_SCX2FLD PICWORD1 Command ADDGROUP0 ColorSource ADDPROP Commanda Value ADDGROUP ADDPROPD EnabledC Style ADDBTN ADDPROP A_SCX2FLD Alignment Alignment Alignment Alignment FP25CTRL ADDMAIN PICWORD1 ADDPROP A_SCX2FLD PICWORD3 EnabledC Margin RangeLowC RangeHighC BorderStyleC THIS ADDFORMAT ADDVALUE ADDPROP A_SCX2FLD ADDMETHODS FORMREF GETBORDER PICWORD3 LeftC WidthC HeightC ADDPROP A_SCX2FLD NDEFFONT1 NDEFFONT5 NDEFFONT6 FP3FONT6 FP3FONT1 FP3FONT5 Alignment Alignment Alignment Alignment FP25CTRL ADDMAIN PICWORD1 ADDPROP A_SCX2FLD PICWORD30 Margin THIS ADDFORMAT ADDVALUE ADDPROP LeftC WidthC HeightC ADDPROP A_SCX2FLD NDEFFONT1 NDEFFONT5 NDEFFONT6 FP3FONT6 FP3FONT1 FP3FONT5 ScrollBars EnabledC AllowTabsC NOMO NOMO NOMO & NOMO ReadOnlya FP25TEXT ADDCTRL A_SCX2FLD ADDPROP FP3METHOD PICWORD3 Style ReadOnlya TabStop- BorderStyle FP25TEXT ADDCTRL ADDPROP NEWOBJ CNAME STRIPQUOTE A_SCX2FLD GETVARPREFIX GOODNAME FORMREF NOBJCOUNTH ColorSource DisabledForeColorCCC ForeColorCCC BackColorCCC ADDPROP A_SCX2FLD Value THISFORMSET.C THISFORMSET.C .Value = CEXPR CPARENT A_SCX2FLD CONV2STR ADDPROP FORMREF LINDIRECTWINNAME CINDIRECTWINNAME FP3PARENT CREADSHOW FP3NAME Value CTEMPVAL CINITVAL CTEMP2 A_SCX2FLD FP25OC ADDPROP IVALUE Option-a FP25OPTION ADDMAIN ADDGROUPi Enableda ValueC ADDPROP PICWORD1 A_SCX2FLD IVALUE| BackStyle LCONVERT NMODE NFILLPAT A_SCX2FLD ADDPROP FP25OPTION ADDMODE Style EnabledC FirstElementC RowSourceC RowSourceType RangeLowC FirstElement RangeHighC NumberOfElements RowSourceType RowSourceCC CLISTSOURCE ADDPROP A_SCX2FLD FP25OC PICWORD2 ADDQUOTES ADDMETHODS ADDVALUE\ EnabledC Margin Alignment SpinnerLowValueC SpinnerHighValueC RangeLowC KeyboardLowValue RangeHighC KeyboardHighValue THIS ADDFORMAT ADDVALUE ADDPROP A_SCX2FLD ADDMETHODS LeftC 333333 WidthC HeightC ADDPROP A_SCX2FLD NDEFFONT1 NDEFFONT5 NDEFFONT6 FP3FONT6 FP3FONT1 FP3FONT5 1.000 Increment Value Value Value CINITVAL A_SCX2FLD FORCEDEC ADDPROP INITIALVAL FP25CTRL ADDVALUE CaptionC CaptionCC CaptionC CaptionCC " + CHR(13) + " ColorSource Alignment Alignment Alignment ReleaseErase- ADDNAME GETNEWNAME FP3CLASS GETPICPART A_SCX2FLD FP25OT ADDPROP CONV2STR PICWORD2 ADDFORMAT ADDMODE PICWORD1 PICWORD3 NEWOBJ CNAME STRIPQUOTE A_SCX2FLD GETVARPREFIX GOODNAME FORMREF NOBJCOUNT$ FP25OBJ ADDBASIC FP3ID SpecialEffect SpecialEffect A_SCX2FLD ADDPROPD FillStyle BackStyle CurvatureC BorderWidthCC BorderStyle BorderStyle BorderStyle BorderStyle BorderStyle ReleaseErase- NFILLPAT ADDNAME GETNEWNAME FP3CLASS ADDFX FP25OT A_SCX2FLD ADDPROP ADDMODE LeftC Width HeightC Height WidthC HeightC WidthC ADDPROP A_SCX2FLD FORMREF NDEFFONT1 NDEFFONT5 NDEFFONT6 FP25OTr ColorSource BorderColorCCC FillColorCCC BackColor 255,255,255 DisabledForeColorCCC LCOLORSOURCE ADDPROP A_SCX2FLD ColorSource BorderColorCCC BackColorCCC ADDPROP A_SCX2FLD$ FP25OBJ ADDBASIC FP3ID8 PictureCCC BITMAPCC Picture Picture ReleaseErase- ADDNAME GETNEWNAME FP3CLASS A_SCX2FLD ADDPROP FULLBMP ADDMODE StretchC LeftC HeightC WidthC ADDPROP A_SCX2FLD FORMREF NDEFFONT1 NDEFFONT5 NDEFFONT6 ColorSource ADDPROP ReleaseErase- ControlSourceCC ADDNAME GETNEWNAME FP3CLASS ADDMODE A_SCX2FLD ADDPROP ADDCTRLR Enabled- Sizable- AutoActivate ADDPROP4 PARM1 PARM2 FP25OBJ ICOLORSOURCE$ FP25OBJ ADDBASIC FP3ID WZ_WIN CaptionCC CaptionC Caption PictureCCC IconCC BorderStyleCC BottomCaptionCC BottomCaptionC ShadowC IN DESKTOP Desktopa IN WINDOW WINDOW Window IN SCREEN Windowa SizableC GROW ZOOM MDIChildC MaxButton ZoomBox MovableC ClosableC MinButtonC ControlBox- HalfHeightCaptionC COLORSCHEME COLORSCHEME ColorScheme InitC THIS.Name = LoadC Activate SELECT TMPSTR TMPCNT CTMPNAME LZOOM FORMREF CWNAMEEXPR A_SCX2FLD CWINNAME GETNEWNAME FP3CLASS CFORMNAME CWINNAMES ADDNAME ITSE_EXPR ADDPROP FULLBMP STRIPQUOTE GETWBORDER WCLAUSE_EXPR WORDNUM LINDIRECTWINNAME ADDMETHODS CINDIRECTWINNAME A_READS CMAINCURS FORMREF PARENTNAME CFORMSETNAMEW WINDOWS 255,255,255 FORMREF PARENTNAME FP3NAME A_SCX2FLD NDEFFONT1 FP3FONT1 NDEFFONT5 FP3FONT5 NDEFFONT6 FP3FONT6 CDEFCOLOR ADDPROP LDEVMODE ADDREC ADDPAGE pageframe pageframe PageFrame1 Height Width PageCount BorderWidth Tabs- ErasePage- DrawFrame- PageFrame1 Page1 BackStyle Page1 Page1 PageFrame1 Page1 FP3CLASS FP3BASE FP3PROP FP3METHOD ADDBASIC FP3COMMENT A_SCX2FLD FP3PARENT FORMREF PARENTNAME FP3NAME ADDPROP ADDQUOTES WidthC HeightC screen screen screen screen screen screen LeftC AutoCenter ARRANGE LARRFLAG LCENTFLAG THIS NDEFFONT1 FP3FONT1 NDEFFONT5 FP3FONT5 NDEFFONT6 FP3FONT6 ADDPROP A_SCX2FLD FORMREF A_SCX2FILES FORMNUM GETARRANGE8 NODEFINE *----- NODEFINE FORMREF LDEVMODE NEW30ALIAS PLATFORM UNIQUEID TIMESTAMP CLASS BASECLASS OBJNAME PARENT PROPERTIES USER RESERVED1 RESERVED4 RESERVED6 FP3SAVEPLAT FP3ID FP3TIME FP3CLASS FP3BASE FP3NAME FP3PARENT FP3PROP FP3COMMENT FP3RESERVED1 A_PJXSETS FP3RESERVED6 FP3METHOD _FOX3SPR METHODS WSTYLE NEWOBJ! DataEnvironment cursor cursor PARM1 PARM2 FP25OBJ COLDPARENTNAME FORMREF PARENTNAME LHASDATANAVOBJ FP3COMMENT FP3OBJTYPE MAPIT ADDREC NDNORECNO NEW30ALIAS CLEARPROP FP3CLASS FP3BASE" FP25OBJ ADDBASIC FP3IDR PREMAP ADDBASIC ADDMAIN POSTMAP WRITENAME FORMREF NDNOCOUNT# AutoOpenTables AutoCloseTables InitialSelectedAlias AliasC CursorSourceCC OrderC NLEN CSAVEAREA NCURREC FORMREF LHASDATANAVOBJ ADDNAME FP3CLASS GETNEWNAME ADDPROP LAUTOOPEN LAUTOCLOSE SAVEAREA C25ALIAS OBJTYPE PLATFORM CMAINCURS UNIQUE A_SCX2FLD FULLBMP A_TABLES A_TORDERB NEWOBJ FORMREF NOBJCOUNT FORMREF PARENTNAME COLDPARENTNAME FP3PLAT GETPLATFORM FORMREF NEW30ALIAS PLATFORM UNIQUEID TIMESTAMP OBJTYPE ENVIRON FP3ID FP3TIME FP3OBJTYPE FP3CLASS FP3PROP\ DataEnvironment PARM1 PARM2 FP25OBJ COLDPARENTNAME FORMREF PARENTNAME ParentAliasC RelationalExprC ChildAliasC EXACTv ChildOrderC SET EXACT &loldexact *- [CONVERTER] set SET SKIP TO SELECT SET SKIP TO NPOS LOLDEXACT SAVEAREA NWORKAREA FORMREF LHASDATANAVOBJ ADDNAME FP3CLASS GETNEWNAME ADDPROP A_SCX2FLD A_TABLES A_TORDER C25ALIAS OBJTYPE OBJCODE PLATFORM ENVIRON CSETSKIP FP3PLAT GETPLATFORM FORMREF NEW30ALIAS PLATFORM UNIQUEID TIMESTAMP OBJTYPE ENVIRON FP3ID FP3TIME FP3OBJTYPE FP3CLASS FP3PROP Errord WriteLog" BeginLog EndLog IsDBF GetPlatformCount GetPlatform Cleanup DestroyY DoConvert GetOpts GetVersion PreForm PostForm TStamp AddQuotes AddProp IsDefault ClearProp AddMethods FindArry OpenFile GetVarPrefixaK Converter ok2nuke CompileFRX CreatePJX InsertSCXsT CloseFiles BackFiles CompileAllScx CompileAllFrxNe CompileAllDBC Destroy@j InitGj Cleanup%r Converter p30to40 ExtProjZ InsertSCXa Conv20PJX ClosePJXw GetNextFset Converter InsertSCX} Cleanup ClosePJX Initx Converter EraseBackup KnownFile* CreateSCX> Conv20SCX< AddParm PostForm CloseFiles Cleanup Set30Defaults Add40Propertye AddFontSub WriteFontSub AddFSet ReadClause WriteReadsQ AddReads. MergeMethods GetDefine ScanPlat AddProcs1 AddGenProcss= AddSRecs AddSCXObj UpdMethods MakeVar CleanProc Initb[ Converter CloseFiles Converter8y CloseFiles CreateFRXd Conv20FRX PostForm CleanupV EraseBackup MapIt~ AddMain% PreMap, PostMap3 FullBMP: GetPicPart[ AddRec AddBasic; AddName& WriteName_ AddFont AddPos` AddColorl GetStyleD GetNewNameC AddFormat AddFXY AddMode Conv2Str AddBasic AddMain AddCtrl AddGroup AddBtn AddValue AddCtrl AddPos AddColor AddCtrl5 AddCtrl AddPosU WriteName\ AddCtrlc AddColor AddPos WriteName AddCtrl AddCtrl7 AddMain AddCtrl AddPos8 AddMainB AddCtrl AddPos AddCtrl AddValueA AddCtrlL GetNewName AddColor, AddValue AddValue AddPos] WriteNamed AddMaink AddCtrl AddModeV AddCtrl% AddCtrl3 AddPos AddValue AddMain GetNewName AddBasicU AddFX AddMain_ AddFont AddPos AddColor AddColor AddBasic AddMain AddPosv AddFont AddColor AddMain AddCtrl AddBasic AddMain Premapl Postmap WriteName AddPage AddPos AddRec GetWBorderF GetNewName AddBasic MapIt: AddMain GetNewName DestroyG AddRec AddMainY AddRec 01/01/95 12:00 01/01/95 12:00 LHADERROR CLOGFILE LDEVMODE CCODEFILE LLOCALERR LHADLOCERR LSHOWN1994 CCURRENTFILE DTSTARTTIME DTENDTIMEa SCXSingleScreenConverter SCX30Converter PJXConverter FRXConverter FPCConverter DB4ScrConverter DB4FrmConverter DB4LblConverter DB4CatConverter DB4QbeConverter FmtConverter TALKv SAFETYv ESCAPEv ESCAPE NOTIFYv MESSAGE MEMOWIDTHv CLASSv DEFAvC PROCv COMPATIBLEv EXCLUSIVEv COLLATEv BLOCKv TRBEv FULLPATHv UDFPv DEVEv DEBUGv ERROR EXACTv KEYCOMPv CPDIALOGv POINTv SEPARATORv PATHv LIBRARYv SCXCONVERTERCLASS SCX30CONVERTERCLASS PJXCONVERTERCLASS MNXCONVERTERCLASS FRXCONVERTERCLASS FPCCONVERTERCLASS DB4SCRCONVERTERCLASS DB4FRMCONVERTERCLASS DB4LBLCONVERTERCLASS DB4CATCONVERTERCLASS DB4QBECONVERTERCLASS FMTCONVERTERCLASS OLDTALK OLDSAFE OLDNOTIFY OLDMESS OLDMEMOWID OLDCLASS OLDPROC OLDDATA OLDCOMPAT OLDCOLLATE OLDBLOCK OLDTRBE OLDFULLPATH OLDUDFPARM OLDONESCAPE OLDDEVO OLDDEBUG OLDERROR OLDEXACT OLDDEFAULT OLDKEYCOMP OLDCPDIALOG OLDPOINT OLDSEP OLDPATH OLDLIBR OLDESCAPE OLDEXCLUS NCURRENTWORKAREA NNEWWORKAREA LUSERCALL CBACKDIR LHANDLED ACONVPARMS NTIMESTAMP OLD25FILE C25ALIAS CNEW30FILE NEW30ALIAS PLATONLY OLDFILETYPE OLDFILEVER PLATFORM CSETSKIP LAUTOOPEN LAUTOCLOSE LTRANSDLOG A_DIMES NDEFFONT1 NDEFFONT5 NDEFFONT6 CDEFCOLOR NRECCOUNT NTMPCOUNT LBACKUP IPLATFORMCOUNT SCXSingleScreenConverter SCX30Converter FRXConverter SCXCONVERTERCLASS SCX30CONVERTERCLASS FRXCONVERTERCLASS CURSCXID HIGHSCXID ISPROJ CHOMEDIR CBACKDIR COUTFILE CSTUBFILE PJXNAME PJX25ALIAS PJXVERSION LISMAIN LENCRYPT LSAVECODE CDEVINFO LDEBUG LEXCLUDE NSCREENSETS NSCREENCTR CFULL30PJXNAME F2FILES F3FILES CMEMOEXT A_PJXSETS PLATFORM WINOBJ AMASTERPARMS A_S2FILES A_S3FILES A_SCX LSET30DEFAULTS5 fp25form fp25lbl fp25say fp25line fp25shape fp25edit fp25get fp25spin fp25cbox fp25list fp25popup fp25pict fp25radio fp25btngrp fp25btngrp fp25invgrp fp25invgrp fp25ole fpdatanav fpdatanavRelation Screen FORMCLASS LABELCLASS SAYCLASS LINECLASS SHAPECLASS EDITCLASS GETCLASS SPINCLASS CBOXCLASS LISTCLASS POPUPCLASS PICTCLASS RADIOCLASS BTNCLASS BTNGCLASS INVCLASS INVGCLASS OLECLASS DATANAVCLASS DATANAVRELATIONCLASS SPECIALFX OCONVFORM NOBJCOUNT CSTUBFILE SCXCOUNT TIMESTAMP CNEWSCX ISMULTIPLAT CURPLAT SAVEDPLAT PLATFORM PARENTNAME CPARMS FORMNUM FP3PROP FP3METHOD GETBORDER ITSE_EXPR READ_EXPR WCLAUSE_EXPR CWNAMEEXPR NOREADEXPR NOREADPLAINEXPR FONTSUB LMULTIREADS CBACKDIR LUSERCALL PROJCALL LHASDATANAVOBJ LINDIRECTWINNAME CINDIRECTWINNAME CFORMNAME NDNOCOUNT NDNORECNO LCONVERTED CREADSHOW NFSETRECNO NFORMRECNO CHEADERID CDEFINEWIN LHASINVIS CPROCS LHASIDX CMAINCURS CWINNAMES IFORMSETCTR CFORMSETNAME LHASSYS16 LHASRETURN LNOCOMPILE IPLATFORMCOUNT IWHICHPLAT A_PLAT A_READS A_SCX2FILES A_SCX2ALIAS A_SCX3FILES A_SCX3ALIAS A_PJXSETS A_TABLES A_TORDER, LSET30DEFAULTS fpFRXdatanav fpFRXDataNavRelation DATANAVCLASS DATANAVRELATIONCLASS OCONVFORM NOBJCOUNT FP3PROP NDNOCOUNT NDNORECNO LCONVERTED LBACKUP LHASDATANAVOBJ PROJCALL PARENTNAME LHASINVIS LHASIDX LUSERCALL CBACKDIR CNEWFRX CMAINCURS LNOCOMPILE LNEEDSDE CFRX2FILES CFRX3FILES CFRX3ALIAS A_SCX3FILES A_PJXSETS FORMNUM A_TABLES A_TORDERI WINDOWS FP3PLAT FP3SAVEPLAT FP3ID FP3TIME FP3COMMENT FP3CLASS FP3BASE FP3NAME FP3PROP FP3METHOD FP3PARENT FP3RESERVED1 FP3RESERVED2 FP3RESERVED6 FP3FONT FP3FSIZE FP3FSTYLE FP3FONT1 FP3FONT5 FP3FONT6 FP3FUDGE FP25OT FP25OC FORMREF PICWORD1 PICWORD2 PICWORD3 HASITSE ICOLORSOURCE? IVALUE5 CWINNAMEY COLDPARENTNAME FP3OBJTYPE CALIAS custom MasterConvert ConverterBase Cvt$" PJXConverterBase ConverterBase PJXConverter PJXConverterBase FPCConverter PJXConverterBase SCXSingleScreenConverter ConverterBase SCX30Converter SCXSingleScreenConverter FRXConverter ConverterBaseH3 fp25obj ConverterBase|6 fp25ctrl fp25obj fp25list fp25ctrl7: fp25btn fp25ctrl\: fp25cbox fp25ctrlm: fp25btngrp fp25ctrl~: fp25invgrp fp25ctrl fp25invbtn fp25ctrl fp25get fp25ctrl fp25text fp25ctrl fp25edit fp25text-; fp25say fp25textH; fp25option fp25ctrlw; fp25radio fp25option fp25popup fp25option fp25spin fp25ctrl fp25lbl fp25obj fp25shape fp25obj'< fp25line fp25shapej< fp25pict fp25obj{< fp25ole fp25pict fp25form fp25obj fpdatanav fp25obj[= fpFRXdatanav fpdatanav fpDataNavRelation fpdatanav fpFRXDataNavRelation fpDataNavRelation AVLINE APARMS G_PLATFORMS WZAQFILT WZAQGRP WZAQDD WZAPARMS fxsettype GASHOWME@ unique newfile CNEW25FILE PLATFORM UNIQUEID TIMESTAMP OBJTYPE OBJCODE HEIGHT WIDTH STYLE PICTURE ORDER COMMENT ENVIRON BOXCHAR FILLCHAR PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE PENSIZE PENPAT FILLPAT FONTFACE FONTSTYLE FONTSIZE RULER RULERLINES GRIDV GRIDH SCHEME SCHEME2 COLORPAIR LOTYPE RANGELO HITYPE RANGEHI WHENTYPE WHEN VALIDTYPE VALID ERRORTYPE ERROR MESSTYPE MESSAGE SHOWTYPE SHOW ACTIVTYPE ACTIVATE DEACTTYPE DEACTIVATE PROCTYPE PROCCODE SETUPTYPE SETUPCODE FLOAT CLOSE MINIMIZE BORDER SHADOW CENTER REFRESH DISABLED SCROLLBAR ADDALIAS INITIALVAL INITIALNUM SPACING CURPOS NEWFILEM DO EscHandler Conversion Log for Converter: Microsoft Visual FoxPro Converter Utility Version 5.00e (07/15/96) Cannot open Changing catalog structure... Backing up project files... Migrating files... APARMS GOPJX ISPROJ NTIMESTAMP TSTAMP PJXNAME PJXVERSION CBACKDIR LDEVMODE CCODEFILE CLOGFILE CCURRENTFILE WRITELOG PJX25ALIAS OPENFILE LHADERROR GASHOWME NSCREENSETS CURSCXID GOTHERM UPDATE2 VISIBLE CATCONV ADDBS CHOMEDIR JUSTPATH GOMASTER CLOSEFILESs CCC,Z ERRORNUM METHOD THIS LHADERROR LLOCALERR CERRSTR ERROR CTMPFILE PJX25ALIAS CONVERTDB2FP LHADERROR CLOSEFILES NEW30ALIAS FPCCONVERTER CONVERTER FPCCONVERTER CLOSEPJX FORCEEXT CFULL30PJXNAME1 defaultvC Error @1 occurred while trying to copy the catalog to Error @1 occurred while opening Locate C Due to a name conflict, the catalog file has been renamed to WZISELECT WZSDIRNAME WZLRETURN WZSNEWNAME WZLAUTONAME WZSTMPNAME WZSDEFAULT CTMPPATH CNEWPATH CTMPFNAMEOLD CTMPFNAME THIS LLOCALERR ADDBS PJX25ALIAS PJXNAME LHADERROR CERRSTR CPTAG FORCEEXT AUTONAME FPCNEW JUSTPATH JUSTFNAME PATH FILE_NAME ALIAS TITLE UPDPATHS JUSTEXT defaultvC QUERY REPORT LABEL OTHER6666 REPORT LABEL QUERY Could not locate file listed in catalog . Not backed up. QUERY DO (gTransport) WITH (&wzsfpcalias..path), 12, .F., gAShowMe,m.gOTherm,(&wzsfpcalias..path) REPORT DO (gTransport) WITH (&wzsfpcalias..path), 13, .F., gAShowMe,m.gOTherm,(&wzsfpcalias..path) LABEL DO (gTransport) WITH (&wzsfpcalias..path), 14, .F., gAShowMe,m.gOTherm,(&wzsfpcalias..path) WZSDEFAULT WZSMODE CTMPPATH WZSFPCALIAS WZSFNAME NEW30ALIAS FOX_FILE JUSTPATH WRITELOG JUSTFNAME MIGRATE WZISELECT SETFOXFILE JUSTEXT CURSCXID NSCREENSETS GOTHERM UPDATE2 CATALOG Error @1 occurred while creating Error @1 occurred while opening Error @1 occurred while opening WZSFNAME WZLLEAVEOPEN WZICODEPAGE WZSPROMPT WZISELECT PUTNAME THIS LLOCALERR PATH FILE_NAME ALIAS TITLE FOX_FILE INDEXES WIZARD NEW30ALIAS LHADERROR CERRSTR CPTAG WZNERROR FXSETTYPE ADDFPCREC) FOX_FILE WZSTYPE WZLFORCEEXT WZSSELECT NEW30ALIAS PATH FILE_NAME FORCEEXT FOX_FILE IF MESSAGEBOX(STRTRAN("You must convert your &wzsString before you can modify it in FoxPro. The original @1 will remain unchanged. Continue with conversion?","@1",PROPER(m.wzstype)),4 ) = 7 Begin migration to FoxPro 2.x format. QUERY _FOX3SPR _FOX3SPR Unable to migrate file. REPORT Unable to migrate file. LABEL Unable to migrate file. Migrated file @1 cannot be found. Unable to migrate file. Successfully completed migration to FoxPro 2.x format. WZSFNAME WZSTYPE WZLCONFIRM WZSNEWNAME SAVEAREA OTHIS WRITELOG _FOX3SPR TEMP1 FORCEEXT MIGDB4 Cannot open source file C APARMS NFILEREADY THIS OLD25FILE CROOTNAME JUSTSTEM CPATHNAME JUSTPATH CNEW30FILE READABLE LHADERROR CLEANUP LNIXNEWSCXV Migrating format file CC CLEAR READC PUSH KEYC ON KEY LABEL PGUP DO dopgup ON KEY LABEL PGDN DO dopgdn ON KEY LABEL CTRL+PGUP DO ctlpgup ON KEY LABEL CTRL+PGDN DO ctlpgdn IF EOF() GO BOTTOM ENDIF mignavpr.txt VALID CCOCN CLEAR TO FILL TO BOX BOX DOUB thiswidth=LEN(&thisopt) thiswidth=LEN(STR(&thisopt)) AVLINE THIS NTMPCOUNT NRECCOUNT GOTHERM SETTITLE PARTIALFNAME OLD25FILE UPDATE CTEMPDBF LINE CTEMPNAME LTEMPOPEN CPTAG CLEANUP LHADERROR CREATE25SCX CNEW30FILE CTHISALIAS LTHISOPEN NEWFILE OBJTYPE OBJCODE STYLE HEIGHT WIDTH JUSTSTEM GRIDV GRIDH WHENTYPE VALIDTYPE SHOWTYPE ACTIVTYPE DEACTTYPE PROCTYPE SETUPTYPE FLOAT CLOSE BORDER CENTER MINIMIZE SCHEME SCHEME2 DEACTIVATE SETUPCODE PROCCODE MIGNAVPR ENVIRON ASCRTABLES GETTABLES NTABLES UNIQUE PNAME UCLINE FINISH COMPLETE GETSAY FILLCHAR CVTLINE OPTIONS THISOPT OPTNAME REFRESH PICTWIDTH THISVPOS THISHPOS THISWIDTH LDBFOPEN ANAME FLDNAME FMT_ALIAS PICTURE THISPICT VALID WHEN COLORPAIR MESSAGE RANGELO RANGEHI ERROR FIXVERT PLATFORM UNIQUEID SCRHEIGHT NMAXWIDTH NMAXHEIGHTG ASCRTABLES CTABLE NOLDLEN THIS CPATHNAME CTHISALIAS CTEMPNAME CTEMPDBF CFMTALIAS Create25SCX> InitF Error Converter ClosePJX CatConvQ ConvertDB2FP fpcnew addfpcrec SetFoxFileP" migrate InitC) Converter GetTables Cleanup FmtConverter FMTCONVERTERCLASS CERRSTR LDBFOPEN LTHISOPEN CTHISALIAS CFMTALIAS LNIXNEWSCX BARCOUNT CFMTDBF CHOOSEVAR FINISH CROOTNAME CPATHNAME CTEMPDBF CTEMPNAME LTEMPOPEN ForeignConverterBase ConverterBase DB4CatConverter FPCConverter FmtConverter ForeignConverterBase m.returnmlineb m.allafterb m.occuranceb FIND_STR SEARCHFLD IGNOREWORD RETURNMLINE OCCURANCE ALLAFTER LNOSTRIP MEMODATA MEMLINE MEMLINE2 STR_DATA LASTMLINE MATCHCOUNT LINECOUNT LINECOUNT2 AT_MLINE AT_MLINE2 MLINE2 LF_POS LF_POS2 AT_POS MEMODATA2 CLEANWHITE m.insflagb m.replace_strb &searchfld=m.memodata &searchfld=m.stuff_str STUFF_STR SEARCHFLD REPLACE_STR INSFLAG INSBEFORE OCCURANCE VAR_TYPE MEMODATA MEMLINE SNPTNAME AT_POS LF_POS STR_LEN REMOVE_STR SUB_STR NLINE MEMOFINDg WINDOWS G_FIRSTPROC G_PLATLIST G_PROCS G_PROCNAMES G_TABCHR OBJTYPE ISGENPLAT PLATFORM UPDPROCARRAY PROCCODE EXTRACTPROCS! m.numlines = MEMLINES(&snipname) m.line = MLINE(&snipname, 1, _MLINE) PARAMETERS #SECT PROCEDURE FUNCTION SNIPNAME SNIPTYPE SECTNUM PROCLINENO NUMLINES WORD1 KILLCR WORDNUM MATCH W_NUM RET_STR STRT_POSB EXACTv CANDIDATE KEYWORD IN_EXACT RETLOGk IF ATC("PARA",&snipname) = 0 m.numlines = MEMLINES(&snipname) m.thisline = UPPER(LTRIM(MLINE(&snipname, 1, _MLINE))) #SECT m.thisline = UPPER(LTRIM(MLINE(&snipname, 1, _MLINE))) PARAMETERS m.contin = MLINE(&snipname, 1, _MLINE) #SECT EXTERNAL SNIPNAME THISPARAM NUMLINES THISLINE WORD1 CONTIN G_DBLAMPERSAND KILLCR ISCOMMENT WORDNUM MATCH" TEXTLINE ASTERISK ISNOTE AMPERSAND STATEMENT G_DBLAMPERSANDx PARAMETERS ISPAR MATCH WORDNUM CRCCODE THISCODE IN_REC OBJTYPE ISGENPLAT PLATFORM PROCCODE0 PLATNAME G_PLATFORMS PNAME PLATNAME LINENUM LASTMLINE PLATFORMCOL G_PROCNAMES G_PROCS GETPLATNUMh PLATNAME G_PLATLIST proccode m.sniplen = LEN(&snipname) m.numlines = MEMLINES(&snipname) m.thisline = UPPER(ALLTRIM(MLINE(&snipname,1, _MLINE))) PROCEDURE FUNCTION WINDOWS SCRNNO SNIPNAME HASCONTIN ISCONTIN SNIPLEN THISLINE WORD1 WORD2 KILLCR WORDNUM MATCH GETPROCNUM G_PROCS EMITPROC HASCONFLICT EMITBRACKET G_TABCHR G_PLATFORMS G_PLATLIST m.line = MLINE(&snipname,1, _MLINE) PROCEDURE FUNCTION DOWRITE THISLINE SNIPLEN SCRNNO SNIPNAME WORD1 WORD2 UPLINE DONE LASTMLINE ISCONTIN HASCONTIN PLATNUM G_GENVERS G_PLATFORMS GETPLATNUM WRITELINE KILLCR WORDNUM MATCH PROCEDURE PARAMETERS C DO CASEC CASE ENDCASEC SCRNNO WORD1 WORD2 UPLINE DONE LASTMLINE ISCONTIN HASCONTIN _FOX3SPR SPRMEMO G_PROCS PLATNUM G_PLATLIST G_TABCHR PUTPROC\ PROCEDURE FUNCTION PARAMETERS PLATNUM PROCNUM SCRNNO IN_REC OLDMINE UPLINE ISCONTIN HASCONTIN WORD1 WORD2 OLDMLINE PLATFORM G_PLATLIST OBJTYPE G_PROCS PROCCODE KILLCR WORDNUM MATCH WRITELINE PROCEDURE FUNCTION PARAMETERS NUMLINES UPLINE WORD1 WORD2 ISCONTIN HASCONTIN LASTMLINE THISPROC PROCCODE KILLCR WORDNUM MATCH ADDPROCNAME PLATFORM LASTPROC GETPROCNUM THISPARAM G_PROCS CLEANPARAMg PNAME G_PROCNAMES G_PROCS #DEFI #ELSE #ENDIF PLATNAME PLATNUM UPLINE SCRNNO _FOX3SPR SPRMEMO G_TABCHR G_PROCS ASTRING CURPLAT ARRANGE_FLAG CENTER_FLAG LSCXCENTER PNAME ENTRIES FILENAME DOTPOS TERMINATOR FILENAME SLASHPOS NAMELEN COLONPOSz PATHNAME SEPARATOR: FILNAME CLOCALFNAME CDIRSEP FILNAME CLOCALFNAME CDIRSEP FILNAME CLOCALFNAME CDIRSEP FILNAME JUSTFNAME= FILNAME FILNAME FILLEN BNAME ELIPSE REMAIN G_PATHSEP JUSTFNAME RETSTR JUSTPATH FILNAME PNAME JUSTPATH JUSTFNAME ADDBS WZACPCODES Code page @1 is invalid. File @1 does not exist. Cannot open WZSFNAME WZICODEPAGE WZIHANDLE WZACPCODES WZIDBFBYTE CPCODES CFILE NFILEREADYQ WZSALIAS pathv WZSOLDNAME WZSJUSTPATH WZSPATH WZSTNAME ADDBS JUSTPATH PATH JUSTDRIVE" Cannot open Cannot close WZSFNAME WZITYPEBYTE WZIHANDLET TABLE QUERY DESIGN REPORT LABEL PROGRAM CATALOG WZSTYPE WZSMETHOD` \>CCC AVLINE LHSINGLE LHDOUBLE LVSINGLE LVDOUBLE NLEN NSTARTPOS NVPOS NHPOS NCURREC CCOLORPR NEWFILE CCHAR NASCVAL FILETYPE COLORPAIR OBJTYPE OBJCODE HEIGHT WIDTH NLEADSPAC NTRAILSPAC3 AVLINE NEWFILE OBJTYPE OBJCODE HEIGHT WIDTH UNIQUEID PLATFORM FILETYPE COLORPAIRI WZSALIAS RETVAL JUSTSTEM CDATA CDATATYPE CTEMPEXPR CSTRING CQUOTE CTEXT CLPAREN CRPAREN CTEXT ADIRARRY IDIRCT ADDBS Escape was pressed. Cancel conversion? gOPJXb GOPJX ERRORZ An error occurred in the Converter and it cannot continue. GERROR WZSBASENAME WZSEXTENSION WZLWITHMEMO WZSPATH WZSSTEM WZIWIDTH ADDBS JUSTPATH JUSTSTEM WZSAUTONAME FORCEEXT safetyv CATALOG TABLE QUERY REPORT LABEL PROGRAM CATALOG exists. Overwrite it? TABLE exists. Overwrite it? exists. Overwrite it? REPORT exists. Overwrite it? LABEL exists. Overwrite it? set safety &wzsSafety WZSFTYPE WZSMETHOD WZLDELFILE WZSSAFETY WZSFNAME WZSPROMPT WZSSTRING C_SAVETO_LOC LOCWORD FILEEXT FORCEEXT TABLE Table QUERY Query Screen REPORT Report LABEL Label PROGRAM Program CATALOG Catalog TABLE QUERY REPORT LABEL PROGRAM REPORT LABEL TABLE QUERY REPORT LABEL PROGRAM WZSTYPE WZIVARIATION C_TABLE1_LOC C_QUERY1_LOC C_FORM1_LOC C_REPORT1_LOC C_LABEL1_LOC C_PROGRAM1_LOC C_FORM2_LOC C_REPORT2_LOC C_LABEL2_LOC C_TABLE3_LOC C_QUERY3_LOC C_FORM3_LOC C_REPORT3_LOC C_LABEL3_LOC C_PROGRAM3_LOC+ CSTRING NDECIMALS CTEXT CTMP) CTEXT ALIST ITEXTLEN CCHAR NEXTITEM GETITEM~ CTEXT ILINELOC QUOTE LPARENCT ITEXTLEN CCHAR GETRPAREN CTEXT ILINELOC ITEXTLEN CCHAR RPAREN LPARENCT ENDQUOTE GETRPARENQ CFILE ADIRINFO} is read-only. It was not converted. is hidden or is a system file. It was not converted. oConvObjectb CFILE LRECURSE AFILES IALEN CTARGET JUSTEXT LSCX UPDATESCX ADDBS GOMASTER ACONVPARMS JUSTPATH APARMS OCONVOBJECT SCX30CONVERTERCLASS LHADERROR GRETURNVAL CONVERTER memofind, memostuffg genproc getfirstline wordnumy killcr match getparam3 iscomment isparameterx procsmatch isgenplatG! cleanparam addprocnamex" getplatnum extractprocsO% emitproc emitbracket putproc updprocarray getprocnum cleanparam writeline hasconflictY; getarrange stripextf> strippath stripcr;@ addbs justfnameqA juststem justpath justextQE JustDrive partialfname?F forceext{H CPCodes CPTag EscHand(P Readable3P TmpAlias UpdPaths DBTable3S FileExt{T CvtLine FixVert+a GoodName EvalData>d StripQuoteJe StripParen GoodName IsDir EscHandlerRh FatalErr autonameOi PutName LocWord ForceDecrw CleanWhite CHRTRANC GetArray GetItem#z GetRParen pReadOnly UpdateSCX6~ gopjx TALKv gAShowMe[1,1]b Courier Courier Geneva Geneva MS Sans Serif MS Sans Serif Courier Foxfont ERROR DO errorhandler WITH MESSAGE(), LINENO(), "Fatal" The Transporter cannot be run as a standalone program. Fatal m.g_scrndbfb Invalid screen/report name. Where is C Where is C Where is C Where is C SCX|FRX|LBX|PJX Select the file to transport Transport Visual FoxPro Transporter MS Sans Serif Geneva You must convert this file to an .FRX file before youC can use it. Use the Catalog Manager to open the file, or choose Convert dBASE files from the Run menu. Unknown report format Fatal Converting Converting Converting Transporting Converting Converting Converting The transporter has nothing to do. Unknown or invalid file format Fatal G_SCRNDBF TP_FILETYPE DUMMY GASHOWME GOTHERM CREALNAME TALKSET PCOUNT GERROR ICTR G_POPHGHT G_VPOPUP G_PIXELSIZE G_BANDHEIGHT G_BANDFUDGE G_MACBANDHEIGHT G_WINBANDHEIGHT G_CHECKMARK CURSOR CONSOL EXACT ESCAPE ONESCAPE SAFETY FIXED PRINT UNQSET UDFPARMS EXCLUSIVE ONERROR TRBETWEEN DEVICE STATUS G_FROMPLATFORM CHOICE G_FROMOBJONLYALIAS G_BOXEDITEMSALIAS G_TEMPALIAS MTOPIC RBORD MCOLLATE MMACDESK FIELDS MFIELDSTO DECI MEMOWIDTH CURRAREA G_CHAR2GRPH G_GRPH2CHAR G_GRPH2GRPH G_CHAR2CHAR G_TPFILEINDX SETALL G_LOOK2D G_FILETYPE G_CTRLFFACE G_CTRLFSIZE G_CTRLFSTYLE G_WINDFFACE G_WINDFSIZE G_WINDFSTYLE G_WINBTNHEIGHT G_MACBTNHEIGHT G_MACBTNFACE G_MACBTNSIZE G_MACBTNSTYLE G_WINBTNFACE G_WINBTNSIZE G_WINBTNSTYLE G_BTNHEIGHT G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE G_THERMFACE G_THERMSIZE G_THERMSTYLE G_RPTFFACE G_RPTFSIZE G_RPTFSTYLE G_RPTTXTFONTSTYLE G_RPTLINESIZE G_RPTCHARSIZE SETCTRL G_TDLGFACE G_TDLGSIZE G_TDLGSTYLE G_TDLGSTY1 G_TDLGSTY2 G_TDLGBTN G_SMFACE G_SMSIZE G_SMSTYLE G_SMSTY1 G_FONTSET G_FOXFONT G_FOXFSIZE G_NORMSTYLENUM G_BOLDSTYLENUM G_TOPLATFORM G_WINDHEIGHT G_WINDWIDTH G_THERMWIDTH G_MERCURY G_20ALIAS G_STATUS G_ENERGIZE G_NOREPEAT G_ALLOBJECTS G_NEWOBJECTS G_SNIPPETS G_NEWOBJMODE G_SCRNALIAS G_UPDENVIRON G_TPSELCNT G_BOXSTRG G_RETURNCODE G_TOCODEPAGE G_FROMCODEPAGE TPARRAY G_LASTOBJECTLINE G_TEMPINDEX ERRORHANDLER G_FONTAVAIL G_FONTMAP INITFONTMAP ASSERT STRIPPATH CLEANUP PUTWINMSG SETVERSION SETTOCP GETOLDREPORTTYPE GETOLDLABELTYPE DOUPDATE CVRT102FRX CVRTFBPRPT CVRT102LBX CVRTFBPLBL OPENDBF SETFROMCP STARTTHERM CONVERTER IMPORT SYNCHTIME CONVERTTYPE MAKECURSOR VERSNUM ARRANGED OBJECT SYMBOLS DEVINFO No records to transport FNAME G_SCRNALIASS Convert 1.02 report file to 2.6 format? Convert FoxBASE+/dBASE III report file to FoxPro 2.6 format? Convert 1.02 label file to 2.6 format? Convert FoxBASE+/dBASE III label file to FoxPro 2.6 format? Convert 2.0 screen file to 2.6 format? Convert 2.0 report file to 2.6 format? Convert 2.0 project file to 2.6 format? Unknown doupdate operation Fatal RESULT TP_FILETYPE G_FILETYPE STRUCTDIALOG ERRORHANDLER FoxPro for MS-DOS/UNIX WINDOWS WINDOWS WINDOWS WINDOWS WINDOWSC UNIXC The transporter has nothing to do. TWOOH PCOUNT NPLATFORMS PLATFORMS TP_FILETYPE G_FILETYPE G_SCRNDBF OBJTYPE PLATFORM BOTTOM ISERRORMSG DISTINCT G_SCRNALIAS AVAILPLATFORMS G_FROMPLATFORM CLEANUP SCXFRXDIALOG SETRPTFONT WINDOWS Unknown Version of FoxPro. Fatal ERRORHANDLER Unknown Version of FoxPro. Fatal ERRORHANDLERq To and from platforms are the same in line CC NOCPTRANSv SET NOCPTRANS TO &cOldCPTrans WINDOWS WINDOWS WINDOWS WINDOWS G_FROMPLATFORM G_TOPLATFORM ASSERT G_ALLOBJECTS EMPTYPLATFORM COLDCPTRANS G_TEMPALIAS G_SCRNALIAS PLATFORM G_CHAR2GRPH G_GRPH2GRPH G_GRPH2CHAR G_CHAR2CHAR G_FILETYPE G_NOREPEAT GETCHARSUPPRESS CHARTOGRAPHIC GRAPHICTOCHAR GRAPHICTOGRAPHIC2 Transporting Transporting Transporting G_ALLOBJECTS STARTTHERM G_FILETYPE ALLGRAPHICTOCHAR SELECTOBJ G_MERCURY UPDTHERM PUTWINMSG STRIPPATH CREALNAME G_SCRNALIAS G_SNIPPETS UPDATESCREEN UPDATEREPORT G_NEWOBJECTS NEWGRAPHICTOCHAR2 Transporting Transporting Transporting G_ALLOBJECTS STARTTHERM G_FILETYPE ALLCHARTOGRAPHIC SELECTOBJ G_MERCURY UPDTHERM PUTWINMSG STRIPPATH CREALNAME G_SCRNALIAS G_SNIPPETS UPDATESCREEN UPDATEREPORT G_NEWOBJECTS NEWCHARTOGRAPHIC2 Transporting Transporting Transporting G_ALLOBJECTS STARTTHERM G_FILETYPE ALLGRPHTOGRPH SELECTOBJ G_MERCURY UPDTHERM PUTWINMSG STRIPPATH CREALNAME G_SCRNALIAS G_SNIPPETS UPDATESCREEN UPDATEREPORT G_NEWOBJECTS NEWGRPHTOGRPH IF &g_tempalias..timestamp > timestamp REPLACE name WITH &g_tempalias..name REPLACE expr WITH &g_tempalias..expr REPLACE STYLE WITH &g_tempalias..style REPLACE PICTURE WITH mapbutton(&g_tempalias..picture,PICTURE) REPLACE PICTURE WITH &g_tempalias..picture REPLACE ORDER WITH &g_tempalias..order REPLACE unique WITH &g_tempalias..unique REPLACE boxchar WITH &g_tempalias..boxchar REPLACE fillchar WITH &g_tempalias..fillchar REPLACE TAG WITH &g_tempalias..tag REPLACE tag2 WITH &g_tempalias..tag2 REPLACE ruler WITH &g_tempalias..ruler REPLACE rulerlines WITH &g_tempalias..rulerlines REPLACE grid WITH &g_tempalias..grid REPLACE gridv WITH &g_tempalias..gridv REPLACE gridh WITH &g_tempalias..gridh REPLACE FLOAT WITH &g_tempalias..float REPLACE CLOSE WITH &g_tempalias..close REPLACE MINIMIZE WITH &g_tempalias..minimize REPLACE BORDER WITH &g_tempalias..border REPLACE SHADOW WITH &g_tempalias..shadow REPLACE CENTER WITH &g_tempalias..center REPLACE REFRESH WITH &g_tempalias..refresh REPLACE disabled WITH &g_tempalias..disabled REPLACE scrollbar WITH &g_tempalias..scrollbar REPLACE addalias WITH &g_tempalias..addalias REPLACE TAB WITH &g_tempalias..tab REPLACE initialval WITH &g_tempalias..initialval REPLACE initialnum WITH &g_tempalias..initialnum REPLACE spacing WITH &g_tempalias..spacing REPLACE objcode WITH &g_tempalias..objcode REPLACE lotype WITH &g_tempalias..lotype REPLACE rangelo WITH &g_tempalias..rangelo REPLACE hitype WITH &g_tempalias..hitype REPLACE rangehi WITH &g_tempalias..rangehi REPLACE whentype WITH &g_tempalias..whentype REPLACE WHEN WITH &g_tempalias..when REPLACE validtype WITH &g_tempalias..validtype REPLACE VALID WITH &g_tempalias..valid REPLACE errortype WITH &g_tempalias..errortype REPLACE ERROR WITH &g_tempalias..error REPLACE messtype WITH &g_tempalias..messtype REPLACE MESSAGE WITH &g_tempalias..message REPLACE showtype WITH &g_tempalias..showtype REPLACE SHOW WITH &g_tempalias..show REPLACE activtype WITH &g_tempalias..activtype REPLACE ACTIVATE WITH &g_tempalias..activate REPLACE deacttype WITH &g_tempalias..deacttype REPLACE DEACTIVATE WITH &g_tempalias..deactivate REPLACE proctype WITH &g_tempalias..proctype REPLACE proccode WITH &g_tempalias..proccode REPLACE setuptype WITH &g_tempalias..setuptype REPLACE setupcode WITH &g_tempalias..setupcode REPLACE timestamp WITH &g_tempalias..timestamp THERMSTEP PLATFORM G_TOPLATFORM G_NEWOBJECTS G_TEMPALIAS G_SCRNALIAS G_FROMPLATFORM ISSELECTED UNIQUEID OBJTYPE OBJCODE SNIPONLY GETSNIPFLAG SETUPCODE UPDENVIRON G_GRPH2CHAR ORDER WIDTH EXPR G_MERCURY UPDTHERM NOCPTRANSv IF &g_tempalias..timestamp > timestamp REPLACE name WITH &g_tempalias..name REPLACE expr WITH &g_tempalias..expr REPLACE STYLE WITH &g_tempalias..style REPLACE PICTURE WITH &g_tempalias..picture REPLACE ORDER WITH &g_tempalias..order REPLACE unique WITH &g_tempalias..unique REPLACE ENVIRON WITH &g_tempalias..environ REPLACE boxchar WITH &g_tempalias..boxchar REPLACE fillchar WITH &g_tempalias..fillchar REPLACE TAG WITH &g_tempalias..tag REPLACE tag2 WITH &g_tempalias..tag2 REPLACE mode WITH &g_tempalias..mode REPLACE ruler WITH &g_tempalias..ruler REPLACE rulerlines WITH &g_tempalias..rulerlines REPLACE grid WITH &g_tempalias..grid REPLACE gridv WITH &g_tempalias..gridv REPLACE gridh WITH &g_tempalias..gridh REPLACE FLOAT WITH &g_tempalias..float REPLACE STRETCH WITH &g_tempalias..stretch REPLACE stretchtop WITH &g_tempalias..stretchtop REPLACE TOP WITH &g_tempalias..top REPLACE BOTTOM WITH &g_tempalias..bottom REPLACE suptype WITH &g_tempalias..suptype REPLACE suprest WITH &g_tempalias..suprest REPLACE norepeat WITH &g_tempalias..norepeat REPLACE resetrpt WITH &g_tempalias..resetrpt REPLACE pagebreak WITH &g_tempalias..pagebreak REPLACE colbreak WITH &g_tempalias..colbreak REPLACE resetpage WITH &g_tempalias..resetpage REPLACE GENERAL WITH &g_tempalias..general REPLACE spacing WITH &g_tempalias..spacing REPLACE DOUBLE WITH &g_tempalias..double REPLACE swapheader WITH &g_tempalias..swapheader REPLACE swapfooter WITH &g_tempalias..swapfooter REPLACE ejectbefor WITH &g_tempalias..ejectbefor REPLACE ejectafter WITH &g_tempalias..ejectafter REPLACE PLAIN WITH &g_tempalias..plain REPLACE SUMMARY WITH &g_tempalias..summary REPLACE addalias WITH &g_tempalias..addalias REPLACE offset WITH &g_tempalias..offset REPLACE topmargin WITH &g_tempalias..topmargin REPLACE botmargin WITH &g_tempalias..botmargin REPLACE totaltype WITH &g_tempalias..totaltype REPLACE resettotal WITH &g_tempalias..resettotal REPLACE resoid WITH &g_tempalias..resoid REPLACE curpos WITH &g_tempalias..curpos REPLACE supalways WITH &g_tempalias..supalways REPLACE supovflow WITH &g_tempalias..supovflow REPLACE suprpcol WITH &g_tempalias..suprpcol REPLACE supgroup WITH &g_tempalias..supgroup REPLACE supvalchng WITH &g_tempalias..supvalchng REPLACE supexpr WITH &g_tempalias..supexpr userb .user REPLACE user WITH &g_tempalias..user REPLACE timestamp WITH &g_tempalias..timestamp SET NOCPTRANS TO &cOldCPTrans THERMSTEP COLDCPTRANS PLATFORM G_TOPLATFORM G_NEWOBJECTS G_TEMPALIAS G_SCRNALIAS G_FROMPLATFORM ISSELECTED UNIQUEID OBJTYPE OBJCODE UPDENVIRON G_GRPH2CHAR WIDTH ADJRPTSUPPRESS ADJRPTFLOAT TOTALTYPE ADJRPTRESET G_MERCURY UPDTHERM MUSTEXIST ENVSELECT ISNEWERENV ISENVIRON OBJTYPE PLATFORM G_TOPLATFORM G_FROMPLATFORM G_GRPH2CHAR G_UPDENVIRON WINDOWS G_SCRNALIAS G_20ALIAS WASARRANGED ARRANGED DEVINFO SCRNROW SCRNCOL SYMBOLS CKVAL TIMESTAMP THERMSTEP BANDCOUNT G_NEWOBJMODE G_SCRNALIAS G_CHAR2GRPH GETWINDFONT UPDENVIRON PLATFORM G_TOPLATFORM OBJTYPE WFONTFACE FONTFACE WFONTSIZE FONTSIZE WFONTSTYLE FONTSTYLE G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE G_TEMPALIAS G_FROMPLATFORM ISSELECTED UNIQUEID OBJCODE G_SNIPPETS G_FILETYPE NEWBANDS BANDS BANDINFO RIGHTMOST BOTTOMMOST PLATFORMDEFAULTS FILLININFO ADJBOX RPTOBJCONVERT FINDLIKEVPOS FINDLIKEHPOS WIDTH NUM2STYLE HEIGHT G_MERCURY UPDTHERM THERMSTEP BANDCOUNT G_NEWOBJMODE G_SCRNALIAS UPDENVIRON G_TEMPALIAS PLATFORM G_FROMPLATFORM OBJTYPE OBJCODE ISSELECTED UNIQUEID BLACKBOX FILLRED FILLBLUE FILLGREEN FILLPAT G_TOPLATFORM G_SNIPPETS G_FILETYPE NEWBANDS BANDS BANDINFO PLATFORMDEFAULTS FILLININFO ADJHEIGHTANDWIDTH RPTOBJCONVERT FINDLIKEVPOS FINDLIKEHPOS G_MERCURY UPDTHERM MAKECHARFIT THERMSTEP BANDCOUNT G_NEWOBJMODE G_BANDFUDGE G_SCRNALIAS UPDENVIRON G_TEMPALIAS PLATFORM G_FROMPLATFORM ISSELECTED UNIQUEID OBJTYPE OBJCODE G_TOPLATFORM G_SNIPPETS G_FILETYPE NEWBANDS BANDS BANDINFO PLATFORMDEFAULTS FILLININFO ADJHEIGHTANDWIDTH RPTOBJCONVERT FINDLIKEVPOS FINDLIKEHPOS G_MERCURY UPDTHERMF PREVBAND BANDSTART BANDHEIGHT OBJTYPE G_SCRNALIAS PLATFORM G_FROMPLATFORM UNIQUEID G_TOPLATFORM RPTOBJCONVERT G_CHAR2GRPH HEIGHT G_BANDHEIGHT G_BANDFUDGE G_PIXELSIZE G_GRPH2CHAR G_GRPH2GRPH OBJCODE BANDPOS G_TEMPALIAS5 OBJINDEX ALLENVIRONS G_FROMOBJONLYALIAS RECNUM G_SCRNALIAS PLATFORM G_FROMPLATFORM OBJTYPE BLACKBOX FILLRED FILLBLUE FILLGREEN FILLPAT G_FILETYPE OKTRANSPORT COMMENT ALLOTHERS ALLGROUPS G_TOPLATFORM OBJCODE RPTCONVERT MERGELABELOBJECTS LINESBETWEEN MAKECHARFIT SUPPRESSBLANKLINES OBJINDEX ALLENVIRONS G_FROMOBJONLYALIAS RECNUM G_SCRNALIAS PLATFORM G_FROMPLATFORM OBJTYPE G_FILETYPE OKTRANSPORT COMMENT OBJECTPOS ALLOTHERS ALLGROUPS CALCWINDOWDIMENSIONS ADJITEMSINBOXES ADJINVBTNS JOINLINES RPTCONVERT SUPPRESSBLANKLINES ADDGRAPHICALLABELGROUPS LABELBANDS LABELLINES G_MERCURY UPDTHERM G_ALLOBJECTS G_TOPLATFORM STYLE G_WINDHEIGHT G_LASTOBJECTLINE ADJUSTMENT HEIGHT FONTFACE FONTSIZE NUM2STYLE FONTSTYLE STRETCHLINESTOBORDERS OBJINDEX ALLENVIRONS G_FROMOBJONLYALIAS RECNUM G_SCRNALIAS PLATFORM G_FROMPLATFORM OBJTYPE G_FILETYPE OKTRANSPORT COMMENT ALLOTHERS ALLGROUPS RPTCONVERT MERGELABELOBJECTS LINESBETWEEN FNAME102 FTYPE BAKNAME IN_AREA OBJTYPE CONTENT FLDCONTENT FRMCONTENT VERTPOS HORZPOS HEIGHT WIDTH FONTSIZE STYLE PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE PICTURE RANGEUP RANGELOW VALID INITC CALCEXP OUTNAME FORCEEXT FPOUT DOCREATE PLATFORM OBJCODE TOPMARGIN BOTMARGIN OFFSET ENVIRON EJECTBEFOR EJECTAFTER FLOAT CPTRANS G_TOCODEPAGE G_FROMCODEPAGE BOXCHAR TOTALTYPE RESETTOTAL NOREPEAT STRETCH FILLCHAR PAGEBREAK SWAPHEADER SWAPFOOTER Could not open FoxBASE+ report form Fatal FNAMEFBP FTYPE BAKNAME IN_AREA IDBYTE OBJNAME RP_POOL RP_LTADR RP_LTLEN RP_SSEXNO RP_SBEXNO RP_DOUBLESP RP_FLDS_WIDTH RP_FLDS_EXPRNO RP_WIDTH RP_FLDS_HEADNO RP_PLAIN BAND_ROWS CURRENT_ROW GROUP_NUM HEAD_ROW RP_FLDS_TYPE RP_FLDS_TOTALS RP_FLDS_DP G_SCRNDBF ERRORHANDLER CVTSHORT POOLSIZE RP_PGHDNO RP_SBHDNO RP_SSHDNO RP_LENGTH RP_LMARG RP_RMARG RP_FLDCNT RP_SUMMARY RP_SUBEJECT RP_OTHER CVTBYTE RP_PAGENO DOCREATE EVALIMPORTEXPR INITBANDS BLDBREAKS BLDDETAIL OBJTYPE OBJCODE FORCEEXT unique FNAME102 FTYPE SHORT CONTLEN REMARKS HEIGHT LMARGIN WIDTH NUMACROSS SPACESBET LINESBET BAKNAME IN_AREA LBLNAME CVTSHORT LBLLINES START CURLEN OBJTYPE OBJCODE STYLE ENVIRON ORDER ADDALIAS CPTRANS G_TOCODEPAGE G_FROMCODEPAGE FORCEEXTW unique FNAMEFBP FTYPE WIDTH HEIGHT LMARGIN SPACESBET LINESBET NUMACROSS LBLNAME IN_AREA DUMMY REMARKS CVTSHORT LBLLINES LASTLINE OBJTYPE OBJCODE STYLE ENVIRON ORDER ADDALIAS CPTRANS G_TOCODEPAGE G_FROMCODEPAGE BAKNAME FORCEEXT PAGE NO. _PAGENO DATE() PLATFORM WIDTH RP_WIDTH HEIGHT RP_LENGTH OFFSET RP_LMARG EJECTBEFOR RP_PLAIN GROUP_NUM RP_SUMMARY SUMMARY RP_OTHER EJECTAFTER PLAIN RP_TOTALS CURRENT_ROW BANDSIZE STRING GETLITEXPR RP_PGHDNO LINESFORHEADING FLD_HEAD_EXIST HOWMANYHEADINGS MAKEBAND BANDSTRING RP_SBEXNO RP_SUBEJECT NEWPAGE RP_SSEXNO NUMLINES RP_DOUBLESP TOTALS_EXIST GROUPNUM MAKETEXT BAND_ROWS MAKEFIELD HEAD_ROW HEADING GETHEADING CENTER_COL EXPRNO HEADNO STARS STRING GETLITEXPR STRLEN MAKETEXT MAKEFIELD RP_LTLEN LITEXIST RP_SBEXNO BLDBREAKEXP RP_SBHDNO BAND_ROWS RP_SSEXNO RP_SSHDNO * Subsubtotal * ** Subtotal ** ** Subtotal ** *** Total *** PG_ROW ISTOTAL STRING HEADING BAND_ROWS RP_FLDCNT GETLITEXPR RP_FLDS_EXPRNO RP_FLDS_WIDTH RP_WIDTH MAKEFIELD RP_FLDS_TYPE RP_FLDS_TOTALS GROUP_NUM ADDTOTAL RP_FLDS_HEADNO HEAD_ROW GETHEADING MAKETEXT ISFIRST WORKSTR TOTALSTR RESET MAKETEXT MAKEFIELD RP_POOL RP_LTADR STRING LITEXIST RP_POOL RP_LTADR RP_LTLEN STRING NEWPAGE PLATFORM OBJTYPE OBJCODE CPTRANS G_TOCODEPAGE G_FROMCODEPAGE HEIGHT PAGEBREAK BAND_ROWS CURRENT_ROW STRING PLATFORM CPTRANS G_TOCODEPAGE G_FROMCODEPAGE OBJTYPE HEIGHT WIDTH HPOS3 STRING FLDCHAR STRCH TOTAL RESET PLATFORM OBJTYPE CPTRANS G_TOCODEPAGE G_FROMCODEPAGE HEIGHT WIDTH FILLCHAR STRETCH FLOAT TOTALTYPE RESETTOTAL HEADING STRING STRING RETVAL STRING2 HEADING GETHEADING RETVAL NEWVAL RP_FLDCNT GETLITEXPR RP_FLDS_HEADNO STRING LINESFORHEADING RP_FLDCNT LITEXIST RP_FLDS_HEADNO| RP_FLDCNT RP_FLDS_TOTALS5 LENGTH RP_WIDTH RP_LMARG RP_RMARG STRING RP_FLDCNT GETLITEXPR RP_FLDS_EXPRNO RP_FLDS_TYPE DBASE IV REPTOTALS RETCODE TP_FILETYPE G_SCRNDBF CVTSHORT DBASE IV REPTOTALS RETCODE TP_FILETYPE G_SCRNDBF CVTBYTE DUMMY .BMPC .BMP; .BMPbrlfq .bmp; .BMPbrlfq .BMPbrlfq brlfq ;NEW.BMP[ FROMBTN TOBTN ENDPOS OUTSTRG TOPOS PICTCLAU G_GRPH2CHAR G_CHAR2GRPH FROMARRAY TOARRAY SCATTERBUTTONS BTNLIST DESTARRAY FROMSTRG THEWORD OLDVPOS OBJID SAVEREC RETVAL PLATFORM G_FROMPLATFORM OBJTYPE UNIQUEID G_TOPLATFORM OLDHPOS OBJID SAVEREC RETVAL PLATFORM G_FROMPLATFORM OBJTYPE UNIQUEID G_TOPLATFORM RIGHT BOTTOM GETRIGHTMOST G_TOPLATFORM GETLOWEST PLATFORM OBJTYPE WIDTH HEIGHT G_FILETYPE RECNO PLATFORM G_FROMPLATFORM OBJTYPE G_FILETYPE FIXPEN G_TOPLATFORM ISENVIRON G_GRPH2CHAR G_WINDHEIGHT HEIGHT G_WINDWIDTH WIDTH ADJCOLOR G_CHAR2GRPH RULER RULERLINES GRIDV GRIDH PENRED PENGREEN PENBLUE STRETCHTOP BOTTOM CURPOS ADJOBJCODE ADJFONT G_MERCURY UPDTHERM_ THERMPART RECNO NUMOTHERS THERMSTEP OBJINDEX G_FROMOBJONLYALIAS RECNUM G_SCRNALIAS FIXPEN G_CHAR2GRPH CALCPOSITIONS GERROR PLATFORM G_TOPLATFORM FILLININFO G_MERCURY UPDTHERMe G_FILETYPE ADJRPTSUPPRESS ADJRPTFLOAT G_CHAR2GRPH OBJTYPE OBJCODE G_LOOK2D PICTURE ADDQUOTE MAKE2D MAKE3D WIDTH ADJRPTRESET FILLCHAR OFFSET G_GRPH2CHAR HEIGHT PENSIZE BOXCHAR OBJ2BASEFONT G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE FONTFACE FONTSIZE NUM2STYLE FONTSTYLE G_GRPH2GRPH G_WINBTNHEIGHT G_MACBTNHEIGHT G_POPHGHT PENPAT ADJPEN ADJCOLOR ADJFONT ADJHEIGHTANDWIDTH G_CHAR2GRPH FLOAT OBJTYPE HEIGHT STRETCHTOP BOTTOM STRETCH G_GRPH2CHAR G_CHAR2GRPH OBJTYPE NOREPEAT SUPVALCHNG SUPOVFLOW RESETRPT SUPRPCOL SUPGROUP SUPALWAYS G_GRPH2CHAR G_CHAR2GRPH RESETTOTAL G_GRPH2CHARF PLATFORM G_FROMPLATFORM OBJTYPE NOREPEATG SUPCOUNT G_GRPH2CHAR PLATFORM G_FROMPLATFORM OBJTYPE G_TOPLATFORM NOREPEAT G_CHAR2GRPH MYEXPR BCODE GETBANDCODE G_NOREPEAT THERMPART RECNO NUMOTHERS THERMSTEP OBJINDEX G_SCRNALIAS PLATFORM G_FROMPLATFORM OBJTYPE G_TOPLATFORM G_MERCURY UPDTHERM THERMSTEP PLATFORM G_TOPLATFORM ISREPTOBJECT OBJTYPE G_GRPH2CHAR RPTOBJCONVERT G_MERCURY UPDTHERM BANDCOUNT BANDS BANDINFO G_CHAR2GRPH CLONEBAND G_GRPH2GRPH BANDCOUNT BANDINDEX ENDINDEX POSINBAND SAVEREC OBJID ORIGVPOS LINEHEIGHT G_GRPH2GRPH GRPHRPTCVT G_NEWOBJMODE OBJTYPE G_CHAR2GRPH EMPTYBAND UNIQUEID HEIGHT CVTREPORTVERTICAL G_GRPH2CHAR OBJCODE WIDTH OFFSET ORIGHEIGHT ADJBOX ADJCOLOR ADJFONT GETBANDINDEX BANDS ENDINBAND CVTREPORTHORIZONTAL CVTRPTLINES ADJTEXT VPOS BANDCOUNT BANDSg SAVEREC BANDCOUNT PAGEFOOTER PAGEHEADER COLHEADER COLFOOTER TOPOSITION FROMPOSITION OBJCODE PLATFORM G_TOPLATFORM OBJTYPE BANDS G_CHAR2GRPH HEIGHT G_BANDHEIGHT G_BANDFUDGE G_PIXELSIZE G_GRPH2CHAR G_GRPH2GRPH G_FROMPLATFORM G_MACBANDHEIGHT G_WINBANDHEIGHT RESIZEBAND IN_AREA IN_REC PIVOT OUNIQID OVPOS OHPOS OWIDTH OHEIGHT OOBJCODE HEADBAND G_CHAR2GRPH PLATFORM G_TOPLATFORM OBJTYPE OBJCODE UNIQUEID HEIGHT TOBANDHEIGHT FMBANDVPOS FMBANDHEIGHT IN_REC MINBANDHEIGHT G_GRPH2CHAR PLATFORM G_FROMPLATFORM OBJTYPE HEIGHT CVTREPORTVERTICAL OBJID PLATFORM SAVEREC BANDSTART OBJTYPE UNIQUEID HEIGHT G_BANDHEIGHT G_BANDFUDGE G_PIXELSIZE SAVEREC BANDSTART BANDHEIGHT RETVAL G_TOPLATFORM PLATFORM G_FROMPLATFORM UNIQUEID HEIGHT BANDPOS OBJTYPE G_CHAR2GRPH* THISVPOS IN_NUM RETCODE STARTVPOS OBJTYPE PLATFORM G_TOPLATFORM HEIGHT G_BANDHEIGHT OBJCODEV WINDOWS BANDNUM G_FILETYPE OBJTYPE WIDTH GETTEXTWIDTH G_NEWOBJMODE GETBANDNUM HEIGHTY THEVPOS THEPLAT BANDNO CUMVPOS THEREC PLATFORM OBJTYPE HEIGHT G_BANDHEIGHT G_BANDFUDGE G_PIXELSIZE FONTFACE FONTSIZE NUM2STYLE FONTSTYLE G_PIXELSIZE UNITS G_GRPH2CHAR G_CHAR2GRPH G_RPTLINESIZE G_PIXELSIZE{ UNITS G_GRPH2CHAR G_CHAR2GRPH G_RPTCHARSIZE HEIGHT G_CHAR2GRPH G_GRPH2GRPH PLATFORM G_TOPLATFORM OBJTYPE LABELOBJMERGE0 RECNO SAVEREC WIDTH HEIGHT PICTURE FILLCHAR PLATFORM G_TOPLATFORM OBJTYPE m.g_scrnalias LINECOUNT SCANLOOP G_SCRNALIAS PLATFORM G_TOPLATFORM OBJTYPE LINES LINECOUNT BLANKLINES G_GRPH2GRPH PLATFORM G_TOPLATFORM OBJTYPE OBJCODE HEIGHT PENBLUE 3 1/2" x 15/16" x 1 3 1/2" x 15/16" x 2 3 1/2" x 15/16" x 3 3 2/10" x 11/12" x 3 (Cheshire) UUUUU 3" x 5 Rolodex 4" x 1 7/16" x 1 4" x 2 1/4 Rolodex 6 1/2" x 3 5/8 Envelope 9 7/8" x 7 1/8 Envelope LBXHEIGHT LBXWIDTH LBXLINESBET PLATFORM G_FROMPLATFORM OBJTYPE OBJCODE HEIGHT PENBLUE WIDTH G_RPTLINESIZE G_RPTCHARSIZE G_TOPLATFORM BANDSTART LINECOUNT THERMSTEP LBXWIDTH SAVEREC NEXTEXPR PLATFORM G_TOPLATFORM OBJTYPE WIDTH G_FROMPLATFORM G_RPTCHARSIZE OBJCODE G_RPTLINESIZE HEIGHT FILLCHAR FLOAT STRETCH SPACING OFFSET TOTALTYPE RESETTOTAL SUPALWAYS SUPOVFLOW SUPRPCOL SUPGROUP SUPVALCHNG ADJFONT ADJCOLOR G_MERCURY UPDTHERM INDEX RECORD HORIZ WIDTH NUMOTHERS THERMSTEP OBJECTPOS G_WINDWIDTH G_WINDHEIGHT UNIQUEID OBJTYPE SPACING PICTURE VERT1 ENDPOS[ CURLINE LARGESTOBJ LINEHEIGHT ADJWINDOWWIDTH THERMSTEP G_FROMOBJONLYALIAS G_SCRNALIAS UNIQUEID PLATFORM G_TEMPINDEX G_TOPLATFORM ADJWINDWIDTH FINDWIDEROBJECTS OBJECTPOS ADJHEIGHT OBJINDEX HORIZBUTTON NUMITEMS G_MERCURY UPDTHERM OBJTYPE WIDTH REPOOBJECTS HEIGHT ADJWINDOWWIDTH CURCOL ADJCOL RIGHTALIGNFLAG NUMITEMS OLDUNIQUEID OLDWIDTH BUTTONFLAG NEWWIDTH ADJUST THERMSTEP OBJINDEX OBJECTPOS HORIZBUTTON UNIQUEID PLATFORM G_TOPLATFORM WIDTH SPACING OBJTYPE ADJHPOS HPOS G_MERCURY UPDTHERM+ REPLACE &g_scrnalias..hpos WITH &g_scrnalias..hpos + m.adjustment REPLACE &g_scrnalias..width WITH &g_scrnalias..width + m.adjustment ADJUSTMENT POSITION G_FROMOBJONLYALIAS PLATFORM G_FROMPLATFORM OBJTYPE HEIGHT WIDTH G_SCRNALIASj WINDHEIGHT WINDWIDTH THERMSTEP RIGHTALIGN SAVEREC ADJUST BUTTONADJUST NUMRB WIDTH OBJINDEX OBJECTPOS CURLINE PLATFORM G_TOPLATFORM UNIQUEID G_LASTOBJECTLINE GETLASTOBJECTLINE HEIGHT HORIZBUTTON G_VPOPUP ADJBOX G_MERCURY UPDTHERM SUBFLAG EMPTYBOX NEWLASTLINE BOXDIMENSION G_FROMOBJONLYALIAS OBJTYPE HEIGHT WIDTH SHRINKBOX ITEMSINBOXES G_LASTOBJECTLINE G_VPOPUP G_SCRNALIAS THISID UNIQUEID PLATFORM G_TOPLATFORM boxdimension[1,2] = &g_scrnalias..vpos boxdimension[2,2] = &g_scrnalias..hpos m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height m.twidth = TXTWIDTH(&g_scrnalias..expr,g_dfltfface,g_dfltfsize,num2style(g_boldstylenum)) m.twidth = &g_scrnalias..width IF &g_scrnalias..hpos + m.twidth > boxdimension[4,2] boxdimension[4,2] = &g_scrnalias..hpos + m.twidth REPLACE &g_scrnalias..vpos WITH &g_scrnalias..vpos - 0.312 m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height boxdimension[4,2] = &g_scrnalias..hpos + getobjwidth(&g_scrnalias..objtype, &g_scrnalias..picture, &g_scrnalias..width, &g_scrnalias..spacing, m.g_toplatform) m.newbottom = &g_scrnalias..vpos + m.numitems + (&g_scrnalias..spacing * (m.numitems -1)) boxdimension[4,2] = &g_scrnalias..hpos + &g_scrnalias..width m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height boxdimension[4,2] = &g_scrnalias..hpos + &g_scrnalias..width m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height boxdimension[4,2] = &g_scrnalias..hpos + &g_scrnalias..width BOTTOM RIGHT EMPTYBOX SHRINKBOX WASAPOPUP OLDBOTTOM NEWBOTTOM TWIDTH G_BOXEDITEMSALIAS HEIGHT WIDTH UNIQUEID SPACING OBJTYPE PICTURE PLATFORM G_FROMOBJONLYALIAS CPTCOND G_TOPLATFORM G_SCRNALIAS BOXDIMENSION FINDOTHERSONLINE G_CHAR2GRPH NUMITEMS HORIZBUTTON GETOBJWIDTH( m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height LINENO NEWBOTTOM OLDBOTTOM CURTYPE SAVEREC PREVTYPE OBJTYPE HEIGHT SAVEREC HORIZONTAL BTNID OBJID FLAG THERMSTEP LEFTMOST LABEL BTNVPOS BTNHPOS BTNWIDTH BTNHEIGHT BTNSPACING BTNCOUNT DEFWIDTH DEFWIDTHINDEX DEFHEIGHT DEFHEIGHTINDEX TOPMARGIN BOTTOMMARGIN LEFTMARGIN RIGHTMARGIN ADJUSTMENT TOTADJUST NEWHPOS PLATFORM G_FROMPLATFORM OBJTYPE HORIZBUTTON PICTURE HEIGHT WIDTH SPACING UNIQUEID SIZES G_TOPLATFORM ADJPOSTINV G_MERCURY UPDTHERM YSTART XSTART ADJUSTMENT SAVEREC SAVEID FINDALIGNEND PLATFORM G_FROMPLATFORM OBJTYPE C_LIST C_POPUP UNIQUEID G_TOPLATFORM7 YSTART XSTART INCREMENT SAVEREC YTEMP XTEMP RESULT PLATFORM G_FROMPLATFORM OBJTYPE C_LIST C_POPUP| SAVEREC OBJID OBJREC OBJWIDTH FROMHEIGHT FROMWIDTH G_FILETYPE PLATFORM G_FROMPLATFORM OBJTYPE BORDER STYLE HEIGHT WIDTH UNIQUEID G_TOPLATFORM TOHEIGHT TOWIDTHO SAVEREC JOINCOUNT LINEREC LINEID THERMSTEP OBJVPOS OBJHPOS OBJRIGHT OBJBOTTOM OBJID OBJREC OBJCODE FROMVPOS FROMHPOS FROMHEIGHT FROMWIDTH FROMEND FROMCODE TOVPOS TOHPOS TOHEIGHT TOWIDTH JOINVPOS JOINHPOS VLEVEL HLEVEL JOINS PLATFORM G_FROMPLATFORM OBJTYPE WIDTH HEIGHT G_MERCURY UPDTHERM UNIQUEID G_TOPLATFORM JOINHORIZONTAL JOINVERTICAL MEETBOXCHAR ZAPBOXCHAR REJOINBOXES FROMVPOS OLDHPOS1 OLDHPOS2 TOVPOS TOTHICKNESS FROMCODE OBJVPOS OBJHPOS OBJRIGHT OBJBOTTOM OBJCODE OBJID OBJREC WIDTH HEIGHT UNIQUEID PLATFORM G_TOPLATFORM OBJTYPE JOINVPOS VLEVEL HLEVEL GETLINEWIDTH JOINHPOS ADDJOIN OLDVPOS1 OLDVPOS2 FROMHPOS TOHPOS FROMCODE OBJVPOS OBJHPOS OBJRIGHT OBJBOTTOM OBJCODE OBJID OBJREC WIDTH HEIGHT UNIQUEID PLATFORM G_TOPLATFORM OBJTYPE JOINHPOS VLEVEL HLEVEL GETLINEWIDTH JOINVPOS ADDJOIN$ SAVEREC FROMVPOS FROMHPOS TOVPOS TOHPOS JOINREC JOINID PLATFORM G_FROMPLATFORM OBJTYPE CPTCOND UNIQUEID G_TOPLATFORM WIDTH HEIGHT ADDJOIN RECNO FROMVPOS FROMHPOS PLATFORM G_TOPLATFORM OBJTYPE BOXJOIN MODE! FROMVPOS FROMHPOS TOVPOS TOHPOS VMATCH HMATCH JOINS JOINCOUNT FROMVPOS FROMHPOS TOVPOS TOHPOS OBJECTCODE OBJEND SAVERECNO OBJID JOINWIDTH OBJREC PLATFORM G_FROMPLATFORM OBJTYPE WIDTH HEIGHT UNIQUEID OBJCODE G_TOPLATFORM JOINLINEWIDTH GETLINEWIDTH JOINVPOS JOINHPOS HORIZONTAL SKIPID SAVERECNO THICKNESS PLATFORM G_FROMPLATFORM OBJTYPE UNIQUEID WIDTH HEIGHT GETLINEWIDTH OBJCODEl CURRENTLASTLINE NEWPOSITION NUMITEMS OBJTYPE G_LASTOBJECTLINE HEIGHT HORIZBUTTON PICTURE SPACING} OBJTYPE G_FILETYPE OBJCODE G_CHAR2GRPH PLATFORM G_TOPLATFORM OBJTYPE FONTFACE G_DFLTFFACE G_DFLTFSIZE FONTSIZE G_DFLTFSTYLE NUM2STYLE FONTSTYLE TXTWIDTHRATIO BOLDTXTRATIO CHKBOXWIDTH SAVEREC OLDWIDTH NEWHEIGHT NEWWIDTH WNDFACE WNDSIZE WNDSTYLE ALIGNMENT G_CHAR2GRPH PLATFORM G_TOPLATFORM OBJTYPE FONTFACE FONTSIZE FONTSTYLE G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE NUM2STYLE G_BOLDSTYLENUM G_GRPH2CHAR G_FROMPLATFORM G_CTRLFFACE G_CTRLFSIZE G_CTRLFSTYLE WIDTH DOSSIZE COLUMNAR HEIGHT ADJTEXT PICTURE ADJBITMAPCTRL MAXBTNWIDTH SPACING G_POPHGHT G_GRPH2GRPH G_BTNHEIGHT OBJCODE ADJBOX$ OTYPE SAVEREC PLATFORM G_FROMPLATFORM OBJTYPE WIDTH0 OBJSIZE SCRNSIZE FUNCTION OLDPICTURE NEWPICTURE PICTURE STRIPPATHJ G_CHAR2GRPH G_FILETYPE COLORPAIR PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE OBJTYPE CONVERTCOLORPAIR G_GRPH2CHAR STYLE SCHEME SCHEME2 RGBTOX' GREEN COLOR G_CHAR2GRPH OBJTYPE PENSIZE PENPAT FILLPAT? OUTFACE OUTSIZE OUTSTYLE FONTFACE FONTSIZE NUM2STYLE FONTSTYLE G_CHAR2GRPH G_GRPH2GRPH OBJTYPE G_FONTSET G_DFLTFFACE G_DFLTFSIZE STYLE2NUM G_DFLTFSTYLE COMMONFONT G_WINDFFACE G_WINDFSIZE G_WINDFSTYLE G_CTRLFFACE G_CTRLFSIZE G_CTRLFSTYLE G_FILETYPE STYLE G_NORMSTYLENUM G_BOLDSTYLENUM MAPFONTV ARIAL COURIER NEW TIMES NEW ROMAN THEFONT -*/, -*/, OLDSCHEME RGBVALUE COMMA COLORPAIR PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE RGBSTRING OCCURENCE COMMA VALUE m.stylenumb BIUOSCE- STYLENUM STYLECHARS OUTSTRG\ m.strgb OLDWIDTH SAVEREC OBJTYPE G_GRPH2CHAR WIDTH PICTURE SPACING HEIGHT PLATFORM UNIQUEID ADJUST G_CHAR2GRPH OBJCODE PENSIZE HEIGHT GETLINEWIDTH G_FILETYPE STYLE PENPAT FILLPAT OBJTYPE WIDTH BORDER G_GRPH2CHAR FILLCHAR OBJCODE HORIZONTAL G_FILETYPE G_RPTFFACE G_RPTFSIZE G_RPTTXTFONTSTYLE G_DFLTFFACE G_DFLTFSIZE_ PICTCLAUSE PICTURE STYLE LABEL G_CHAR2GRPH G_GRPH2GRPH G_GRPH2CHAR+ WINDOWS OBJTYPE PICTURE WIDTH SPACING PLATFORM NUMITEMS HORIZBUTTON* WINDOWS OBJTYPE PICTURE HEIGHT SPACING PLATFORM NUMITEMS HORIZBUTTON PLATFORM RIGHT OBJTYPE GETOBJWIDTH PICTURE WIDTH SPACING G_TOPLATFORM PLATFORM BOTTOM OBJTYPE GETOBJHEIGHT PICTURE HEIGHT SPACING G_TOPLATFORM% unique unique PLATFORM UNIQUEID TIMESTAMP OBJTYPE OBJCODE HEIGHT WIDTH STYLE PICTURE ORDER COMMENT ENVIRON BOXCHAR FILLCHAR PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE PENSIZE PENPAT FILLPAT FONTFACE FONTSTYLE FONTSIZE RULER RULERLINES GRIDV GRIDH SCHEME SCHEME2 COLORPAIR LOTYPE RANGELO HITYPE RANGEHI WHENTYPE WHEN VALIDTYPE VALID ERRORTYPE ERROR MESSTYPE MESSAGE SHOWTYPE SHOW ACTIVTYPE ACTIVATE DEACTTYPE DEACTIVATE PROCTYPE PROCCODE SETUPTYPE SETUPCODE FLOAT CLOSE MINIMIZE BORDER SHADOW CENTER REFRESH DISABLED SCROLLBAR ADDALIAS INITIALVAL INITIALNUM SPACING CURPOS STRETCH STRETCHTOP BOTTOM SUPTYPE SUPREST NOREPEAT RESETRPT PAGEBREAK COLBREAK RESETPAGE GENERAL DOUBLE SWAPHEADER SWAPFOOTER EJECTBEFOR EJECTAFTER PLAIN SUMMARY OFFSET TOPMARGIN BOTMARGIN TOTALTYPE RESETTOTAL RESOID SUPALWAYS SUPOVFLOW SUPRPCOL SUPGROUP SUPVALCHNG SUPEXPR OUTFILE HOMEDIR SETID EXCLUDE MAINPROG ARRANGED SAVECODE DEFNAME OPENFILES CLOSEFILES DEFWINDS RELWINDS READCYCLE MULTREADS NOLOCK MODAL ASSOCWINDS DEBUG ENCRYPT NOLOGO SCRNORDER CMNTSTYLE OBJREV COMMANDS DEVINFO SYMBOLS OBJECT CKVAL NOCPTRANSv DELETEDv tag2b tag2b SET NOCPTRANS TO &cOldCPTrans SET DELETED &in_del TEMP20ALIAS IN_DEL COLDCPTRANS CTAG2 DOCREATE G_FILETYPE TAG2 G_SCRNDBF G_SCRNALIAS G_20ALIAS G_CHAR2GRPH OBJTYPE OBJCODE HEIGHT PAGEBREAK COLBREAK RESETPAGE PLATFORM G_TOPLATFORM UNIQUEID LBXNUMACROSS LBXLMARGIN LBXSPACESBET LBXLINESBET LBXHEIGHT ADDGRAPHICALLABELGROUPS OBJTYPE OBJCODE HEIGHT PAGEBREAK COLBREAK RESETPAGE PENBLUE TIMESTAMP UNIQUEID PLATFORM G_FROMPLATFORM G_CHAR2GRPH RULER RULERLINES GRIDV GRIDHU LBXNUMACROSS LBXLMARGIN LBXSPACESBET LBXLINESBET LBXHEIGHT TIMESTAMP G_FILETYPE OBJTYPE NUMACROSS LMARGIN SPACESBET LINESBET HEIGHT MAKECURSOR UPDATELABELDATA CONVERTPROJECT STAMPVAL PLATFORMDEFAULTS UPDATEVERSIONu PLATFORM OBJTYPE G_FILETYPE OBJCODE CONVERTEDPLATFORM MATCHPLATFORM TIMESTAMP PLATFORM OBJTYPE CC$%CCC$H CCC$i CCCC^ CCCC^ CCCC^ DATEVAL TIMEVAL SHIFTL SHIFTRZ VALUE TIMES LOOP\ VALUE TIMES PLATFORM COUNT G_SCRNALIAS screen report label project tstructd Converter Converter tstructd @*HT3 \!\<Yes;\?\<Cancel tstructd tstructd File: @*HT \<Yes;\!\?\<No Unknown Version. Fatal tstructd TEXTLINE CHOICE FTYPE DLGWIDTH FNT_RATIO G_FILETYPE UPDTHERM TSTRUCTD G_TDLGFACE G_TDLGSIZE G_TDLGSTYLE G_TDLGSTY2 G_TDLGBTN G_SCRNDBF JUSTFNAME ERRORHANDLER CURPOS, WINDOWS Visual FoxPro Transporter transdlg Transport Screen File: Report File:6 There are objects in this file defined C for a platform other than By transporting this file, you add, update, or C replace definitions for objects in the file. Transport Objects From: The objects are new to C , or more recently modified than their equivalents. Than C Equivalent Objects A`U@@ |?U8@ Objects New to A`UA@ Objects More Recently Modified All Objects -- Replace Existing Definitions. @*VNT C Convert As Is @*VN Font... @*RV Ask for each file;Don't ask for PJXSCXFRX files;Don't ask for any files Visual FoxPro Transporter transdlg Screen File: Report File: Label File:66 There are objects in this file defined C for a platform other than By transporting this file, you createC definitions for these objects. If the file is not transported, it will not be converted. Transport Objects From: |?U8@ @*VN Font... @*VNT C Don't Transport @*RV Ask for each file;Don't ask for PJXSCXFRX files;Don't ask for any files l'*@6 Visual FoxPro Transporter transdlg Screen File: Report File:6 @*VNTM C Open As Is @*VNM Font... @*C3 2D Controls There are objects in this file defined C for a platform other than The objects are new to C , or more recently modified than their equivalents. By transporting this file, you add, update, or C replace definitions for objects in the file. Transport Objects From: @^3 C |?U8@ Transport @*C3 Objects New to A`UA@ Objects More Recently Modified Than C Equivalent Objects @*C3 All Objects -- Replace Existing Definitions. @*RV Ask for each file;Don't ask for PJXSCXFRX files;Don't ask for any files Visual FoxPro Transporter transdlg Screen File: Report File: Label File:66 There are objects in this file defined C for a platform other than By transporting this file, you createC definitions for these objects. Transport Objects From: @*VNTM C Cancel @*VNM Font... @*C3 2D Controls @^3 C |?U8@ @*RV Ask for each file;Don't ask for PJXSCXFRX files;Don't ask for any files FoxPro for Windows transdlg Screen File: Report File:6 There are objects in this file defined for a platform other than MS-DOS. Transport Objects From: @*VNT \!Transport & Open;Open As Is;\?Cancel Transport Objects New to Objects More Recently Modified Than C Equivalent Objects All Objects -- Replace Existing Definitions. for objects in the file. By transporting this file, you add, update, or replace MS-DOS definitions transdlg transdlg Screen File: Report File:6 There are objects in this file defined for a platform other than MS-DOS. Transport Objects From: @*VNT \!Transport & Open;\?Cancel By transporting this file, you create MS-DOS definitions for these objects. transdlg Unknown FoxPro version. Fatal transdlg FTYPE CHOICE FROMPLATFORM DLGNUM GNSHOWME HASRECORDS DFLTPLAT G_ALLOBJECTS TRANSDLG G_TDLGFACE G_TDLGSIZE G_TDLGSTY1 G_TDLGSTYLE STRIPPATH CREALNAME VERSIONCAP G_TOPLATFORM THEPICT MAKEPICT G_NEWOBJECTS SCRNCTRL G_SNIPPETS TRANSPRMPT PVALID G_ASKFONT ASKFONT G_TPFILEINDX IFORMWIDTH IFORMHEIGHT G_TDLGBTN G_LOOK2D SETCTRL G_SMFACE G_SMSIZE G_SMSTY1 G_SMSTYLE G_TDLGSTY2 G_FILETYPE ERRORHANDLER GASHOWME RDVALID DEACCLAU SHOWCLAU G_FONTSET G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE WINDOWS FoxPro for Windows FoxPro for Macintosh FoxPro for MS-DOS/UNIX FoxPro for Windows HASRECORDS> FoxPro for MS-DOS/UNIX FoxPro for MS-DOS/UNIX WINDOWS FoxPro for Windows FoxPro for Windows FoxPro for Macintosh FoxPro for Macintosh DFLTITEM PICTSTRG A_PLATS LOOPTOP FOUND_DFLT HASRECORDS Transport EnergizeC TRANSPRT5 Energize Transport G_ENERGIZE Transporting All Objects will overwrite all existing C object definitions in the file. DLGNUM GASHOWME G_TPFILEINDX G_ALLOBJECTS CHOICE VERSIONCAP G_TOPLATFORM Than C Equivalent Objects RGB(0,0,0,255,255,255) RGB(0,0,0,255,255,255) DLGNUM G_SNIPPETS G_NEWOBJECTS G_ALLOBJECTS THESTRING VERSIONCAP G_TOPLATFORM G_TDLGFACE G_TDLGSIZE G_TDLGSTYLE G_TDLGSTY1 CHOICE G_ALLOBJECTS G_NEWOBJECTS G_SNIPPETS WINDOWS WINDOWS FROMPLATFORM G_FROMPLATFORM screen: report: label: FILETYPE ACTTHERM Geneva MS Sans Serif FNAME ADDELIPSE G_PATHSEP G_THERMFFACE G_THERMFSIZE G_THERMFSTYLE PARTIALFNAME FILNAME FILLEN BNAME ELIPSE REMAIN G_PATHSEP JUSTFNAME RETSTR JUSTPATH thermomete thermomete thermomete @ 2,1 TO 4,m.g_thermwidth+4 &g_boxstrg PROMPT G_SCRNDBF THERMFNAME THERMOMETE G_TDLGFACE G_TDLGSIZE G_TDLGSTYLE G_THERMWIDTH G_THERMFACE G_THERMSIZE G_THERMSTYLE gOThermb thermomete PERCENT NBLOCKS GOTHERM UPDATE ACTTHERM THERMOMETE G_THERMWIDTH, thermomete THERMOMETES ON ERROR &onerror Minor Serious ON ERROR &onerror Fatal ON ERROR &onerror LINENUM ERRCODE G_STATUS CLEANUP ERRSHOW CLEANWIND G_RETURNCODE transdlg transdlg lblwind lblwind msgscrn msgscrn Thermomete Thermomete tpselect tpselect TRANSDLG LBLWIND MSGSCRN THERMOMETE TPSELECT Transporter Error Line Number: CC Press any key to cleanup and exit... Transporter Error Line Number: CC Press any key to cleanup and exit... Line Number: C Press any key to cleanup and exit... CURSORv SET CURSOR &curcursor LINENO CURCURSOR ALERT G_TDLGFACE G_TDLGSIZE G_TDLGSTYLE FILNAME FILENAME SLASHPOS NAMELEN COLONPOSC OTYPE% OTYPE OTYPE" OTYPE MUSTEXIST MAXFROMTS MAXTOTS PLATFORM G_FROMPLATFORM ISENVIRON OBJTYPE TIMESTAMP G_TOPLATFORM PLATFORMb TARGET INREC RETVAL PLATFORMz Chicago Chicago Geneva Chicago Geneva Geneva Geneva Geneva MS Sans Serif Geneva MS Sans Serif MS Sans Serif MS Sans Serif Geneva MS Sans Serif G_LOOK2D G_CTRLFFACE G_CTRLFSIZE G_CTRLFSTYLE G_WINDFFACE G_WINDFSIZE G_WINDFSTYLE G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE G_MACBTNHEIGHT G_MACBTNFACE G_MACBTNSIZE G_MACBTNSTYLE G_WINBTNHEIGHT G_WINBTNFACE G_WINBTNSIZE G_WINBTNSTYLE G_THERMFACE G_THERMSIZE G_THERMSTYLE G_BTNHEIGHT GASHOWME G_TPFILEINDX G_WINDFFACE G_RPTFFACE G_WINDFSIZE G_RPTFSIZE G_WINDFSTYLE NUM2STYLE G_RPTFSTYLE GASHOWME G_TPFILEINDX G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE Geneva,10,N DEFINE WINDOW transtemp FROM 1,1 TO 2,2 FONT "&g_rptfface", m.g_rptfsize FONTSTRG G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE G_RPTLINESIZE G_RPTTXTFONTSTYLE G_PIXELSIZE G_RPTCHARSIZE G_FONTSET GASHOWME G_TPFILEINDX G_FILETYPE TRANSTEMP lblwind lblwind LBLWINDU #TRAN #TRAN SNIPPETS SNIPPET OLDMLINE RETCODE SNIPLEN UPLINE WORDNUM MATCH EXACTv CANDIDATE KEYWORD IN_EXACT RETVAL W_NUM RET_STR STRT_POSs PATHNAME FILNAME CLOCALFNAME CDIRSEP FILNAME CLOCALFNAME CDIRSEP FILNAME PNAME JUSTPATH JUSTFNAME ADDBSD ITEXT CVTSHORTB ITEXT CVTBYTE- ITEXT IOFF! MS SANS SERIF MS SANS SERIF MWIDTH BFONTFACE BFONTSIZE BFONTSTYLE OFONTFACE OFONTSIZE OFONTSTYLE G_CHAR2GRPH G_GRPH2CHAR MS-DOS WINDOWS Windows Macintosh OTYPE MBLUE MGREEN MPATTERN G_GRPH2CHAR SCAN FOR platform = m.g_toplatform AND (INLIST(objtype,11,12,7,13,14,15, 16,20,22,17,6,8,18,5) OR objtype = 1 OR objtype = 2) AND &g_tempalias..timestamp > timestamp SCAN FOR platform = m.g_toplatform AND INLIST(objtype,1,15,17, 8,9,18,5,6,7,2) AND &g_tempalias..timestamp > timestamp INITSEL G_SNIPPETS G_TEMPALIAS G_SCRNALIAS PLATFORM G_FROMPLATFORM OKTRANSPORT COMMENT UNIQUEID G_FILETYPE ADDSEL G_NEWOBJECTS G_CHAR2GRPH OBJTYPE G_TOPLATFORM G_GRPH2CHAR OBJCODE BLACKBOX FILLRED FILLBLUE FILLGREEN FILLPAT G_GRPH2GRPH G_TPSELCNT TPCANCEL GASHOWME G_TPFILEINDX TPSELECT TPARRAY VERSIONCAP G_STATUS G_RETURNCODE TRANSPRT G_TPSELCNTB STATUS G_TPSELCNT TPARRAY G_CHECKMARK ASSEMBLE UNIQUEID OBJTYPE IDNUM MOBJTYPE MOBJCODE TPARRAY From CC At: CCCC , Height: , Width: STATSTRG OBJTYPE TYPE2NAME NAME CLEANPICT PICTURE G_CHAR2GRPH G_GRPH2GRPH HEIGHT WIDTH G_GRPH2CHAR CVTREPORTVERTICAL. Header Environment Report field Group Push button Radio button Check box SAY Expression Field GET Field Field Popup Picture Rpt variable Inv button Spinner Printer driver Font data OBJTYPE: ATSIGN1 These objects are new to platform or have been modified more recently on These objects are new to These objects have been modified more recently on tpselect Visual FoxPro Transporter tpselect @ 8.154,2.600 GET xsel PICTURE "@&N" FROM tparray SIZE 17.500,68.875 DEFAULT 1 FONT m.g_foxfont, m.g_foxfsize VALID toggle() Uncheck any items you do want to be transported. |?U0@ @*VT \!\< ;\?\< Cancel Variable Expression/Prompt tpselect tpselect Geneva Visual FoxPro Transporter tpselect @ 8.154,2.600 GET xsel PICTURE "@&N" FROM tparray SIZE 16.000,78.875 DEFAULT 1 FONT m.g_foxfont, m.g_foxfsize VALID toggle() Geneva Uncheck any items you do Geneva Geneva want to be transported. Geneva @*VT \!\< ;\?\< Cancel Geneva Geneva Variable Geneva Expression/Prompt Geneva tpselect tpselect Visual FoxPro Transporter tpselect @ 8,1 GET xsel PICTURE "@&N" FROM tparray SIZE 13,72 DEFAULT 1 VALID toggle() COLOR SCHEME 6 Uncheck any items you do want to be transported. @*VT \!\< ;\?\< Cancel Expression/Prompt Variable tpselect TPARRAY TPCANCEL FROMPLAT TOPLAT G_SNIPPETS G_NEWOBJECTS PTEXT TPSELECT G_SMFACE G_SMSIZE G_TDLGFACE G_TDLGSIZE G_TDLGSTYLE OKVALID WREADDEAC G_SMSTY1 G_TDLGBTN TPARRAY G_CHECKMARK TPCANCEL G_TPSELCNT TPARRAY G_TPSELCNT ISENVIRON TPARRAYe OTYPE OBJTYPE/ ESCAPEv TRBETv COMPATIBLEv DEVICEv READBORDERv STATUSv UDFPARMSv TOPICv HELPv .DBFC CHR(254)+" Transporter" HELP Transporter .HLPC Transporter Dialog HELP Transporter Dialog FIELDS FIELDSv MEMOWIDTHv CURSORv CONSOLEv BELLv EXACTv DECIMALSv FIXEDv PRINTv UNIQUEv SAFETYv EXCLUSIVEv COLLATEv machine ESCAPE TRBETWEEN DEVICE RBORD STATUS CURRAREA UDFPARMS MTOPIC MFIELDSTO FIELDS MEMOWIDTH CURSOR CONSOL EXACT FIXED PRINT UNQSET SAFETY EXCLUSIVE VERSNUM MCOLLATE ON ERROR &onerror SET FIELDS TO &mfieldsto SET DEVICE TO &device SET UDFPARMS TO &udfparms SET TOPIC TO &mtopic SET COLLATE TO "&mcollate" CANCAFTER G_20ALIAS G_STATUS G_TEMPALIAS G_FROMOBJONLYALIAS G_BOXEDITEMSALIAS G_SCRNALIAS WRITERESULT CONSOL ESCAPE FIELDS EXACT PRINT FIXED TRBETWEEN UNQSET RBORD STATUS DECI MEMOWIDTH VERSNUM G_TEMPINDEX CURRAREA DEACTTHERM CURSOR SAFETY TALKSET EXCLUSIVE temp1 PLATFORMS LOOP THERMSTEP G_FILETYPE G_20ALIAS G_SCRNALIAS G_SCRNDBF UPDTHERM PLATFORM DISTINCT PLIST G_TEMPALIAS DOCREATE OBJTYPE OBJCODE G_UPDENVIRON OUTPUTORD TEMP1 G_MERCURY WORDNUMa FROMCP VERSNUMn FROMCP VERSNUM WINDOWS #DOSOBJ #WINOBJ #MACOBJ #UNIXOBJ WINDOWS STRG PLAT_ARRY G_TOPLATFORM4 ** ERRORC OTYPE PFORM IN_REC RETVAL OBJPOS GETOBJPOS PLATFORM OBJTYPE OBJCODE PFORM OBJCOUNT RETVAL PLATFORM OBJTYPE MS Sans Serif Geneva MS Sans Serif Geneva Courier New Courier G_FONTMAP INFACE INSIZE INSTYLE OUTFACE OUTSIZE OUTSTYLE WIN2MAC ASTERISK AOFF G_FONTMAP THEFACE THESIZE THESTYLE MAPFONT FONTFACE FONTSIZE NUM2STYLE FONTSTYLE STYLE2NUM= SP_POS ISQUOTE= SP_POS ISQUOTE# STRGA CHARU THEFONT G_FONTAVAILr PENRED PENGREEN PENBLUEO Assertion failed: CONDITION transprt, opendbf doupdate converttype setversion settocp import graphictochar)1 chartographic-3 graphictographic15 updatescreen/7 updatereport updenviron convertprojectNT newchartographiczW newgraphictochar newgrphtogrph,c newbandsfg allgraphictochar allchartographic allgrphtogrph cvrt102frx8v cvrtfbprpt. cvrt102lbx% cvrtfbplbl] initbands bldbreakexp5 bldbreaks blddetaill addtotalJ litexistO getlitexpr makeband maketext^ makefield getheading linesforheading howmanyheadings fld_head_exist totals_exist< center_col evalimportexpr? getoldreporttype getoldlabeltype mapbutton scatterbuttonsy findlikevposc findlikehpos makecharfit3 allenvironsm allothersT fillininfoz adjrptfloaty adjrptsuppressw adjrptreset getcharsuppress suppressblanklines allgroupsh rptconvert rptobjconvert+ getbandindexx bandinfo0 cloneband resizeband\ bandpos emptybandN getbandcode grphrptcvt- getbandnum gettextwidth cvtreportvertical cvtreporthorizontal cvtrptlinesE mergelabelobjectsM labelobjmerge; addlabelblanks linesbetween" labelbandsm labellines calcpositions calcwindowdimensionsu findwiderobjects adjhpos sgnG& repoobjects adjitemsinboxes3, itemsinboxes findothersonline adjinvbtnsLA adjpostinv0P findalignend stretchlinestoborders<U joinlinesyX joinhorizontalya joinvertical meetboxchar{j zapboxcharOn addjoinUo rejoinboxes joinlinewidthVw getlastobjectline adjobjcode getwindfont# adjheightandwidth- columnar dossize adjbitmapctrl adjcolor rgbtox adjpen adjfont commonfont` convertcolorpair getcolor num2style style2num adjtext adjbox getlinewidth horizbuttonj maxbtnwidth getobjwidth- getobjheight getrightmost getlowestx docreate makecursor addgraphicallabelgroups updatelabeldata platformdefaults converter updateversionK synchtime stampval shiftl~ shiftr emptyplatformd structdialog curposa scxfrxdialog dfltplat makepict transprmptw rdvalida deacclau showclau scrnctrl enableproc pvalid4% starttherm(& thermfname partialfname() acttherm&+ updtherm\7 deacttherm errorhandler cleanwindv; errshow juststem strippath isobject isreptobject isgraphobjKD isenvironuD IsNewerEnv hasrecords$F setctrl setrptfont askfontnN is20scx is20frx is20lbx getsnipflagRS match wordnum addbsTX justfname justpath forceext cvtlongO\ cvtshort cvtbyte obj2basefontH] versioncap blackbox selectobjW` initsel addsel isselectedpi assembleGj type2name cleanpict tpselect=s toggle$ okvalid wreaddeac EnvSelect outputordY putwinmsg setall cleanup writeresultP versnum8 cptransW cptcond setfromcph oktransport$ iserrormsg[ boxjoin getobjpos initfontmap! mapfont replfont make2d make3d addquoteS isquote fontavail fixpen: assert PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 COMMENT Class 0 WINDOWS _QZ50TVBJU 553030248 WINDOWS _QZ50TVA4X 553030248 WINDOWS _QZ50TVA75 553030248 WINDOWS _QZ50TVA9N 553030248T WINDOWS _QZ50TVADU 553030248M WINDOWS _QZ50TVAHG 553030248F WINDOWS _QZ50TVAJY 553030248? WINDOWS _QZ50TVAMG 5530302487 WINDOWS _QZ50TVAOY 553030248/ WINDOWS _QZ50TVAR6 553030248) WINDOWS _QZ50TVATP 553030248# WINDOWS _QZ50TVAWH 553030248 WINDOWS _QZ50TVAZT 553030248 WINDOWS _QZ50TVB21 553030248 WINDOWS _QZ50TVB4J 553030248 WINDOWS _QZ50TVB6R 553030249 WINDOWS _QZ50TVB99 553030249 WINDOWS _QZ50TVBC1 553030249 WINDOWS _QZ50TVBEU 553030249 WINDOWS _QZ50TVBHM 553030249 COMMENT RESERVED WINDOWS _QZ50TW09G 553030272T WINDOWS _QZ50TVZI6 553030272 WINDOWS _QZ50TVZL9 553030272 WINDOWS _QZ50TVZPF 553030272 WINDOWS _QZ50TVZT1 553030272 WINDOWS _QZ50TVZXH 553030273| WINDOWS _QZ50TW01D 553030273m WINDOWS _QZ50TW03C 553030273g WINDOWS _QZ50TW05A 553030273a WINDOWS _QZ50TW078 553030273[ COMMENT RESERVED VERSION = 0.029 IPROGRESS2 CTASK CCURRENTTASK2 IBASIS2 IPERCENTAGE2 IAVGCHARWIDTH LBLPERCENTAGE3 FONTNAME FONTSIZE FONTBOLD FONTITALIC WIDTH SHPTHERMBARMAXWIDTH SHPTHERMBAR2 LBLPERCENTAGE4 CAPTION LBLTASK2 Complete. &cThermRef = .NULL. CTASK ISECONDS UPDATE2 IBASIS CTHERMREF THISFORM1 CTITLE THIS LBLTITLE2 CAPTION CWINTITLE CTITLE IBASIS IINTERVAL CTITLE2 IBASIS2 THERMOMETER THIS LBLTITLE2 CAPTION update2, complete2 settitle2 Init5 Complete. &cThermRef = .NULL. CTASK ISECONDS UPDATE IBASIS CTHERMREF THISFORM IPROGRESS CTASK CCURRENTTASK IBASIS IPERCENTAGE IAVGCHARWIDTH LBLPERCENTAGE FONTNAME FONTSIZE FONTBOLD FONTITALIC WIDTH SHPTHERMBARMAXWIDTH SHPTHERMBAR LBLPERCENTAGE2 CAPTION LBLTASK1 CTITLE LBLTITLE CAPTION CWINTITLE CTITLE IBASIS IINTERVAL CAPTION LBLTITLE complete, updateI settitle Init, !Arial, 0, 9, 5, 15, 12, 13, 3, 0 therm2 Pixels ..\samples\ ..\samples\ Class thermometer therm2 \Top = 122 Left = 338 Height = 17 Width = 1 BorderColor = 255,255,255 Name = "Shape18" therm2. Shape18 shape shape [Top = 122 Left = 16 Height = 16 Width = 1 BorderColor = 128,128,128 Name = "Shape17" therm2. Shape17 shape shape \Top = 138 Left = 16 Height = 1 Width = 323 BorderColor = 255,255,255 Name = "Shape16" therm2. Shape16 shape shape \Top = 122 Left = 16 Height = 1 Width = 322 BorderColor = 128,128,128 Name = "Shape15" therm2. Shape15 shape shape yAutoSize = .F. FontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. WordWrap = .F. DefTop = DefLeft = DefHeight = DefWidth = Alignment = 0 BackStyle = 1 BorderStyle = 0 Caption = "Label1" DragIcon = ..\vfp\ DragMode = 0 Height = 13 HelpContextID = 0 Left = 170 MousePointer = 0 Tag = "" Top = 50 Visible = .T. Width = 0 ReleaseErase = .F. ForeColor = 255,255,255 BackColor = 128,128,128 BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" ZOrderSet = 24 Name = "lblPercentage4" therm2. lblPercentage4 label label pAutoSize = .F. FontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. WordWrap = .F. DefTop = DefLeft = DefHeight = DefWidth = Alignment = 0 BackStyle = 1 BorderStyle = 0 Caption = "0%" DragIcon = ..\vfp\ DragMode = 0 Height = 13 HelpContextID = 0 Left = 170 MousePointer = 0 Tag = "" Top = 50 Visible = .T. Width = 16 ReleaseErase = .F. ForeColor = 0,0,0 BackColor = 192,192,192 BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" ZOrderSet = 23 Name = "lblPercentage3" therm2. lblPercentage3 label label ,AutoSize = .F. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. WordWrap = .F. DefTop = DefLeft = DefHeight = DefWidth = Alignment = 0 BackStyle = 0 BorderStyle = 0 Caption = "" DragMode = 0 Height = 16 HelpContextID = 0 Left = 16 MousePointer = 0 Tag = "" Top = 10 Visible = .T. Width = 322 ReleaseErase = .F. ForeColor = 0,0,0 BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" ZOrderSet = 22 Name = "lblTitle2" therm2. lblTitle2 label label +AutoSize = .F. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. WordWrap = .F. DefTop = DefLeft = DefHeight = DefWidth = Alignment = 0 BackStyle = 0 BorderStyle = 0 Caption = "" DragMode = 0 Height = 16 HelpContextID = 0 Left = 16 MousePointer = 0 Tag = "" Top = 27 Visible = .T. Width = 322 ReleaseErase = .F. ForeColor = 0,0,0 BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" ZOrderSet = 21 Name = "lblTask2" therm2. lblTask2 label label Top = 48 Left = 17 Height = 16 Width = 0 BorderStyle = 0 FillStyle = 0 BackColor = 128,128,128 FillColor = 128,128,128 ZOrderSet = 20 Name = "shpThermBar2" therm2. shpThermBar2 shape shape Wccurrenttask2 ibasis2 ipercentage2 iprogress2 *update2 *complete2 *settitle2 ScaleMode = 3 Height = 150 Width = 356 DoCreate = .T. Caption = "" Visible = .T. ccurrenttask2 = ('') ibasis2 = (0) ipercentage2 = (0) iprogress2 = (0) ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (322) cthermref = ('') Name = "therm2" shape1.Height = 150 shape1.Name = "shape1" shape5.Top = 124 shape5.Left = 16 shape5.Name = "shape5" lbltitle.BackStyle = 0 lbltitle.Caption = "" lbltitle.Left = 16 lbltitle.Top = 84 lbltitle.Visible = .T. lbltitle.Name = "lbltitle" lbltask.BackStyle = 0 lbltask.Caption = "" lbltask.Left = 16 lbltask.Top = 101 lbltask.Name = "lbltask" shpthermbar.Top = 122 shpthermbar.Left = 17 shpthermbar.Height = 16 shpthermbar.FillColor = 128,128,128 shpthermbar.Name = "shpthermbar" lblpercentage.BackStyle = 0 lblpercentage.Caption = "0%" lblpercentage.Left = 170 lblpercentage.Top = 124 lblpercentage.Name = "lblpercentage" lblpercentage2.BackStyle = 0 lblpercentage2.Caption = "Label1" lblpercentage2.Left = 170 lblpercentage2.Top = 124 lblpercentage2.Name = "lblpercentage2" shape11.Top = 48 shape11.Left = 16 shape11.Name = "shape11" shape13.Top = 48 shape13.Left = 16 shape13.Name = "shape13" shape12.Top = 64 shape12.Left = 16 shape12.Name = "shape12" shape14.Top = 48 shape14.Left = 338 shape14.Name = "shape14" shape9.Name = "shape9" shape8.Height = 144 shape8.Name = "shape8" shape7.Top = 146 shape7.Name = "shape7" shape6.Height = 148 shape6.Name = "shape6" shape4.Top = 148 shape4.Name = "shape4" shape3.Height = 147 shape3.Name = "shape3" shape2.Name = "shape2" shape10.Height = 143 shape10.Name = "shape10" sprtherm.vcx ScaleMode = 3 Height = 87 Width = 355 DoCreate = .T. AutoCenter = .T. BorderStyle = 0 Caption = "" ControlBox = .F. Closable = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. BackColor = 192,192,192 ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (322) cthermref = ('') Name = "thermometer" pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle shape shape Shape1 thermometer. MTop = 0 Left = 0 Height = 88 Width = 356 BackStyle = 0 Name = "Shape1" shape shape Shape5 thermometer. !Arial, 0, 9, 5, 15, 12, 13, 3, 0 thermometer Pixels ..\wzimport\ ..\wzimport\ Class thermometer XTop = 3 Left = 3 Height = 81 Width = 1 BorderColor = 128,128,128 Name = "Shape10" thermometer. Shape10 shape shape XTop = 1 Left = 1 Height = 1 Width = 353 BorderColor = 255,255,255 Name = "Shape2" thermometer. Shape2 shape shape WTop = 1 Left = 1 Height = 85 Width = 1 BorderColor = 255,255,255 Name = "Shape3" thermometer. Shape3 shape shape YTop = 86 Left = 1 Height = 1 Width = 354 BorderColor = 128,128,128 Name = "Shape4" thermometer. Shape4 shape shape YTop = 1 Left = 354 Height = 86 Width = 1 BorderColor = 128,128,128 Name = "Shape6" thermometer. Shape6 shape shape YTop = 84 Left = 3 Height = 1 Width = 350 BorderColor = 255,255,255 Name = "Shape7" thermometer. Shape7 shape shape YTop = 3 Left = 352 Height = 82 Width = 1 BorderColor = 255,255,255 Name = "Shape8" thermometer. Shape8 shape shape XTop = 3 Left = 3 Height = 1 Width = 349 BorderColor = 128,128,128 Name = "Shape9" thermometer. Shape9 shape shape [Top = 45 Left = 338 Height = 17 Width = 1 BorderColor = 255,255,255 Name = "Shape14" thermometer. Shape14 shape shape [Top = 61 Left = 16 Height = 1 Width = 323 BorderColor = 255,255,255 Name = "Shape12" thermometer. Shape12 shape shape ZTop = 45 Left = 16 Height = 16 Width = 1 BorderColor = 128,128,128 Name = "Shape13" thermometer. Shape13 shape shape [Top = 45 Left = 16 Height = 1 Width = 322 BorderColor = 128,128,128 Name = "Shape11" thermometer. Shape11 shape shape FontBold = .T. FontName = "MS Sans Serif" FontSize = 8 BackStyle = 1 Caption = "Label1" Height = 13 Left = 170 Top = 47 Width = 0 ForeColor = 255,255,255 BackColor = 128,128,128 Name = "lblPercentage2" thermometer. lblPercentage2 label label FontBold = .T. FontName = "MS Sans Serif" FontSize = 8 BackStyle = 1 Caption = "0%" Height = 13 Left = 170 Top = 47 Width = 16 BackColor = 192,192,192 Name = "lblPercentage" thermometer. lblPercentage label label Top = 46 Left = 17 Height = 15 Width = 0 BackStyle = 1 BorderStyle = 0 DrawMode = 13 FillStyle = 0 BackColor = 0,0,0 FillColor = 128,128,128 Name = "shpThermBar" thermometer. shpThermBar shape shape FontName = "MS Sans Serif" FontSize = 8 WordWrap = .F. BackStyle = 0 Caption = "" Height = 16 Left = 18 Top = 27 Width = 319 BackColor = 192,192,192 Name = "lblTask" thermometer. lblTask label label FontName = "MS Sans Serif" FontSize = 8 WordWrap = .F. BackStyle = 0 Caption = "" Height = 16 Left = 18 Top = 10 Width = 319 Name = "lblTitle" thermometer. lblTitle label label yTop = 47 Left = 17 Height = 15 Width = 322 BorderStyle = 0 FillStyle = 0 FillColor = 192,192,192 Name = "Shape5" PROCEDURE complete * This is the default complete message #define THERMCOMPLETE_LOC "Complete." parameters m.cTask private iSeconds if parameters() = 0 m.cTask = THERMCOMPLETE_LOC endif * this.Show this.Update(iif(this.iBasis <> 0, this.iBasis, 100), m.cTask) m.iSeconds=seconds() + 1 do while seconds() < m.iSeconds && wait a sec enddo if !empty(this.cThermRef) m.cThermRef = this.cThermRef &cThermRef = .NULL. release thisform endif ENDPROC PROCEDURE update * m.iProgress is the percentage complete, or, if Init() was passed * an m.iBasis value, is used to calculate the percentage * m.cTask is displayed on the second line of the window parameters m.iProgress, m.cTask if parameters()<>0 this.iProgress=IIF(m.iProgress = 0, 0, max(THIS.iProgress,m.iProgress)) endif if parameters() >= 2 * If we're specifically passed a null string, clear the current task, * otherwise leave it alone this.cCurrentTask = m.cTask endif if !empty(this.iBasis) m.iPercentage = int(this.iProgress/this.iBasis*100) m.iPercentage = this.iProgress endif m.iPercentage = min(100,max(0,m.iPercentage)) if m.iPercentage <> this.iPercentage if len(alltrim(str(m.iPercentage,3)))<>len(alltrim(str(this.iPercentage,3))) iAvgCharWidth=fontmetric(6,this.lblPercentage.FontName, ; this.lblPercentage.FontSize, ; iif(this.lblPercentage.FontBold,'B','')+ ; iif(this.lblPercentage.FontItalic,'I','')) this.lblPercentage.Width=txtwidth(alltrim(str(m.iPercentage,3)) + '%', ; this.lblPercentage.FontName,this.lblPercentage.FontSize, ; iif(this.lblPercentage.FontBold,'B','')+ ; iif(this.lblPercentage.FontItalic,'I','')) * iAvgCharWidth this.lblPercentage.Left=int((this.shpThermBarMaxWidth- ; this.lblPercentage.Width) / 2)+this.shpThermBar.Left-1 this.lblPercentage2.Left=this.lblPercentage.Left endif this.iPercentage = m.iPercentage this.shpThermBar.Width = int((this.shpThermBarMaxWidth)*this.iPercentage/100) this.lblPercentage.Caption = alltrim(str(m.iPercentage,3)) + '%' this.lblPercentage2.Caption = this.lblPercentage.Caption if this.shpThermBar.Left + this.shpThermBar.Width -1 >= ; this.lblPercentage2.Left if this.shpThermBar.Left + this.shpThermBar.Width - 1 >= ; this.lblPercentage2.Left + this.lblPercentage.Width - 1 this.lblPercentage2.Width = this.lblPercentage.Width else this.lblPercentage2.Width = ; this.shpThermBar.Left + this.shpThermBar.Width - ; this.lblPercentage2.Left - 1 endif else this.lblPercentage2.Width = 0 endif endif if ! this.lblTask.Caption == this.cCurrentTask this.lblTask.Caption = this.cCurrentTask endif ENDPROC PROCEDURE settitle *- set the lbltitle caption PARAMETER cTitle this.lblTitle.Caption = iif(empty(m.cTitle),'',m.cTitle) ENDPROC PROCEDURE Init *- (c) Microsoft Corporation 1995 * m.cTitle is displayed on the first line of the window * m.iBasis is used to calculate the percentage complete * m.iInterval is the frequency used for updating the thermometer parameters cWinTitle, cTitle, iBasis, iInterval THIS.caption = iif(empty(m.cWinTitle), "", m.cWinTitle) this.lblTitle.Caption = iif(empty(m.cTitle),'',m.cTitle) this.iBasis = iif(empty(m.iBasis),0,m.iBasis) ENDPROC PROCEDURE update2 * m.iProgress2 is the percentage complete of the top level bar, or, * if Init() was passed * an m.iBasis2 value, is used to calculate the percentage * m.cTask is displayed on the second line of the window parameters m.iProgress2, m.cTask if parameters()<>0 this.iProgress2=IIF(m.iProgress2 = 0, 0,max(THIS.iProgress2,m.iProgress2)) endif if parameters() >= 2 * If we're specifically passed a null string, clear the current task, * otherwise leave it alone this.cCurrentTask2 = m.cTask endif if !empty(this.iBasis2) m.iPercentage2 = int(this.iProgress2/this.iBasis2*100) m.iPercentage2 = this.iProgress2 endif m.iPercentage2 = min(100,max(0,m.iPercentage2)) if m.iPercentage2 <> this.iPercentage2 if len(alltrim(str(m.iPercentage2,3)))<>len(alltrim(str(this.iPercentage2,3))) iAvgCharWidth=fontmetric(6,this.lblPercentage3.FontName, ; this.lblPercentage3.FontSize, ; iif(this.lblPercentage3.FontBold,'B','')+ ; iif(this.lblPercentage3.FontItalic,'I','')) this.lblPercentage3.Width=txtwidth(alltrim(str(m.iPercentage2,3)) + '%', ; this.lblPercentage3.FontName,this.lblPercentage3.FontSize, ; iif(this.lblPercentage3.FontBold,'B','')+ ; iif(this.lblPercentage3.FontItalic,'I','')) * iAvgCharWidth this.lblPercentage3.Left=int((this.shpThermBarMaxWidth- ; this.lblPercentage3.Width) / 2)+this.shpThermBar2.Left-1 this.lblPercentage4.Left=this.lblPercentage3.Left endif this.iPercentage2 = m.iPercentage2 this.shpThermBar2.Width = int((this.shpThermBarMaxWidth)*this.iPercentage2/100) this.lblPercentage3.Caption = alltrim(str(m.iPercentage2,3)) + '%' this.lblPercentage4.Caption = this.lblPercentage3.Caption if this.shpThermBar2.Left + this.shpThermBar2.Width -1 >= ; this.lblPercentage4.Left if this.shpThermBar2.Left + this.shpThermBar2.Width - 1 >= ; this.lblPercentage4.Left + this.lblPercentage3.Width - 1 this.lblPercentage4.Width = this.lblPercentage3.Width else this.lblPercentage4.Width = ; this.shpThermBar2.Left + this.shpThermBar2.Width - ; this.lblPercentage4.Left - 1 endif else this.lblPercentage4.Width = 0 endif endif if ! this.lblTask2.Caption == this.cCurrentTask2 this.lblTask2.Caption = this.cCurrentTask2 endif ENDPROC PROCEDURE complete2 * This is the default complete message #define THERMCOMPLETE_LOC "Complete." parameters m.cTask private iSeconds if parameters() = 0 m.cTask = THERMCOMPLETE_LOC endif * this.Show this.Update2(iif(this.iBasis <> 0, this.iBasis, 100), m.cTask) m.iSeconds=seconds() + 1 do while seconds() < m.iSeconds && wait a sec enddo if !empty(this.cThermRef) m.cThermRef = this.cThermRef &cThermRef = .NULL. release thisform endif ENDPROC PROCEDURE settitle2 *- set the lbltitle2 caption PARAMETER cTitle this.lblTitle2.Caption = iif(empty(m.cTitle),'',m.cTitle) ENDPROC PROCEDURE Init *- (c) Microsoft Corporation 1995 PARAMETERS cWinTitle, ; cTitle, iBasis, iInterval, ; cTitle2, iBasis2 *- do parent class Init Thermometer::Init(cWinTitle, cTitle, iBasis, iInterval) this.lblTitle2.Caption = iif(empty(m.cTitle2),'',m.cTitle2) this.iBasis2 = iif(empty(m.iBasis2),0,m.iBasis2) ENDPROC FmtConverter EXACTv m.csrcfileb SET EXACT &oldexact Cannot open CC SET EXACT &oldexact dBASE IV Generic Design File Version 1.0 LBL|FRM|FRX|LBX LBL|LBX SET EXACT &oldexact SET EXACT &oldexact Updating report CC SET EXACT &oldexact oConvObjectb SET EXACT &oldexact SET EXACT &oldexact SET EXACT &oldexact Incorrect file ID type for a dBASE IV .SCR or .LBL file. SET EXACT &oldexact SET EXACT &oldexact unique CLEAR READC PUSH KEYC ON KEY LABEL PGUP DO dopgup ON KEY LABEL PGDN DO dopgdn ON KEY LABEL CTRL+PGUP DO ctlpgup ON KEY LABEL CTRL+PGDN DO ctlpgdn IF EOF() GO BOTTOM ENDIF mignavpr.txt SET EXACT &oldexact unique SET EXACT &oldexact unique Converted dBASE IV WordWrap band. _bandrecCC iif(mod(reccnt,CC ) = 0, =1,0,1), QBE__ QBE__ QBE__ newfile.pictureb newfile.commentb QBE__ QBE__ newfile.commentb DATE() TIME() RECNO() _pageno 'converted RECNO field' TRANSFORM(C SET EXACT &oldexact RECCNT reccnt workareas[m.warea]b QBE__ DELETE FILE &tempname..dbf DELETE FILE &tempname..fpt DELETE FILE &tempname..dbf SET EXACT &oldexact. CSRCFILE OCONV TEMPSTR CFMTCONVERTERCLASS OLDEXACT OLDALIAS FHANDLE FSIZE FALLDOWN JUSTFNAME ROOTNAME CPATHNAME LRETVAL JUSTSTEM ADDBS JUSTPATH JUSTEXT LISTHERE NCTR9 CTMPEXT CFEXT CMEXT GOTHERM SETTITLE PARTIALFNAME GTRANSPORT GASHOWME OCONVOBJECT APARMS LHADERROR CONVERTER FILEVERS FILETYPE NUM_BANDS TARGETNAME OK2NUKE TEMPNAME PLATFORM UNIQUEID TIMESTAMP OBJTYPE OBJCODE HEIGHT WIDTH STYLE PICTURE ORDER COMMENT ENVIRON BOXCHAR FILLCHAR PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE PENSIZE PENPAT FILLPAT FONTFACE FONTSTYLE FONTSIZE RULER RULERLINES GRIDV GRIDH SCHEME SCHEME2 COLORPAIR LOTYPE RANGELO HITYPE RANGEHI WHENTYPE WHEN VALIDTYPE VALID ERRORTYPE ERROR MESSTYPE MESSAGE SHOWTYPE SHOW ACTIVTYPE ACTIVATE DEACTTYPE DEACTIVATE PROCTYPE PROCCODE SETUPTYPE SETUPCODE FLOAT CLOSE MINIMIZE BORDER SHADOW CENTER REFRESH DISABLED SCROLLBAR ADDALIAS INITIALVAL INITIALNUM SPACING CURPOS NEWFILE MIGNAVPR STRETCH STRETCHTOP BOTTOM SUPTYPE SUPREST NOREPEAT RESETRPT PAGEBREAK COLBREAK RESETPAGE GENERAL DOUBLE SWAPHEADER SWAPFOOTER EJECTBEFOR EJECTAFTER PLAIN SUMMARY OFFSET TOPMARGIN BOTMARGIN TOTALTYPE RESETTOTAL RESOID SUPALWAYS SUPOVFLOW SUPRPCOL SUPGROUP SUPVALCHNG SUPEXPR TEMPDBF ISRECNOFLD UPDATE NUMFIELDS WORD2NUM READSTRING LINECOUNT BAND_TYPE WHICHEDITR GROUP_TYPE NUM_RECS GROUP_EXPR KLUDGENAME BANDNUM ISOPEN EACHPAGE NEWPAGE UNIQUE FIELDNAME DATATYPE FIELDTYPE FIELDPIC FIELDPFUNC CALIAS NALIASPOS AVLINE WORKAREAS FIELDNUM XTRIM SUPPREPEAT ISHIDDEN SUMM_FIELD SUMM_OP RESET_WHEN PREDEFTYP DBFNAME FIELDPICT PICT_FUNC DELIMITER1 DELIMITER2 ISEDIT CHOICELIST SCROLWIDTH EXPRVAR BAND_ID GL_RULER BOOKMARK BANDMESSG DUMP_BAND FIXVERT WAREA SCRHEIGHT NMAXWIDTH NMAXHEIGHT CPTAG BANDHEIGHT HASOBJECTS BANDSTART REPWIDTH COMPLETE WORDWRAPC BANDNUM BANDSTART FILETYPE NEWFILE OBJTYPE HEIGHT COMMENT DMPRAPBAND DUMPLAYOUT@ BANDNUM BANDSIZE WORD2NUM FHANDLE WHOLEBAND MARKER PARAGRAPH LINETEXT LINENO LINEMARK FIELDMARK COLUMN FIELDWIDTH LMARGIN LINDENT GOTOFRMFLD NEWFILE VPOS BANDSTART FLOAT WIDTH OBJTYPE OBJCODE HEIGHT] PSEEKREC SEEKREC NUM_BANDS NEWFILE OBJTYPE "Text row" value type incorrect! BANDNUM BANDSIZE WORD2NUM FHANDLE BANDEND BANDVERSN FILETYPE NEWFILE WIDTH GOTHERM UPDATE FSIZE TEMPDBF GOTOFRMFLD HPOS BANDSTART WINFO OBJCODE SCROLLBAR HEIGHT BOXDLENGTH BOXDESCRPT OBJTYPE BOXCHAR FILLCHAR COLORPAIR BITS2COLOR SIZE_ROW THIS_ROW THIS_COL SCANNED PACKED_ROW VALUE_TYPE TEXTLENGTH VALUE ATTR_CHANGE BYTESREAD NEWCOLOR NEWSTYLE STYLE CVTLINE AVLINE CVTSTYLET SET EXACT &oldexact. field(1,'newfile')b field(1,'tempdbf')b DELETE FILE &tempname..dbf DELETE FILE &tempname..fpt m.targetnameb DELETE FILE &m.targetname. DELETE FILE &m.memoname. PMESSAGE FHANDLE OLDALIAS NEWFILE TEMPDBF TARGETNAME MEMONAME FILETYPE, BYTESc PHANDLE STRLENGTH WORD2NUM XTRIM PSTRING BIURL STYLEWORD RETSTRING STYLESSTRING BITVAL ISBITSET BGR+BGR + U* ATTRWORD RETSTRING COLORSTRING BITVAL ISBITSETD BITFIELD BITVAL^ exists. Overwrite it? FILENAME NRESULT JUSTFNAME dump_bandtD dmprapband gotofrmfld dumplayout{L falldown word2numm` readstring xtrim0a cvtstyleRb bits2colorac isbitset;e ok2nuke *- procedures & code to support navigation *- of migrated DB4 screen files. This code *- is copied to the PROCCODE memo field of *- the SCX file. *- (c) Microsoft Corporation 1995 #DEFINE C_BEGFILEMSG_LOC [Beginning of file.] #DEFINE C_ENDFILEMSG_LOC [End of file.] #DEFINE C_ALERTTITL_LOC "Add Records" #DEFINE C_ASKADDMSG_LOC "Do you want to add a new record to the table?" #DEFINE C_BUTTONP "@*HT \<Yes;\<No" POP KEY PROCEDURE dopgup IF BOF() GO TOP SKIP -1 IF BOF() WAIT WINDOW C_BEGFILEMSG NOWAIT GO TOP ENDIF ENDIF SHOW GETS PROCEDURE dopgdn IF EOF() OR RECC() = 0 DO migadd SKIP IF EOF() DO migadd ENDIF ENDIF SHOW GETS RETURN PROCEDURE ctlpgup *- handle Ctl+PGUP GO TOP SHOW GETS RETURN PROCEDURE ctlpgdn *- handle ctl+PGDN IF EOF() OR RECC() = 0 DO migadd SKIP IF EOF() DO migadd ELSE GO BOTTOM ENDIF ENDIF SHOW GETS RETURN PROCEDURE migadd #REGION 0 REGIONAL m.currarea, m.talkstat, m.compstat IF SET("TALK") = "ON" SET TALK OFF m.talkstat = "ON" m.talkstat = "OFF" ENDIF m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER") SET READBORDER ON *- clear ON KEY LABELs that were set up PUSH KEY ON KEY LABEL PGUP ON KEY LABEL PGDN ON KEY LABEL CTRL+PGUP ON KEY LABEL CTRL+PGDN ** Windows Window definitions DO CASE CASE _WINDOWS OR _MAC IF NOT WEXIST("_qn10my1k9") DEFINE WINDOW _qn10my1k9 ; AT 5.154, 38.200 ; SIZE 9.769,59.800 ; TITLE C_ALERTTITL_LOC ; FONT "MS Sans Serif", 8 ; FLOAT ; NOCLOSE ; NOMINIMIZE ; DOUBLE ; COLOR SCHEME 5 MOVE WINDOW _qn10my1k9 CENTER ENDIF * ********************************************************* * * * * ADDREC/Windows Screen Layout * * * ********************************************************* #REGION 1 IF WVISIBLE("_qn10my1k9") ACTIVATE WINDOW _qn10my1k9 SAME ELSE ACTIVATE WINDOW _qn10my1k9 NOSHOW ENDIF @ 6.462,9.600 GET m.iaddrec ; PICTURE C_BUTTONP ; SIZE 1.769,11.667,10.000 ; DEFAULT 1 ; FONT "MS Sans Serif", 8 ; STYLE "B" ; VALID addrecv() @ 1.769,9.600 SAY C_ASKADDMSG_LOC ; SIZE 2.000,28.250, 0.000 ; FONT "MS Sans Serif", 10 ; STYLE "BT" IF NOT WVISIBLE("_qn10my1k9") ACTIVATE WINDOW _qn10my1k9 ENDIF READ CYCLE MODAL RELEASE WINDOW _qn10my1k9 CASE _DOS OR _UNIX IF NOT WEXIST("_qnd0yoc65") DEFINE WINDOW _qnd0yoc65 ; FROM INT((SROW()-10)/2),INT((SCOL()-59)/2) ; TO INT((SROW()-10)/2)+9,INT((SCOL()-59)/2)+58 ; TITLE "Add Records" ; FLOAT ; NOCLOSE ; SHADOW ; NOMINIMIZE ; DOUBLE ; COLOR SCHEME 5 ENDIF * * * ADDREC/MS-DOS Screen Layout * * #REGION 1 IF WVISIBLE("_qnd0yoc65") ACTIVATE WINDOW _qnd0yoc65 SAME ELSE ACTIVATE WINDOW _qnd0yoc65 NOSHOW ENDIF @ 6,12 GET m.iaddrec ; PICTURE "@*HT \<Yes;\<No" ; SIZE 1,11,10 ; DEFAULT 1 ; VALID addrecv() @ 2,5 SAY "Do you want to add a new record to the table?" ; SIZE 1,45, 0 IF NOT WVISIBLE("_qnd0yoc65") ACTIVATE WINDOW _qnd0yoc65 ENDIF READ CYCLE MODAL RELEASE WINDOW _qnd0yoc65 ENDCASE #REGION 0 IF EOF() GO BOTTOM ENDIF *- restore ON KEY LABELS POP KEY SET READBORDER &rborder IF m.talkstat = "ON" SET TALK ON ENDIF IF m.compstat = "ON" SET COMPATIBLE ON ENDIF * ********************************************************* * * * * _QN10MY496 m.iaddrec VALID * * * * Function Origin: * * * * From Platform: Windows * * From Screen: ADDREC, Record Number: 2 * * Variable: m.iaddrec * * Called By: VALID Clause * * Object Type: Push Button * * Snippet Number: 1 * * * ********************************************************* FUNCTION addrecv && m.iaddrec VALID #REGION 1 IF m.iaddrec = 1 IF !EMPTY(ALIAS()) APPEND BLANK ENDIF ENDIF GO BOTTOM RETURN PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 COMMENT Class WINDOWS _R9J0Q1RNX 550205932T COMMENT RESERVED WINDOWS _RC50MZ1KW 5525650465 WINDOWS _RC50WHW6I 552565046 COMMENT RESERVED WINDOWS _R5B0YB6QE 553029116 WINDOWS _R5B0YB6IC 553029116 WINDOWS _R5B0YB6JQ 553029116S WINDOWS _R5B0YB6NW 550193624, COMMENT RESERVED WINDOWS _R8Z15YKPM 553030123I WINDOWS _R8Z15YIKA 553030123 WINDOWS _R8Z15YJD7 544709714 WINDOWS _R8Z15YJXI 544709715 COMMENT RESERVED WINDOWS _R8Z15IT74 553030151 WINDOWS _R8Z15IRNR 553030138 WINDOWS _R8Z15IRZG 553030138 WINDOWS _R8Z15ISA1 550194298 WINDOWS _R8Z15ISGP 553030138 WINDOWS _R8Z15ISNX 553030138 WINDOWS _R8Z15ISWK 553030153 WINDOWS _R8Z15IT0Q 553030153 COMMENT RESERVED WINDOWS _R8Z15XU9P 553030164 WINDOWS _R8Z15XSG1 553030164V WINDOWS _R8Z15XT7L 544709697 WINDOWS _R8Z15XTP4 544709698 COMMENT RESERVED WINDOWS _RAG0HCNX9 553030176i WINDOWS _RAG0J9TB0 553030176t COMMENT RESERVED WINDOWS _RB619GDZF 553030205U WINDOWS _RB619TBXK 553030205P WINDOWS _RB619TBY4 553030205; WINDOWS _RB70M7116 553030205 COMMENT RESERVED VERSION = 0.029 cvtlocate cvtalert.h" BArial, 0, 9, 5, 15, 12, 21, 3, 0 Arial, 0, 8, 5, 14, 11, 20, 3, 0 cvtalertfrx cvtalert.h Pixels Class Pixels \<Retain Visual FoxPro 3.0 default property values CAPTION Init, cvtalert.h" cvtalert.h" cvtdlog30scx Class cvtalertfrx \<Check subdirectories CAPTION Init, cvtalert.h wPROCEDURE Init THIS.FontBold = THISFORM.SetBold() ENDPROC PROCEDURE Click HELP ID THISFORM.HelpContextID ENDPROC Top = 60 Left = 272 Height = 29 Width = 94 FontBold = .F. FontName = "Arial" FontSize = 8 Caption = "\<Help" StatusBarText = "Click for help on converting files." TabIndex = 2 Name = "cmdHelp" cvtalertfrx. cmdHelp commandbutton commandbutton \<VCX files CAPTION Init, Pixels BArial, 0, 9, 5, 15, 12, 21, 3, 0 Arial, 0, 8, 5, 14, 11, 20, 3, 0 cvtalertfrx cvtlocate \<Retain Visual FoxPro 3.0 default property values CAPTION Init, cvtlocate. Select a backup directory: COLDDIR CBACKDIR THISFORM TXTBACKDIR REFRESH Click, THISFORM TXTBACKDIR ENABLED VALUE CMDBACKDIR TABSTOP READONLY CBACKDIR COMMAND1 CLICK Click, BArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 0, 8, 5, 14, 11, 12, 3, 0 Class cvtalertfrx. commandgroup commandgroup cvtalertfrx. cvtalertscx cvtalertscx cvtdlog30scx 8PROCEDURE Init THIS.Caption = C_RETAIN30_LOC ENDPROC cvtdlog30scx. BArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 0, 8, 5, 14, 11, 12, 3, 0 cvtalert.h Pixels Convert \<both Macintosh and Windows form records CAPTION Init, THISFORM HELPCONTEXTID FONTBOLD THISFORM SETBOLD Click, Init\ Top = 40 Left = 32 Height = 25 Width = 344 FontBold = .F. FontSize = 8 Caption = "Check1" ControlSource = "m.iBothPlat" DisabledBackColor = 192,192,192 Name = "chkSet30Def" PROCEDURE Click IF m.nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE Command1.Init THIS.FontBold = THISFORM.SetBold() ENDPROC PROCEDURE Command1.Click LOCAL m.nfh IF nOptDev = N_DEVMODE IF EMPTY(m.cCodeFile) *- this should never happen RETURN ENDIF *- make sure file can be created m.nfh = FCREATE(m.cCodeFile) IF m.nfh = -1 *- problem creating file =MESSAGEBOX(E_BADFNAME_LOC) THISFORM.txtCodeFile.SetFocus RETURN ELSE =FCLOSE(m.nfh) ERASE (m.cCodeFile) ENDIF ENDIF THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE Command2.Init THIS.FontBold = THISFORM.SetBold() ENDPROC PROCEDURE Command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC lblAlertMsg label Code file: COLDCODE CCODEFILE THISFORM TXTCODEFILE REFRESH CLOGFILE COMMAND1 ENABLED Click, chkSet30Def cvtalert.vcx checkbox FontBold = .F. FontName = "Arial" FontSize = 8 WordWrap = .T. Caption = "" Height = 42 Left = 12 Top = 7 Width = 352 Name = "lblAlertMsg" label ,Alert displayed when converting non-projects Class cvtalertscx cvtalertpjx3 FONTBOLD THISFORM SETBOLD THISFORM HELPCONTEXTID Init, Clickj cvtalertscx. THISFORM CMDLOGFILE ENABLED VALUE CLOGFILE COMMAND1 CLICK Click, checkbox ;PROCEDURE Init THIS.caption = C_CONVERTBOTH_LOC ENDPROC Top = 62 Left = 24 Height = 25 Width = 344 FontBold = .F. FontSize = 8 Caption = "Check1" ControlSource = "m.iBothPlat" Name = "chkBothPlat" chkBothPlat checkbox checkbox THISFORM FONTBOLD THISFORM SETBOLD Click, InitY FontBold = .F. FontName = "Arial" FontSize = 8 WordWrap = .T. Caption = "" Height = 49 Left = 24 Top = 12 Width = 352 Name = "lblAlertMsg" cvtalertscx. lblAlertMsg label label wPROCEDURE Click HELP ID THISFORM.HelpContextID ENDPROC PROCEDURE Init THIS.FontBold = THISFORM.SetBold() ENDPROC cvtalertscx. d*setbold Return logical based on OS *configurefont Set font characteristics for specific platform ScaleMode = 3 Height = 102 Width = 390 DoCreate = .T. AutoCenter = .T. BorderStyle = 2 Caption = "Visual FoxPro Converter" Closable = .F. MaxButton = .F. MinButton = .F. WindowType = 1 AlwaysOnTop = .T. HelpContextID = 1895825429 Name = "cvtalertfrx" PROCEDURE cmd1.Command1.Click THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE cmd1.Command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC PROCEDURE cmdHelp.Click m.ncvt = 3 RELEASE THISFORM ENDPROC \<Retain Visual FoxPro 3.0 default property values CAPTION CHKBOTHPLAT.Init, Top = 142 Left = 272 Height = 29 Width = 94 FontBold = .F. FontName = "Arial" FontSize = 8 Caption = "\<Help" StatusBarText = "Click for help on converting files." TabIndex = 2 Name = "cmdHelp" cmdHelp commandbutton commandbutton Top = 101 Left = 351 Height = 25 Width = 25 Caption = "..." Enabled = .F. StatusBarText = "Select the file that will store procedures if the Visual Conversion option is selected." TabIndex = 5 Name = "cmdCodeFile" cvtalert.hz cvtalertscx. commandbutton NOPTDEV THISFORM CMDCODEFILE ENABLED CLICK CCODEFILE COMMAND1 TXTCODEFILE TABSTOP READONLY LDEVMODE C_VISUALCONVMSG_LOC Click, option2.Messagex PROCEDURE Click LOCAL cOldCode *- remember old one cOldCode = m.cCodeFile cCodeFile = LOWER(PUTFILE(C_SELCODEFILE_LOC,cCodeFile,"PRG")) cCodeFile = IIF(EMPTY(cCodeFile),cOldCode,SYS(2027,cCodeFile)) && in case user cancels, restore old value THISFORM.txtCodeFile.Refresh IF !EMPTY(m.cCodeFile) AND ((m.llog AND !EMPTY(m.cLogFile)) OR !m.llog) THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC cmdCodeFile commandbutton THISFORM VALUE CLICK# THISFORM VALUE CLICK THISFORM cmd1.Command1.Click, cmd1.Command2.Clickq cmdHelp.Click commandbutton cvtalertscx. txtCodeFile textbox textbox cvtalertscx. :PROCEDURE Init THIS.caption = C_RECURSEDIR_LOC ENDPROC cvtalert.h ~FontBold = .F. FontName = "Arial" FontSize = 8 ControlSource = "m.cCodeFile" Enabled = .F. Format = "" Height = 25 InputMask = "" Left = 171 ReadOnly = .T. StatusBarText = "Specifies the file that will store procedure code if the Visual Conversion option is selected." TabIndex = 4 TabStop = .F. Top = 101 Width = 170 DisabledForeColor = 0,0,0 Name = "txtCodeFile" THISFORM Invalid file name for code file. NOPTDEV CCODEFILE THISFORM TXTCODEFILE SETFOCUS VALUE CLICK FONTBOLD THISFORM SETBOLD# THISFORM VALUE CLICK FONTBOLD THISFORM SETBOLD Click, command1.Clickf command1.Init command2.Click command2.Init PROCEDURE Click IF m.nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE command1.Click LOCAL m.nfh IF nOptDev = N_DEVMODE IF EMPTY(m.cCodeFile) *- this should never happen RETURN ENDIF *- make sure file can be created m.nfh = FCREATE(m.cCodeFile) IF m.nfh = -1 *- problem creating file =MESSAGEBOX(E_BADFNAME_LOC) THISFORM.txtCodeFile.SetFocus RETURN ELSE =FCLOSE(m.nfh) ERASE (m.cCodeFile) ENDIF ENDIF THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE command1.Init THIS.FontBold = THISFORM.SetBold() ENDPROC PROCEDURE command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC PROCEDURE command2.Init THIS.FontBold = THISFORM.SetBold() ENDPROC commandgroup commandgroup cvtalertscx. optiongroup1 optiongroup optiongroup d*setbold Determine if bold should be set, based on OS *configurefont Set font properties for form Log filename: COLDLOG CLOGFILE JUSTSTEM CFILENAME THISFORM TXTLOGFILE REFRESH NOPTDEV CCODEFILE COMMAND1 ENABLED Click, BArial, 0, 9, 5, 15, 12, 21, 3, 0 Arial, 0, 8, 5, 14, 11, 20, 3, 0 Top = 113 Left = 240 Height = 25 Width = 142 FontSize = 8 Caption = "Check1" ControlSource = "m.lRecurse" DisabledBackColor = 192,192,192 Name = "chkRecurse" cvtdlog30scx. chkRecurse checkbox ScaleMode = 3 Height = 184 Width = 390 DoCreate = .T. AutoCenter = .T. BorderStyle = 2 Caption = "Visual FoxPro Converter" Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 HelpContextID = 1895825429 Name = "cvtalertscx" cvtalert.h" checkbox :PROCEDURE Init THIS.caption = C_CONVERTVCX_LOC ENDPROC cvtdlog30scx. DPROCEDURE CHKBOTHPLAT.Init THIS.Caption = C_RETAIN30_LOC ENDPROC cvtalertpjx3 BArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 0, 8, 5, 14, 11, 12, 3, 0 cvtalertcat cvtalert.h Pixels Class cvtalertscx cvtalertcat Top = 113 Left = 144 Height = 25 Width = 93 FontSize = 8 Caption = "Check1" ControlSource = "m.lVCX" DisabledBackColor = 192,192,192 Name = "chkVCX" chkVCX checkbox checkbox cvtalert.vcx cvtalert.h" cvtalertpjx cvtalert30scx IVERSION\ FontName Geneva FontSize SETALL7 CALERTMSG LBLALERTMSG CAPTION CONFIGUREFONT COMMAND1 SETFOCUS setbold, configurefont Init3 Class BArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 0, 8, 5, 14, 11, 12, 3, 0 cvtalert.h Pixels Class cvtalertfrx cvtalert30scx 8PROCEDURE Init THIS.Caption = C_RETAIN30_LOC ENDPROC cvtalert30scx. cvtalertcat. cmdLogFile Top = 46 Left = 24 Height = 25 Width = 344 FontBold = .F. FontSize = 8 Caption = "Check1" ControlSource = "m.iBothPlat" DisabledBackColor = 192,192,192 Name = "chkSet30Def" chkSet30Def checkbox checkbox cvtalert.vcx cvtalert.h" AAutoSize = .F. ButtonCount = 2 BorderStyle = 0 Value = 1 ControlSource = "m.nCvt" Height = 39 Left = 19 TerminateRead = .T. Top = 137 Width = 228 TabIndex = 1 Name = "cmd1" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.FontBold = .F. Command1.FontName = "Arial" Command1.FontSize = 8 Command1.Caption = "Continue" Command1.Default = .T. Command1.StatusBarText = "Click to continue with conversion." Command1.TabIndex = 1 Command1.Name = "command1" Command2.Top = 5 Command2.Left = 129 Command2.Height = 29 Command2.Width = 94 Command2.FontBold = .F. Command2.FontName = "Arial" Command2.FontSize = 8 Command2.Cancel = .T. Command2.Caption = "Cancel" Command2.StatusBarText = "Click to cancel the conversion." Command2.TabIndex = 2 Command2.Name = "command2" PROCEDURE Click IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. THISFORM.cmdCodeFile.Click *-THISFORM.txtCodeFile.Enabled = .T. && commented these out -- don;t allow user to type in filename (jd 03/11/96) *-THISFORM.txtCodeFile.TabStop = .T. *-THISFORM.txtCodeFile.ReadOnly = .F. IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF THISFORM.cmdCodeFile.Enabled = .F. THISFORM.txtCodeFile.Enabled = .F. THISFORM.txtCodeFile.TabStop = .F. THISFORM.txtCodeFile.ReadOnly = .T. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC PROCEDURE option2.Message RETURN C_VISUALCONVMSG_LOC ENDPROC ButtonCount = 2 BorderStyle = 0 Value = 1 ControlSource = "nOptDev" Height = 49 Left = 19 Top = 86 Width = 148 TabIndex = 3 Name = "optiongroup1" Option1.FontBold = .F. Option1.FontName = "Arial" Option1.FontSize = 8 Option1.Caption = "\<Functional conversion" Option1.Value = 1 Option1.Height = 16 Option1.Left = 5 Option1.StatusBarText = "Convert forms so that they are ready to run." Option1.Top = 5 Option1.Width = 124 Option1.AutoSize = .T. Option1.DisabledBackColor = 192,192,192 Option1.Name = "option1" Option2.FontBold = .F. Option2.FontName = "Arial" Option2.FontSize = 8 Option2.Caption = "\<Visual conversion" Option2.Value = 0 Option2.Height = 18 Option2.Left = 5 Option2.StatusBarText = "Store procedure code in a separate file to simplify creating visual classes from your old forms." Option2.Top = 25 Option2.Width = 140 Option2.DisabledBackColor = 192,192,192 Option2.Name = "option2" Invalid filename for log file. Invalid file name for code file. CLOGFILE THISFORM TXTLOGFILE SETFOCUS NOPTDEV CCODEFILE TXTCODEFILE VALUE CLICK cmd1.command1.Click, commandbutton Height = 117 Width = 390 DoCreate = .T. Name = "cvtalert30scx" lblAlertMsg.Height = 37 lblAlertMsg.Left = 12 lblAlertMsg.Top = 7 lblAlertMsg.Width = 352 lblAlertMsg.Name = "lblAlertMsg" cmd1.Command1.Top = 5 cmd1.Command1.Left = 5 cmd1.Command1.Name = "Command1" cmd1.Command2.Top = 5 cmd1.Command2.Left = 129 cmd1.Command2.Name = "Command2" cmd1.Left = 19 cmd1.Top = 70 cmd1.Name = "cmd1" cmdHelp.Top = 75 cmdHelp.Name = "cmdHelp" Top = 97 Left = 351 Height = 25 Width = 25 Caption = "..." Enabled = .F. StatusBarText = "Select the file to contain the conversion log." TabIndex = 5 Name = "cmdLogFile" commandbutton cvtalertcat. IVERSION\ FontName Geneva FontSize SETALL7 CALERTMSG LBLALERTMSG CAPTION CONFIGUREFONT COMMAND1 SETFOCUS setbold, configurefont Init, BArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 0, 8, 5, 14, 11, 12, 3, 0 cvtalertpjx SPROCEDURE Click PRIVATE m.cOldLog IF EMPTY(m.cLogFile) m.cOldLog = "" m.cLogFile = JUSTSTEM(m.cFileName) + "." + C_LOGEXT m.cOldLog = m.cLogFile ENDIF cLogFile = LOWER(PUTFILE(C_SELLOGFILE_LOC,m.cLogFile,C_LOGEXT)) *- remember old log file, so it isn't cleared if they cancel cLogFile = IIF(EMPTY(cLogFile),m.cOldLog,SYS(2027,m.cLogFile)) THISFORM.txtLogFile.Refresh IF !EMPTY(m.cLogFile) AND ((m.nOptDev = N_DEVMODE AND !EMPTY(m.cCodeFile)) OR m.nOptDev = N_STDMODE) THISFORM.cmd1.command1.Enabled = .T. THISFORM.cmd1.command1.Enabled = .F. ENDIF ENDPROC Pixels cvtalert.h Pixels Class cvtalertcat cvtalertpjx cTop = 90 Left = 351 Height = 25 Width = 25 Caption = "..." TabIndex = 4 Name = "cmdBackDir" cvtalertpjx. cmdBackDir txtLogFile textbox commandbutton commandbutton cvtalertpjx. wPROCEDURE Click m.ncvt = 3 RELEASE THISFORM ENDPROC PROCEDURE Init THIS.FontBold = THISFORM.SetBold() ENDPROC Top = 60 Left = 396 Height = 29 Width = 94 FontBold = .F. FontName = "Arial" FontSize = 8 Cancel = .T. Caption = "Cancel" StatusBarText = "Click for help on converting files." TabIndex = 2 Name = "cmdCancel" cmdCancel commandbutton textbox cvtalertcat. check1 checkbox checkbox PROCEDURE Click PRIVATE cOldDir cOldDir = m.cBackDir cBackDir = GETDIR(m.cBackDir,C_SELBACKDIR_LOC) *- restore old directory, if they cancelled cBackDir = IIF(EMPTY(m.cBackDir),m.cOldDir,SYS(2027,m.cBackDir)) THISFORM.txtBackDir.Refresh ENDPROC txtBackDir textbox textbox cvtalert.vcx Top = 90 Left = 24 Height = 25 Width = 121 FontBold = .F. FontSize = 8 Caption = "\<Backup files" Value = 1 ControlSource = "lBackUp" TabIndex = 5 Name = "Check2" PROCEDURE setbold *- Return logical based on whether font should be bold or not *- If we're not running under Chicago, make the commandbutton bold *- BugBug: The return value of OS() will probably change--this may need updating LOCAL iVersion DO CASE CASE _WINDOWS m.iVersion = VAL(SUBSTR(OS(1), RAT(' ', OS(1)) + 1)) IF m.iVersion < 4 RETURN .t. ENDIF CASE _MAC RETURN .T. OTHERWISE ENDCASE RETURN .F. ENDPROC PROCEDURE configurefont DO CASE CASE _mac THIS.SetAll("FontName","Geneva") THIS.SetAll("FontSize",10) ENDCASE ENDPROC PROCEDURE Init *- (c) Microsoft Corporation 1995 PARAMETER cAlertMsg THIS.lblAlertMsg.Caption = cAlertMsg THIS.ConfigureFont THIS.cmd1.command1.SetFocus ENDPROC CALERTMSG CVTALERTSCX THISFORM CHKBOTHPLAT ENABLED CHKVCX CHKRECURSE FONTBOLD COMMAND1 COMMAND2 CMDHELP VALUE THISFORM CHKBOTHPLAT ENABLED CHKVCX CHKRECURSE FONTBOLD, THISFORM VALUE CLICK SCX;VCX Select the file to update: DEFAULTvC Select directory: COLDFILE CFILE THISFORM OPTIONGROUP1 VALUE TXTCODEFILE REFRESH COMMAND1 ENABLED \<SCX files CAPTION Init, optiongroup1.Click~ cmd1.Command1.Click cmdCodeFile.Click chkBothPlat.Init` FontBold = .F. FontSize = 8 ControlSource = "m.cBackDir" Enabled = .F. Format = "K" Height = 25 InputMask = (REPL("X",254)) Left = 171 ReadOnly = .T. TabIndex = 3 TabStop = .F. Top = 90 Width = 170 DisabledForeColor = 0,0,0 Name = "txtBackDir" FontBold = .F. FontName = "Arial" FontSize = 8 ControlSource = "m.cLogFile" Enabled = .F. Format = "K" Height = 25 InputMask = (REPL("X",254)) Left = 171 ReadOnly = .T. StatusBarText = 'Specifies the file that will hold the conversion log, if "Create log file" is checked.' TabIndex = 4 TabStop = .F. Top = 97 Width = 170 DisabledForeColor = 0,0,0 Name = "txtLogFile" Top = 97 Left = 24 Height = 25 Width = 114 FontBold = .F. FontName = "Arial" FontSize = 8 Caption = "Create \<log file" ControlSource = "lLog" StatusBarText = "If checked, a log file will be created that documents what the converter did." TabIndex = 3 Name = "check1" CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS NCVTW Invalid back-up directory. Invalid filename for log file. Invalid file name for code file. CFNAME LBACKUP CBACKDIR ADDBS THISFORM TXTBACKDIR SETFOCUS CLOGFILE TXTLOGFILE NOPTDEV CCODEFILE TXTCODEFILE VALUE CLICKL LBACKUP THISFORM GETBACKDIR getbackdir, cmd1.command1.Clickx cmd1.Clickk PROCEDURE Click THISFORM.txtBackDir.Enabled = THIS.value THISFORM.cmdBackDir.Enabled = THIS.value THISFORM.txtBackDir.TabStop = THIS.value THISFORM.txtBackDir.ReadOnly = !(THIS.value) IF THIS.value AND EMPTY(m.cBackDir) THISFORM.cmd1.command1.Enabled = .F. THISFORM.cmdBackDir.Click IF EMPTY(m.cBackDir) *- they cancelled, so uncheck THIS.value = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC cvtalertpjx. Check2 checkbox checkbox cvtalert.vcx THISFORM FONTBOLD THISFORM SETBOLD Invalid file name for code file. NOPTDEV CCODEFILE THISFORM TXTCODEFILE SETFOCUS VALUE CLICK FONTBOLD THISFORM SETBOLD# THISFORM VALUE CLICK Click, Command1.Initf Command1.Click Command2.Init Command2.Click *getbackdir Get a backupDir cvtalert.vcx /PROCEDURE Click THISFORM.cmdLogFile.Enabled = THIS.value *-THISFORM.txtLogFile.Enabled = THIS.value && commented these out -- don't allow user to type in values (03.11.96 jd) *-THISFORM.txtLogFile.TabStop = THIS.value *-THISFORM.txtLogFile.ReadOnly = !(THIS.value) IF THIS.value AND EMPTY(m.cLogFile) THISFORM.cmd1.command1.Enabled = .F. THISFORM.cmdLogFile.Click IF EMPTY(m.cLogFile) *- they cancelled, so uncheck THIS.value = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC PROCEDURE cmd1.command1.Click LOCAL m.nfh IF lLog IF EMPTY(m.cLogFile) *- this should never happen RETURN ENDIF *- make sure file can be created m.nfh = FCREATE(m.cLogFile) IF m.nfh = -1 *- problem creating file =MESSAGEBOX(E_BADLOGNAME_LOC) THISFORM.txtLogFile.SetFocus RETURN ELSE =FCLOSE(m.nfh) ERASE (m.cLogFile) ENDIF ENDIF IF nOptDev = N_DEVMODE IF EMPTY(m.cCodeFile) *- this should never happen RETURN ENDIF *- make sure file can be created m.nfh = FCREATE(m.cCodeFile) IF m.nfh = -1 *- problem creating file =MESSAGEBOX(E_BADFNAME_LOC) THISFORM.txtCodeFile.SetFocus RETURN ELSE =FCLOSE(m.nfh) ERASE (m.cCodeFile) ENDIF ENDIF THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE setbold *- Return logical based on whether font should be bold or not *- If we're not running under Chicago, make the commandbutton bold *- BugBug: The return value of OS() will probably change--this may need updating LOCAL iVersion DO CASE CASE _WINDOWS m.iVersion = VAL(SUBSTR(OS(1), RAT(' ', OS(1)) + 1)) IF m.iVersion < 4 RETURN .t. ENDIF CASE _MAC OTHERWISE ENDCASE RETURN .F. ENDPROC PROCEDURE configurefont DO CASE CASE _mac THIS.SetAll("FontName","Geneva") THIS.SetAll("FontSize",10) ENDCASE ENDPROC PROCEDURE Init PARAMETER cAlertMsg THIS.lblAlertMsg.Caption = cAlertMsg THIS.ConfigureFont THIS.cmd1.command1.SetFocus ENDPROC 0Height = 102 Width = 514 DoCreate = .T. Name = "cvtlocate" lblAlertMsg.Height = 42 lblAlertMsg.Left = 12 lblAlertMsg.Top = 7 lblAlertMsg.Width = 480 lblAlertMsg.Name = "lblAlertMsg" cmd1.Command1.Top = 5 cmd1.Command1.Left = 5 cmd1.Command1.Caption = "Locate" cmd1.Command1.Default = .T. cmd1.Command1.Name = "Command1" cmd1.Command2.Top = 5 cmd1.Command2.Left = 129 cmd1.Command2.Cancel = .F. cmd1.Command2.Caption = "\<Ignore" cmd1.Command2.Name = "Command2" cmd1.Name = "cmd1" cmdHelp.Caption = "Ignore \<All" cmdHelp.Name = "cmdHelp" Height = 200 Width = 390 DoCreate = .T. Name = "cvtalertpjx3" Optiongroup1.Option1.Value = 1 Optiongroup1.Option1.Left = 5 Optiongroup1.Option1.Top = 5 Optiongroup1.Option1.Name = "Option1" Optiongroup1.Option2.Value = 0 Optiongroup1.Option2.Left = 5 Optiongroup1.Option2.Top = 25 Optiongroup1.Option2.Name = "Option2" Optiongroup1.Visible = .F. Optiongroup1.ZOrderSet = 0 Optiongroup1.Name = "Optiongroup1" cmd1.Command1.Top = 5 cmd1.Command1.Left = 5 cmd1.Command1.Name = "Command1" cmd1.Command2.Top = 5 cmd1.Command2.Left = 129 cmd1.Command2.Name = "Command2" cmd1.Left = 19 cmd1.Top = 159 cmd1.ZOrderSet = 12 cmd1.Name = "cmd1" txtCodeFile.Visible = .F. txtCodeFile.ZOrderSet = 1 txtCodeFile.Name = "txtCodeFile" cmdCodeFile.Visible = .F. cmdCodeFile.ZOrderSet = 2 cmdCodeFile.Name = "cmdCodeFile" cmdHelp.Top = 164 cmdHelp.Name = "cmdHelp" lblAlertMsg.Height = 49 lblAlertMsg.Left = 24 lblAlertMsg.Top = 12 lblAlertMsg.Width = 340 lblAlertMsg.ZOrderSet = 3 lblAlertMsg.Name = "lblAlertMsg" CHKBOTHPLAT.Top = 62 CHKBOTHPLAT.Left = 24 CHKBOTHPLAT.Height = 25 CHKBOTHPLAT.Width = 344 CHKBOTHPLAT.ZOrderSet = 4 CHKBOTHPLAT.Name = "CHKBOTHPLAT" Check1.Top = 122 Check1.Left = 24 Check1.Height = 25 Check1.Width = 114 Check1.ZOrderSet = 5 Check1.Name = "Check1" txtLogFile.ZOrderSet = 6 txtLogFile.Name = "txtLogFile" cmdLogFile.ZOrderSet = 7 cmdLogFile.Name = "cmdLogFile" Check2.Top = 90 Check2.Left = 24 Check2.Height = 25 Check2.Width = 121 Check2.ZOrderSet = 8 Check2.Name = "Check2" txtBackDir.ZOrderSet = 9 txtBackDir.Name = "txtBackDir" cmdBackDir.ZOrderSet = 10 cmdBackDir.Name = "cmdBackDir" 0ButtonCount = 2 BorderStyle = 0 Value = 1 ControlSource = "m.nCvt" Height = 49 Left = 19 TerminateRead = .T. Top = 55 Width = 223 TabIndex = 1 Name = "cmd1" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.FontBold = .F. Command1.FontName = "Arial" Command1.FontSize = 8 Command1.Caption = "Continue" Command1.Default = .T. Command1.StatusBarText = "Click to continue with conversion." Command1.TabIndex = 1 Command1.Name = "Command1" Command2.Top = 5 Command2.Left = 129 Command2.Height = 29 Command2.Width = 94 Command2.FontBold = .F. Command2.FontName = "Arial" Command2.FontSize = 8 Command2.Cancel = .T. Command2.Caption = "Cancel" Command2.StatusBarText = "Click to cancel the conversion." Command2.TabIndex = 2 Command2.Name = "Command2" PROCEDURE Init *- (c) Microsoft Corporation 1995 PARAMETER cAlertMsg cvtAlertSCX::Init(cAlertMsg) THISFORM.chkBothPlat.Enabled = .F. && really, the SCX checkbox THISFORM.chkVCX.Enabled = .F. THISFORM.chkRecurse.Enabled = .F. THISFORM.chkBothPlat.FontBold = .T. THISFORM.chkVCX.FontBold = .T. THISFORM.chkRecurse.FontBold = .T. THISFORM.cmd1.command1.Enabled = .F. THISFORM.cmd1.command1.FontBold = .F. THISFORM.cmd1.command2.FontBold = .F. THISFORM.cmdHelp.FontBold = .F. ENDPROC PROCEDURE optiongroup1.Click IF THIS.value = 1 THISFORM.chkBothPlat.Enabled = .F. && really, the SCX checkbox THISFORM.chkVCX.Enabled = .F. THISFORM.chkRecurse.Enabled = .F. THISFORM.chkBothPlat.FontBold = .T. THISFORM.chkVCX.FontBold = .T. THISFORM.chkRecurse.FontBold = .T. THISFORM.chkBothPlat.Enabled = .T. THISFORM.chkVCX.Enabled = .T. THISFORM.chkRecurse.Enabled = .T. THISFORM.chkBothPlat.FontBold = .F. THISFORM.chkVCX.FontBold = .F. THISFORM.chkRecurse.FontBold = .F. ENDIF ENDPROC PROCEDURE cmd1.Command1.Click LOCAL m.nfh THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE cmdCodeFile.Click LOCAL cOldFile *- remember old one cOldFile= m.cFile IF THISFORM.optionGroup1.Value = 1 *- file cFile = LOWER(GETFILE("SCX;VCX",C_SELSCXFILE_LOC)) *- directory cFile = LOWER(GETDIR(SET("DEFAULT") + CURDIR(),C_SELSCXDIR_LOC)) ENDIF cFile = IIF(EMPTY(cFile),cOldFile,SYS(2027,cFile)) && in case user cancels, restore old value THISFORM.txtCodeFile.Refresh THISFORM.cmd1.command1.Enabled = !EMPTY(m.cFile) ENDPROC PROCEDURE chkBothPlat.Init THIS.caption = C_CONVERTSCX_LOC ENDPROC Height = 187 Width = 390 DoCreate = .T. Name = "cvtdlog30scx" optiongroup1.Option1.Caption = "\<File" optiongroup1.Option1.Value = 1 optiongroup1.Option1.Left = 5 optiongroup1.Option1.Top = 5 optiongroup1.Option1.Name = "Option1" optiongroup1.Option2.Caption = "\<Directory" optiongroup1.Option2.Value = 0 optiongroup1.Option2.Left = 5 optiongroup1.Option2.Top = 25 optiongroup1.Option2.Name = "Option2" optiongroup1.ControlSource = "iFileDir" optiongroup1.Height = 49 optiongroup1.Left = 26 optiongroup1.Top = 64 optiongroup1.Width = 91 optiongroup1.Name = "optiongroup1" cmd1.Command1.Top = 5 cmd1.Command1.Left = 5 cmd1.Command1.Name = "Command1" cmd1.Command2.Top = 5 cmd1.Command2.Left = 129 cmd1.Command2.Name = "Command2" cmd1.Left = 21 cmd1.Top = 142 cmd1.Name = "cmd1" txtCodeFile.ControlSource = "m.cFile" txtCodeFile.Height = 25 txtCodeFile.Left = 125 txtCodeFile.Top = 79 txtCodeFile.Width = 218 txtCodeFile.Name = "txtCodeFile" cmdCodeFile.Top = 79 cmdCodeFile.Left = 351 cmdCodeFile.Height = 25 cmdCodeFile.FontSize = 9 cmdCodeFile.Caption = "..." cmdCodeFile.Enabled = .T. cmdCodeFile.Name = "cmdCodeFile" cmdHelp.Top = 147 cmdHelp.Left = 274 cmdHelp.Name = "cmdHelp" lblAlertMsg.Height = 27 lblAlertMsg.Left = 24 lblAlertMsg.Top = 12 lblAlertMsg.Width = 352 lblAlertMsg.Name = "lblAlertMsg" chkBothPlat.Top = 113 chkBothPlat.Left = 32 chkBothPlat.Height = 25 chkBothPlat.Width = 97 chkBothPlat.ControlSource = "m.lSCX" chkBothPlat.Name = "chkBothPlat" ^PROCEDURE getbackdir *---------------------------------- * FUNCTION GetBackDir *---------------------------------- PRIVATE cBackdef, nTmpCount, cTmpDir m.nTmpCount = 0 m.cBackDir = ALLT(m.cBackDir) m.cTmpDir = m.cBackDir + C_BACKDIR DO WHILE ADIR(atmparr,m.cTmpDir,"D") # 0 m.nTmpCount = m.nTmpCount + 1 m.cTmpDir = ADDBS(m.cBackDir) + C_BACKDIR + ALLTRIM(STR(m.nTmpCount)) ENDDO *- make directory MD (m.cTmpDir) *- make sure it got created IF ADIR(atmparr,m.cTmpDir,"D") = 0 *- Error creating directory m.cTmpDir = "" m.nCvt = 2 ENDIF m.cBackDir = m.cTmpDir * ENDFUNC ENDPROC PROCEDURE cmd1.command1.Click LOCAL m.nfh, cFName IF m.lBackUp AND !EMPTY(m.cBackDir) m.cFname = AddBS(TRIM(m.cBackDir)) + SYS(3) *- make sure file can be created m.nfh = FCREATE(m.cFname) IF m.nfh = -1 *- problem creating file =MESSAGEBOX(E_BADBACKDIR_LOC) THISFORM.txtBackDir.SetFocus RETURN ELSE =FCLOSE(m.nfh) ERASE (m.cFname) ENDIF ENDIF IF lLog IF EMPTY(m.cLogFile) *- this should never happen RETURN ENDIF *- make sure file can be created m.nfh = FCREATE(m.cLogFile) IF m.nfh = -1 *- problem creating file =MESSAGEBOX(E_BADLOGNAME_LOC) THISFORM.txtLogFile.SetFocus RETURN ELSE =FCLOSE(m.nfh) ERASE (m.cLogFile) ENDIF ENDIF IF nOptDev = N_DEVMODE IF EMPTY(m.cCodeFile) *- this should never happen RETURN ENDIF *- make sure file can be created m.nfh = FCREATE(m.cCodeFile) IF m.nfh = -1 *- problem creating file =MESSAGEBOX(E_BADFNAME_LOC) THISFORM.txtCodeFile.SetFocus RETURN ELSE =FCLOSE(m.nfh) ERASE (m.cCodeFile) ENDIF ENDIF THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE cmd1.Click IF nCvt = 1 AND m.lBackUp THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC $Height = 226 Width = 390 DoCreate = .T. MaxButton = .F. Name = "cvtalertcat" optiongroup1.option1.Value = 1 optiongroup1.option1.Left = 5 optiongroup1.option1.Top = 5 optiongroup1.option1.Name = "option1" optiongroup1.option2.Value = 0 optiongroup1.option2.Left = 5 optiongroup1.option2.Top = 25 optiongroup1.option2.Name = "option2" optiongroup1.ControlSource = "nOptDev" optiongroup1.Height = 49 optiongroup1.Top = 128 optiongroup1.Width = 133 optiongroup1.TabIndex = 6 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.TabIndex = 1 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 129 cmd1.command2.TabIndex = 2 cmd1.command2.Name = "command2" cmd1.Top = 179 cmd1.TabIndex = 1 cmd1.Name = "cmd1" txtcodefile.Left = 171 txtcodefile.TabIndex = 7 txtcodefile.Top = 143 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 143 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 8 cmdcodefile.Name = "cmdcodefile" cmdHelp.Top = 184 cmdHelp.Name = "cmdHelp" lblalertmsg.Height = 49 lblalertmsg.Left = 24 lblalertmsg.Top = 12 lblalertmsg.Width = 340 lblalertmsg.Name = "lblalertmsg" chkBothPlat.Top = 62 chkBothPlat.Left = 24 chkBothPlat.Height = 25 chkBothPlat.Width = 344 chkBothPlat.Name = "chkBothPlat" Height = 251 Width = 390 DoCreate = .T. MaxButton = .F. Name = "cvtalertpjx" optiongroup1.option1.Value = 1 optiongroup1.option1.Left = 5 optiongroup1.option1.Top = 5 optiongroup1.option1.Name = "option1" optiongroup1.option2.Value = 0 optiongroup1.option2.Left = 5 optiongroup1.option2.Top = 25 optiongroup1.option2.Name = "option2" optiongroup1.Top = 153 optiongroup1.TabIndex = 8 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 129 cmd1.command2.Name = "command2" cmd1.ControlSource = "nCvt" cmd1.Top = 207 cmd1.TabIndex = 1 cmd1.Name = "cmd1" txtcodefile.Left = 171 txtcodefile.TabIndex = 9 txtcodefile.Top = 168 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 168 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 10 cmdcodefile.Name = "cmdcodefile" cmdHelp.Top = 212 cmdHelp.Name = "cmdHelp" lblalertmsg.Height = 49 lblalertmsg.Left = 24 lblalertmsg.Top = 12 lblalertmsg.Width = 340 lblalertmsg.Name = "lblalertmsg" chkBothPlat.Top = 62 chkBothPlat.Left = 24 chkBothPlat.Height = 25 chkBothPlat.Width = 344 chkBothPlat.Name = "chkBothPlat" check1.Top = 122 check1.Left = 24 check1.Height = 25 check1.Width = 114 check1.TabIndex = 5 check1.Name = "check1" txtlogfile.Left = 171 txtlogfile.TabIndex = 6 txtlogfile.Top = 122 txtlogfile.Name = "txtlogfile" cmdlogfile.Top = 122 cmdlogfile.Left = 351 cmdlogfile.TabIndex = 7 cmdlogfile.Name = "cmdlogfile" #DEFINE C_CONVERSION_LOC "Microsoft Visual FoxPro Converter Utility Version 5.00e (07/15/96)" *- CONVERT.H *- Header file for Convert.PRG *- (c) Microsoft Corporation 1995 *- debug #DEFINES -- no need to localize these #DEFINE L_SHOWVERSION .F. #DEFINE L_DEBUG .F. #DEFINE L_USEVCX .F. #DEFINE L_DEBUGSUSPEND .F. #DEFINE C_LATESTVER "03.00.00.0424" *- current version numbers #DEFINE C_SCXVERSTAMP "VERSION = 3.00" #DEFINE C_PJXVERSTAMP 260 && 1.3 *- various common special chars #DEFINE C_CRLF CHR(13)+CHR(10) && return/linefeed #DEFINE C_CR CHR(13) && return #DEFINE C_LF CHR(10) && linefeed #DEFINE C_TAB CHR(9) && tab #DEFINE C_TAB2 CHR(9)+CHR(9) && 2 tabs #DEFINE C_NULL CHR(0) && null char *- error messages (need localizing) #DEFINE E_INVALIDFILE_LOC "Invalid file selected." #DEFINE E_INVALPJX_LOC "Invalid Project file selected." #DEFINE E_INVALFPC_LOC "Invalid Catalog file selected." #DEFINE E_INVALDBF_LOC "Invalid file format." #DEFINE E_WRONGFMT_LOC "Screen file is an unknown format." #DEFINE E_WRONGFMT2_LOC "Report or label file is an unknown format." #DEFINE E_NOSCX_LOC "You must select an SCX file." #DEFINE E_NOOPEN_LOC "Cannot open " #DEFINE E_NOCLOSE_LOC "Cannot close " #DEFINE E_FILE_LOC "File " #DEFINE E_NOSCXFILE_LOC "Cannot use converter - missing TAZMAIN.SCX file." #DEFINE E_HAS20FILE_LOC "You have selected a FoxPro 2.0 file. The Transporter must first convert it to a 2.6 format." #DEFINE E_NOTRANS_LOC "The transporter program could not be found. Conversion cancelled." #DEFINE E_NOPLATOBJS_LOC "You have selected a FoxPro screen without any current platform objects. The Transporter must first convert it." #DEFINE E_NODIR_LOC "Error creating backup directory. Operation cancelled." #DEFINE E_NOFILE_LOC "Could not locate file listed in " #DEFINE E_OPCANC_LOC ". Operation cancelled." #DEFINE E_NOCONVERT_LOC "It was not converted." #DEFINE E_NOCONVERT1_LOC " not found. " + E_NOCONVERT_LOC #DEFINE E_NOCONVERT2_LOC " could not be opened. " + E_NOCONVERT_LOC #DEFINE E_NOCONVERT3_LOC " is read-only. " + E_NOCONVERT_LOC #DEFINE E_NOCONVERT4_LOC " is hidden or is a system file. " + E_NOCONVERT_LOC #DEFINE E_NOBACKUP_LOC ". Not backed up." #DEFINE E_NOSTART_LOC "There was a problem starting the Converter." #DEFINE E_BADFOX1_LOC "You must be using FoxPro version " #DEFINE E_BADFOX2_LOC " or later to run converter." #DEFINE E_NOOPENSRC_LOC "Cannot open source file " #DEFINE E_FILENOEXIST_LOC "File @1 does not exist." #DEFINE E_BADCODEPAGE_LOC "Code page @1 is invalid." #DEFINE E_BADCALL_LOC "The wrong parameters were passed to the converter. To convert files, open them from the File menu." #DEFINE E_FILEOPEN_LOC "File is already open." #DEFINE E_NA_LOC "Feature not available yet." #DEFINE E_NOCREATE_LOC "Error creating " #DEFINE E_NOWRITE_LOC "Error writing to " #DEFINE E_NOFINDS_LOC "Some files are missing or could not be located. They will not be converted. Continue?" #DEFINE E_FATAL_LOC "An error occurred in the Converter and it cannot continue." #DEFINE E_FATAL2_LOC " The error has been logged in " #DEFINE E_FATAL3_LOC ". Open the logfile?" #DEFINE E_FATAL1_LOC "Fatal Error in Converter: " #DEFINE E_ERR1_LOC "Error: " #DEFINE E_ERR2_LOC "Error Number: " #DEFINE E_ERR3_LOC "Method: " #DEFINE E_ERR4_LOC "Line: " #DEFINE E_ERR5_LOC "Offending Code: " #DEFINE E_ERR6_LOC "File being processed: " #DEFINE E_ERR7_LOC "Not recorded" #DEFINE E_NOMIG_LOC "Unable to migrate file." #DEFINE E_MIGSTART_LOC "Begin migration to FoxPro 2.x format." #DEFINE E_MIGEND_LOC "Successfully completed migration to FoxPro 2.x format." #DEFINE E_MACROEXPR1_LOC "Cannot process macro expression in generator directive." #DEFINE E_PROPTOOLONG_LOC "Expression too long at Record # " #DEFINE E_WARNING_LOC "WARNING" #DEFINE E_EXPRNOCONV_LOC "The expression was not converted. " #DEFINE E_SEELOGFILE_LOC "See the log file for details." #DEFINE E_DISKFULL_LOC "The disk is full, and the converter cannot continue. The log file cannot be saved to disk." #DEFINE E_NOINCLUDE_LOC "The file could not be compiled. Check the .ERR file for details and compile manually." #DEFINE E_NOINCLUDE1_LOC "The file " #DEFINE E_NOINCLUDE2_LOC " could not be compiled. Check the .ERR file for details and compile manually." *- Other strings to localize #DEFINE C_CONVERT1_LOC "Do you want to convert the screen " #DEFINE C_CONVERT2_LOC " to Visual FoxPro 5.0 format?" && (The original file will still be available)." #DEFINE C_CONVERT3_LOC "Do you want to convert the " #DEFINE C_CONVERT3p_LOC "project " #DEFINE C_CONVERT3c_LOC "catalog " #DEFINE C_CONVERT3r_LOC "report " #DEFINE C_CONVERT3l_LOC "label " #DEFINE C_CONVERT4_LOC " (and all of the forms and reports within it) to Visual FoxPro 5.0 format?" && (The original files will still be available)." #DEFINE C_GETP1_LOC "Select Screen File:" #DEFINE C_INSMESS1_LOC "*- Start of #INSERT directive - " #DEFINE C_INSMESS2_LOC "*- End of #INSERT directive" #DEFINE C_INSMESS3_LOC "*- Could not find #INSERT directive file" #DEFINE C_PROCESS_LOC "Processing: " #DEFINE C_SSETS_LOC " screen sets." #DEFINE C_NEWFORM_LOC "New Form: " #DEFINE C_OF_LOC " of " #DEFINE C_PROJSTAT_LOC "Project Status" #DEFINE C_PROJNAME_LOC "Project: " #DEFINE C_COMPLETE_LOC "Completed: " #DEFINE C_PERCHAR_LOC "%" #DEFINE C_BACKFILES_LOC "Backing up project files..." #DEFINE C_MAXFILES_LOC " files." #DEFINE C_OVERWRITE_LOC " exists. Overwrite it?" #DEFINE C_SAYSCOMMENT_LOC "*- 2.6 SAYs that need to be refreshed" #DEFINE C_THERMMSG1_LOC "Converting project " #DEFINE C_THERMMSG2_LOC "Converting screen " #DEFINE C_THERMMSG3_LOC "Converting format file " #DEFINE C_THERMMSG4_LOC "Converting catalog file " #DEFINE C_THERMMSG5_LOC "Converting file " #DEFINE C_THERMMSG6_LOC "Transporting project " #DEFINE C_THERMMSG7_LOC "Transporting screen " #DEFINE C_THERMMSG8_LOC "Converting report " #DEFINE C_THERMMSG9_LOC "Transporting report " #DEFINE C_THERMMSG10_LOC "Updating report " #DEFINE C_THERMMSG11_LOC "Migrating screen " #DEFINE C_THERMMSG12_LOC "Migrating report " #DEFINE C_THERMMSG13_LOC "Migrating format file " #DEFINE C_THERMTITLE_LOC "" #DEFINE C_PROJTASK1_LOC "Converting screens..." #DEFINE C_PROJTASK2_LOC "Converting other files..." #DEFINE C_PROJTASK3_LOC "Migrating files..." #DEFINE C_PROJTASK4_LOC "Converting project..." #DEFINE C_PROJTASK5_LOC "Converting catalog..." #DEFINE C_PROJTASK6_LOC "Setting 3.0 defaults..." #DEFINE C_CONVMSG_LOC "Converted." + CHR(13) #DEFINE C_NOTCONVMSG_LOC "Not converted." #DEFINE C_FILECONV_LOC "File already converted" #DEFINE C_CREATMSG_LOC ". SPR file created." #DEFINE C_NOCONVMSG_LOC "No conversion necessary." #DEFINE C_CONVLOG_LOC "Conversion Log for " #DEFINE C_CONVVERS_LOC "Converter: " #DEFINE C_LOGEND_LOC "*- end of log" #DEFINE C_CODESRC_LOC "Miscellaneous code" #DEFINE C_CODEHDR_LOC "*- Code from " #DEFINE C_CODEHDR1_LOC "*----------------------------------------------" + C_CRLF #DEFINE C_LOCFILE_LOC "Locate " #DEFINE C_LOCFILE2_LOC "Locate file:" #DEFINE C_LOCFILE3_LOC "The file " + JustFName(cTmpFname) + " could not be found. Would you like to try and locate the file?" #DEFINE C_ERRLOG_LOC "Error" && name of logfile in case of error and no logfile specified -- DON'T EXCEED 6 CHARACTERS #DEFINE C_BEGIN_LOC "Begin Conversion" #DEFINE C_END_LOC "End Conversion" #DEFINE C_SUCCESSCONV_LOC "Successful conversion took " #DEFINE C_SECONDS_LOC " seconds." #DEFINE C_COMPILE_LOC "Compiling." #DEFINE C_ESCAPE_LOC "Escape was pressed. Cancel conversion?" #DEFINE C_ESCLOGMSG_LOC "Conversion cancelled at user's request." #DEFINE C_MIGRATEMSG_LOC "Migrating file..." #DEFINE C_FILEFOUNDMSG_LOC "File is already in this project. It was not converted or added to the project." #DEFINE C_MACLOGMSG_LOC "(Macintosh version)" #DEFINE C_WHEREIS_LOC "Where is " *- comments that will be inserted into code #DEFINE C_PARM1_CMMT_LOC "*- [CONVERTER] Parameter statement generated by Converter" + CHR(13) + "*- [CONVERTER] Pass these values along to the new form" + CHR(13) #DEFINE C_PARM2_CMMT_LOC "*- [CONVERTER] We need to add special code in case no parms are passed, so" + CHR(13) + "*- [CONVERTER] we don't pass on default parms that shouldn't be there" + CHR(13) #DEFINE C_OPENTAB_CMMT_LOC "*- [CONVERTER] Open tables so that fields are available" + CHR(13) #DEFINE C_SETIDX_CMMT_LOC "*- [CONVERTER] Open old-style IDX index file specified in screen environment" + CHR(13) #DEFINE C_PROCS_CMMT_LOC "*- [CONVERTER] Begin CLEANUP and other procedures from 2.x Form" + CHR(13) #DEFINE C_PROCSEND_CMMT_LOC "*- [CONVERTER] End CLEANUP and other procedures from 2.x Form" + CHR(13) #DEFINE C_VALID_CMMT_LOC "*- [CONVERTER] Begin VALID/WHEN procedures from 2.x Form" + CHR(13) #DEFINE C_VALIDEND_CMMT_LOC "*- [CONVERTER] End VALID/WHEN procedures from 2.x Form" + CHR(13) #DEFINE C_INCLUDE_CMMT_LOC "*- [CONVERTER] New INCLUDE file, with #DEFINEs" + CHR(13) #DEFINE C_EXTERN_CMMT_LOC "*- [CONVERTER] Declare arrays" + CHR(13) #DEFINE C_SYS16_CMMT_LOC "*- [CONVERTER] SYS(16) replacement to accommodate relocated code" + CHR(13) #DEFINE C_SYS16END_CMMT_LOC "*- [CONVERTER] End of SYS(16) replacement" + CHR(13) #DEFINE C_RETVAL_CMMT_LOC "*- [CONVERTER] _rval will hold return value" + CHR(13) #DEFINE C_SETUP_CMMT_LOC "*- [CONVERTER] Remember environment" + CHR(13) #DEFINE C_CLEANUP_CMMT_LOC "*- [CONVERTER] Restore environment" + CHR(13) #DEFINE C_MACRO_CMMT_LOC "*- [CONVERTER] Cannot process macro in generator directive" + CHR(13) #DEFINE C_H_CMMT_LOC "*- [CONVERTER] Header File for " #DEFINE C_SETSKIP_CMMT_LOC "*- [CONVERTER] set SET SKIP TO" + CHR(13) #DEFINE C_FRXDESTROY_LOC "*- [CONVERTER] Reset tables for compatibility" + CHR(13) #DEFINE C_CONV_CMMT_LOC "*- [CONVERTER] " #DEFINE C_GOTO1_CMMT_LOC "*- [CONVERTER] Reset record pointers" + CHR(13) #DEFINE C_GOTO2_CMMT_LOC "*- [CONVERTER] Remember record pointers" + CHR(13) #DEFINE C_GOTOVAR1_CMMT_LOC "*- [CONVERTER] Declare variables for record pointers" + CHR(13) #DEFINE C_GOTOVAR2_CMMT_LOC "*- [CONVERTER] Release variables for record pointers" + CHR(13) #DEFINE C_SELECTFILE_LOC "Select the file or directory to update." *- These #defines are used by the LOCWORD procedure #DEFINE C_TABLE_LOC "Table" #DEFINE C_QUERY_LOC "Query" #DEFINE C_FORM_LOC "Screen" #DEFINE C_REPORT_LOC "Report" #DEFINE C_LABEL_LOC "Label" #DEFINE C_PROGRAM_LOC "Program" #DEFINE C_CATALOG_LOC "Catalog" *- file type parameters that will be passed to converter *- do not localize #DEFINE C_SCREENTYPEPARM "SCREEN" #DEFINE C_PROJECTTYPEPARM "PROJECT" #DEFINE C_CATALOGTYPEPARM "CATALOG" #DEFINE C_REPORTTYPEPARM "REPORT" #DEFINE C_MENUTYPEPARM "MENU" #DEFINE C_LABELTYPEPARM "LABEL" #DEFINE C_DB4QUERYTYPEPARM "DB4QUERY" #DEFINE C_DB4FORMTYPEPARM "DB4FORM" #DEFINE C_DB4REPORTTYPEPARM "DB4REPORT" #DEFINE C_DB4LABELTYPEPARM "DB4LABEL" #DEFINE C_DB4VERSIONPARM "DBASE" #DEFINE C_FOXVERSIONPARM "FOX" #DEFINE C_FMTTYPEPARM "FORMAT" #DEFINE C_FPLUSFRXTYPEPARM "FB+FRX" *- SCX Array numbers #DEFINE A_PLATFORM 1 #DEFINE A_UNIQUEID 2 #DEFINE A_TIMESTAMP 3 #DEFINE A_OBJTYPE 4 #DEFINE A_OBJCODE 5 #DEFINE A_NAME 6 #DEFINE A_EXPR 7 #DEFINE A_VPOS 8 #DEFINE A_HPOS 9 #DEFINE A_HEIGHT 10 #DEFINE A_WIDTH 11 #DEFINE A_STYLE 12 #DEFINE A_PICTURE 13 #DEFINE A_ORDER 14 #DEFINE A_UNIQUE 15 #DEFINE A_COMMENT 16 #DEFINE A_ENVIRON 17 #DEFINE A_BOXCHAR 18 #DEFINE A_FILLCHAR 19 #DEFINE A_TAG 20 #DEFINE A_TAG2 21 #DEFINE A_PENRED 22 #DEFINE A_PENGREEN 23 #DEFINE A_PENBLUE 24 #DEFINE A_FILLRED 25 #DEFINE A_FILLGREEN 26 #DEFINE A_FILLBLUE 27 #DEFINE A_PENSIZE 28 #DEFINE A_PENPAT 29 #DEFINE A_FILLPAT 30 #DEFINE A_FONTFACE 31 #DEFINE A_FONTSTYLE 32 #DEFINE A_FONTSIZE 33 #DEFINE A_MODE 34 #DEFINE A_RULER 35 #DEFINE A_RULERLINES 36 #DEFINE A_GRID 37 #DEFINE A_GRIDV 38 #DEFINE A_GRIDH 39 #DEFINE A_SCHEME 40 #DEFINE A_SCHEME2 41 #DEFINE A_COLORPAIR 42 #DEFINE A_LOTYPE 43 #DEFINE A_RANGELO 44 #DEFINE A_HITYPE 45 #DEFINE A_RANGEHI 46 #DEFINE A_WHENTYPE 47 #DEFINE A_WHEN 48 #DEFINE A_VALIDTYPE 49 #DEFINE A_VALID 50 #DEFINE A_ERRORTYPE 51 #DEFINE A_ERROR 52 #DEFINE A_MESSTYPE 53 #DEFINE A_MESSAGE 54 #DEFINE A_SHOWTYPE 55 #DEFINE A_SHOW 56 #DEFINE A_ACTIVTYPE 57 #DEFINE A_ACTIVATE 58 #DEFINE A_DEACTTYPE 59 #DEFINE A_DEACTIVATE 60 #DEFINE A_PROCTYPE 61 #DEFINE A_PROCCODE 62 #DEFINE A_SETUPTYPE 63 #DEFINE A_SETUPCODE 64 #DEFINE A_FLOAT 65 #DEFINE A_CLOSE 66 #DEFINE A_MINIMIZE 67 #DEFINE A_BORDER 68 #DEFINE A_SHADOW 69 #DEFINE A_CENTER 70 #DEFINE A_REFRESH 71 #DEFINE A_DISABLED 72 #DEFINE A_SCROLLBAR 73 #DEFINE A_ADDALIAS 74 #DEFINE A_TAB 75 #DEFINE A_INITIALVAL 76 #DEFINE A_INITIALNUM 77 #DEFINE A_SPACING 78 #DEFINE A_CURPOS 79 *- PJX Array numbers #DEFINE A_OPENFILES 1 #DEFINE A_CLOSEFILES 2 #DEFINE A_DEFWINDOWS 3 #DEFINE A_RELWINDOWS 4 #DEFINE A_READMODAL 5 #DEFINE A_GETBORDERS 6 #DEFINE A_READCYCLE 7 #DEFINE A_READNOLOCK 8 #DEFINE A_MULTIREADS 9 #DEFINE A_ASSOCWINDS 10 *- SCX/PJX Array property mappings #DEFINE M_READONLY "ReadOnly" #DEFINE M_READCYCLE "ReadCycle" #DEFINE M_READNOLOCK "ReadLock" #DEFINE M_READNOMOUSE "ReadNoMouse" #DEFINE M_READSAVE "ReadSave" #DEFINE M_READTIME "ReadTimeout" #DEFINE M_READOBJ "ReadObject" #DEFINE M_ASSOCWINDS "WindowList" #DEFINE M_NAME "Name" #DEFINE M_DATASOURCE "ControlSource" #DEFINE M_CAPTION "Caption" #DEFINE M_EXPR "RowSource" #DEFINE M_VPOS "Top" #DEFINE M_HPOS "Left" #DEFINE M_HEIGHT "Height" #DEFINE M_WIDTH "Width" #DEFINE M_LSTYLE "RowSourceType" #DEFINE M_STYLE "Style" #DEFINE M_PICTURE "" #DEFINE M_FPICTURE "Picture" && "Bitmap" Wallpaper #DEFINE M_ICON "Icon" && Icon (Windows) #DEFINE M_UNIQUE "" #DEFINE M_ENVIRON "" #DEFINE M_BOXCHAR "" #DEFINE M_FILLCHAR "DataType" #DEFINE M_TAG "" #DEFINE M_TAGD "BottomCaption" && DOS Only #DEFINE M_TAG2 "" #DEFINE M_PEN "ForeColor" #DEFINE M_BACKCOLOR "BackColor" #DEFINE M_FILLCOLOR "FillColor" #DEFINE M_PENSIZE "BorderWidth" #DEFINE M_PENPAT "BorderStyle" #DEFINE M_BORDERCOLOR "BorderColor" #DEFINE M_FILLPAT "FillStyle" #DEFINE M_FONTFACE "FontName" #DEFINE M_FONTSIZE "FontSize" #DEFINE M_FONTBOLD "FontBold" #DEFINE M_FONTITAL "FontItalic" #DEFINE M_FONTUNDER "FontUnderline" #DEFINE M_FONTSHADOW "FontShadow" #DEFINE M_FONTOUTLINE "FontOutline" #DEFINE M_FONTCONDENSE "FontCondense" #DEFINE M_FONTEXTEND "FontExtend" #DEFINE M_FONTOPAQ "FontOpaque" #DEFINE M_FONTTRANS "FontTransparent" #DEFINE M_MODE "BackStyle" #DEFINE M_RULER "" #DEFINE M_RULERLINES "" #DEFINE M_GRID "" #DEFINE M_GRIDV "" #DEFINE M_GRIDH "" #DEFINE M_SCHEME "ColorScheme" #DEFINE M_SCHEME2 "" #DEFINE M_COLORPAIR "" #DEFINE M_RANGELO "LowValue" #DEFINE M_RANGEHI "HighValue" #DEFINE M_RANGE2LO "RangeLow" #DEFINE M_RANGE2HI "RangeHigh" #DEFINE M_1STELEMENT "FirstElement" #DEFINE M_NUMELEMENTS "NumberOfElements" #DEFINE M_WHEN "ReadWhen" #DEFINE M_WHEN2 "When" #DEFINE M_VALID "ReadValid" #DEFINE M_VALID2 "Valid" #DEFINE M_ERROR "ErrorMessage" && Error method #DEFINE M_MESSAGE "Message" && "StatusBarText" #DEFINE M_SHOW "ReadShow" #DEFINE M_ACTIVATE "ReadActivate" #DEFINE M_DEACTIVATE "ReadDeactivate" #DEFINE M_PROCCODE "" #DEFINE M_CLEANUP "Unload" #DEFINE M_SETUP1 "Load" #DEFINE M_SETUP2 "Load" &&??? may change #DEFINE M_FLOAT "Movable" #DEFINE M_CLOSE "Closable" #DEFINE M_MINIMIZE "MinButton" #DEFINE M_MAXIMIZE "MaxButton" #DEFINE M_CONTROLBOX "ControlBox" #DEFINE M_GROW "Sizable" #DEFINE M_MDI "MDIChild" #DEFINE M_DESKTOP "Desktop" #DEFINE M_WINDOW "Window" #DEFINE M_BORDER "BorderStyle" #DEFINE M_SHADOW "Shadow" #DEFINE M_CENTER "AutoCenter" #DEFINE M_HALF "HalfHeightCaption" #DEFINE M_REFRESH "" #DEFINE M_ENABLED "Enabled" #DEFINE M_SCROLLBAR "ScrollBars" #DEFINE M_ADDALIAS "" #DEFINE M_TAB "AllowTabs" #DEFINE M_FORMTABS "Tabs" #DEFINE M_FORMPAGES "PageCount" #DEFINE M_INITIALVAL "" #DEFINE M_INITIALNUM "" #DEFINE M_BUTTONS "ButtonCount" #DEFINE M_SPACING "ButtonSpacing" #DEFINE M_CURPOS "" #DEFINE M_READ "WindowType" #DEFINE M_ALIGN "Alignment" #DEFINE M_VALUE "Value" #DEFINE M_INIT "Init" #DEFINE M_SHAPE "Shape" #DEFINE M_CURVE "Curvature" #DEFINE M_FORMAT "Format" #DEFINE M_INPUTMSK "InputMask" #DEFINE M_MAXLEN "MaxLength" #DEFINE M_SPINLO "SpinnerLowValue" #DEFINE M_SPINHI "SpinnerHighValue" #DEFINE M_KEYLO "KeyboardLowValue" #DEFINE M_KEYHI "KeyboardHighValue" #DEFINE M_SPININC "Increment" #DEFINE M_SPECIAL "SpecialEffect" #DEFINE M_ERASEPAGE "ErasePage" #DEFINE M_DRAWFRAME "DrawFrame" #DEFINE M_RELEASEWIND "ReleaseWindows" #DEFINE M_RELEASEERASE "ReleaseErase" #DEFINE M_TERMINATEREAD "TerminateRead" #DEFINE M_STRETCH "Stretch" #DEFINE M_COLORSOURCE "ColorSource" #DEFINE M_MARGIN "Margin" #DEFINE M_READSIZE "ReadSize" && property for listboxes #DEFINE M_TABSTOP "TabStop" && use for SAYs (read-only textboxes) #DEFINE M_SCALEMODE "ScaleMode" #DEFINE M_DISFORECOLOR "DisabledForeColor" #DEFINE M_DISBACKCOLOR "DisabledBackColor" #DEFINE M_ITEMFORECOLOR "ItemForeColor" #DEFINE M_ITEMBACKCOLOR "ItemBackColor" #DEFINE M_DISITEMFORECOLOR "DisabledItemForeColor" #DEFINE M_DISITEMBACKCOLOR "DisabledItemBackColor" #DEFINE M_SELITEMBACKCOLOR "SelectedItemBackColor" #DEFINE M_WORDWRAP "WordWrap" #DEFINE M_DEFAULT "Default" #DEFINE M_CANCEL "Cancel" && new Cancel property #DEFINE M_FORMACTIVATE "Activate" && Form activate #DEFINE M_AUTOACTIVATE "AutoActivate" #DEFINE M_ZOOMBOX "ZoomBox" *- DataNav properties #DEFINE M_AUTOLOADENV "AutoOpenTables" #DEFINE M_AUTOUNLOADENV "AutoCloseTables" #DEFINE M_ALIAS "Alias" #DEFINE M_WORKAREA "WorkArea" #DEFINE M_CURSORSRC "CursorSource" #DEFINE M_SOURCETYPE "SourceType" #DEFINE M_ORDER "Order" #DEFINE M_FILTER "Filter" #DEFINE M_EXCLUSIVE "Exclusive" #DEFINE M_CHILDALIAS "ChildAlias" #DEFINE M_CHILDINDEXTAG "ChildOrder" #DEFINE M_PARENTALIAS "ParentAlias" #DEFINE M_PARENTINDEXEXPR "RelationalExpr" #DEFINE M_RELATIONTYPE "RelationType" #DEFINE M_ONETOMANY "OneToMany" #DEFINE M_INITIALALIAS "InitialSelectedAlias" *- 3.0 Form Controls Classes - don't localize #DEFINE T_FSET "formset" #DEFINE T_FORM "form" #DEFINE T_LABEL "label" #DEFINE T_LINE "line" #DEFINE T_SHAPE "shape" #DEFINE T_LIST "listbox" #DEFINE T_BTN "commandgroup" #DEFINE T_BTNGRP "commandgroup" #DEFINE T_RADIO "optionbutton" #DEFINE T_RADIOGRP "optiongroup" #DEFINE T_CBOX "checkbox" #DEFINE T_SAY "textbox" #DEFINE T_GET "textbox" #DEFINE T_EDIT "editbox" #DEFINE T_POPUP "combobox" #DEFINE T_SPIN "spinner" #DEFINE T_OLE "oleboundcontrol" #DEFINE T_PICT "image" #DEFINE T_INV "commandgroup" #DEFINE T_INVGRP "commandgroup" #DEFINE T_PAGE "pageframe" #DEFINE T_DATANAV "dataenvironment" #DEFINE T_CURSOR "cursor" #DEFINE T_RELATION "relation" #DEFINE T_SUBCLASS "????" *- Misc things #DEFINE C_TRUE .T. && 1=1 #DEFINE C_FALSE .F. && 1=2 #DEFINE C_SCXEXT "SCX" && 2.x screen extension #DEFINE C_SCTEXT "SCT" && 2.x screen memo extension #DEFINE C_SPREXT "SPR" && 2.x screen gen extension #DEFINE C_VCXEXT "VCX" && 3.0 visual class extension #DEFINE C_VCTEXT "VCT" && 3.0 visual class extension #DEFINE C_MACEXT "_MAC" && extension to add for Mac files #DEFINE C_SEP " = " && property separator #DEFINE C_WINFONT "MS SANS SERIF" && FPW default font #DEFINE C_WINFSIZE 8 && FPW default font size #DEFINE C_MAXWINDS 25 #DEFINE C_MAXPLATFORMS 4 #DEFINE C_MAXSCREENS 5 #DEFINE C_20SCXFLDS 57 #DEFINE C_30SCXFLDS 23 #DEFINE C_SCXFLDS 79 #DEFINE C_PJX40FLDS 28 #DEFINE C_PJX30FLDS 26 #DEFINE C_PJX25FLDS 31 #DEFINE C_PJX20FLDS 33 #DEFINE C_FPCFLDS 10 #DEFINE C_20FRXFLDS 36 #DEFINE C_FRXFLDS 74 #DEFINE C_30FRXFLDS 75 #DEFINE C_20LBXFLDS 17 #DEFINE C_30DBCFLDS 8 && field count for DBCs -- need to be recompiled in 5.0 #DEFINE C_FILELEN 30 #DEFINE C_DOS "DOS" #DEFINE C_WINDOWS "WINDOWS" #DEFINE C_MAC "MAC" #DEFINE C_UNIX "UNIX" #DEFINE C_All "ALL" #DEFINE C_DEFSET "Formset" #DEFINE C_PAGEFRAME "PageFrame1" #DEFINE C_DEFPAGE "Page1" #DEFINE C_DEFDATANAV "DataEnvironment" #DEFINE C_DEFCURSOR "Cursor1" #DEFINE C_BACKDIR "OLD" #DEFINE C_FORMCLASS "form" #DEFINE C_THERMCLASS1 "thermometer" && single progress bar #DEFINE C_THERMCLASS2 "therm2" && double progress bar #DEFINE N_THERM2X .80 && portion of second bar devoted to converting project files -- must be < .097 #DEFINE N_THERM3X .90 && portion of second bar devoted to converting project files -- must be < .097 #DEFINE C_SELITEMCOLOR "164,200,240" && color for selected item in list #DEFINE C_DELOAD_METH "Init" && DataEnvironment method where IDX files are opened #DEFINE C_SEPARATOR "*----- " #DEFINE K_TIMEOUT_FACTOR 1000 && VFP seems to measure READTIMEOUT in milliseconds #DEFINE N_BLOCKSZ 0 && block size for newly created scx files #DEFINE N_BUFFSZ 1024 && amount to read at one time from compiled FRX code * Definitions for Objtype fields in screens/reports/labels #DEFINE N_OTHEADER 1 #DEFINE N_MAXTRANFILETYPES 3 && number of file types that transporter can handle (All,PJX, SCX, FRX) #DEFINE N_TRANFILE_PJX 1 #DEFINE N_TRANFILE_SCX 2 #DEFINE N_TRANFILE_FRX 3 #DEFINE C_CURSSOURCTYPE 1 #DEFINE N_PIXELMODE 1 && scalemode type #DEFINE I_DEFCOLORSOURCE 3 && default color source #DEFINE I_WINCPCOLORSOURCE 5 && Windows Control Panel / Window Colors #DEFINE I_DISKFULLERR 56 && disk full error number #DEFINE C_LOGEXT "LOG" && extension for log file #DEFINE C_CONTROLS "CTL" #DEFINE C_DNO "DNO" #DEFINE C_VCX "VCX" #DEFINE N_VCXTYPE 99 #DEFINE C_30VERS "3.0" #DEFINE C_TRANSPORT "transprt" && transport program to use, if _transport is empty && it is passed the following parms: && m.g_scrndbf file to transport (C) && m.tp_filetype file type (N) see transprt.prg for possible values && m.dummy not used && m.gAShowMe 3 X 6 array && m.gOTherm ref to thermometer object && m.cRealName name of file to display in dialogs && m.lPJX called as part of a project? #DEFINE C_DATANAVLOAD "THIS.DataEnvironment.OpenTables" #DEFINE C_SETSKIP "SET SKIP TO " && don;t localize -- for SET SKIP to in DataEnvironment #DEFINE C_SELECT C_SETSKIP_CMMT_LOC + ; "SELECT " && don;t localize -- for SET SKIP to in DataEnvironment #DEFINE C_DATANAVOPEN "PROCEDURE Init" + C_CR #DEFINE C_FRXDEDESTROY C_CR + "PROCEDURE Destroy" + C_CR + ; C_FRXDESTROY_LOC + ; "THIS.OpenTables" + C_CR + ; "THIS.Init" + C_CR #DEFINE C_GOTOVARPRE "_iconv" #DEFINE C_GOTOVAREXT "GoToPlaceHolder" #DEFINE C_GOTO1 C_CR + C_GOTO1_CMMT_LOC + ; [LOCAL aTbl, iLen, i, iRec, cVar, iPrev] + C_CR + ; [iPrev = SELECT()] + C_CR + ; "DIMENSION aTbl[1,2]" + C_CR + ; [iLen = AUSED(aTbl)] + C_CR + ; [FOR i = 1 TO iLen] + C_CR + ; C_TAB + "cVar = '_iconv' + PROPER(aTbl[i,1]) + 'GoToPlaceHolder'" + C_CR +; C_TAB + [IF TYPE(cVar) # 'N'] + C_CR + ; C_TAB + C_TAB + [iRec = -2] + C_CR + ; C_TAB + [ELSE] + C_CR + ; C_TAB + C_TAB + [iRec = EVAL(cVar)] + C_CR + ; C_TAB + [ENDIF] + C_CR + ; C_TAB + "IF USED(aTbl[i,1])" + C_CR + ; C_TAB + C_TAB + "SELECT (aTbl[i,1])" + C_CR + ; C_TAB + C_TAB + [DO CASE] + C_CR + ; C_TAB + C_TAB + C_TAB + [CASE BETWEEN(iRec, 1, RECCOUNT())] + C_CR + ; C_TAB + C_TAB + C_TAB + C_TAB + [GOTO iRec] + C_CR + ; C_TAB + C_TAB + C_TAB + [CASE iRec = 0] + C_CR + ; C_TAB + C_TAB + C_TAB + C_TAB + [GO TOP] + C_CR + ; C_TAB + C_TAB + C_TAB + C_TAB + [SKIP IIF(!BOF(),-1,0)] + C_CR + ; C_TAB + C_TAB + C_TAB + [CASE iRec = -1] + C_CR + ; C_TAB + C_TAB + C_TAB + C_TAB + [GO BOTTOM] + C_CR + ; C_TAB + C_TAB + C_TAB + C_TAB + [SKIP IIF(!EOF(),1,0)] + C_CR + ; C_TAB + C_TAB + C_TAB + [OTHERWISE] + C_CR + ; C_TAB + C_TAB + C_TAB + C_TAB + [GO TOP] + C_CR + ; C_TAB + C_TAB + [ENDCASE] + C_CR + ; C_TAB + [ENDIF] + C_CR + ; [NEXT] + C_CR + ; [IF iPrev > 0] + C_CR + ; C_TAB + [IF USED(iPrev)] + C_CR + ; C_TAB + C_TAB + [SELECT (iPrev)] + C_CR + ; C_TAB + [ENDIF] + C_CR + ; [ENDIF] + C_CR + ; [RELEASE aTbl, iLen, i, iRec, cVar, iPrev] + C_CR #DEFINE C_GOTO2A [IF USED("] #DEFINE C_GOTO2 [")] + C_CR + C_TAB + [SELECT ] #DEFINE C_GOTO3 [ = IIF(BOF(), 0, IIF(EOF(), -1, RECNO()))] + C_CR + ; [ENDIF] + C_CR *- code for setup and cleanup in SCX files #DEFINE C_SETUP_CODE C_SETUP_CMMT_LOC + ; [PRIVATE m.compstat, m.currarea, m.rborder, m.talkstat] + C_CRLF + ; [IF SET("TALK") = "ON"] + C_CRLF + ; C_TAB + [SET TALK OFF] + C_CRLF + ; C_TAB + [m.talkstat = "ON"] + C_CRLF + ; [ELSE] + C_CRLF + ; C_TAB + [m.talkstat = "OFF"] + C_CRLF + ; [ENDIF] + C_CRLF + ; [m.compstat = SET("COMPATIBLE")] + C_CRLF + ; [SET COMPATIBLE FOXPLUS] + C_CRLF + ; C_CRLF + ; [m.rborder = SET("READBORDER")] + C_CRLF + ; [SET READBORDER ON] + C_CRLF + ; C_CRLF + ; [m.currarea = SELECT()] + C_CRLF + ; C_CRLF #DEFINE C_CLEANUP_CODE C_CLEANUP_CMMT_LOC + ; [IF TYPE("rborder") == 'C'] + C_CRLF + ; C_TAB + [SET READBORDER &rborder] + C_CRLF + ; [ENDIF] + C_CRLF + ; C_CRLF + ; [IF TYPE("talkstat") == 'C'] + C_CRLF + ; C_TAB + [IF m.talkstat = "ON"] + C_CRLF + ; C_TAB + C_TAB + [SET TALK ON] + C_CRLF + ; C_TAB + [ENDIF] + C_CRLF + ; [ENDIF] + C_CRLF + ; C_CRLF + ; [IF TYPE("compstat") == 'C'] + C_CRLF + ; C_TAB + [IF m.compstat = "ON"] + C_CRLF + ; C_TAB + C_TAB + [SET COMPATIBLE ON] + C_CRLF + ; C_TAB + [ENDIF] + C_CRLF + ; [ENDIF] + C_CRLF + C_CRLF #DEFINE C_SCXBACKEXT "S2X" #DEFINE C_SCTBACKEXT "S2T" #DEFINE C_FPCBACKEXT "C2C" #DEFINE C_FCTBACKEXT "C2T" #DEFINE C_FRXBACKEXT "F2X" #DEFINE C_FRTBACKEXT "F2T" #DEFINE C_LBXBACKEXT "L2X" #DEFINE C_LBTBACKEXT "L2T" #DEFINE C_VCXBACKEXT "V3X" #DEFINE C_VCTBACKEXT "V3T" #DEFINE N_3D 0 #DEFINE N_PLAIN 1 #DEFINE C_OPAQUE 1 #DEFINE N_TRANSPARENT 0 #DEFINE L_CONVERT .T. #DEFINE L_NOCONVERT .F. #DEFINE C_IDBYTE30 CHR(48) #DEFINE DT_DFLTTIME "01/01/95 12:00" *- Project types that need to be converted #DEFINE C_SCREENSET "s" #DEFINE C_SCREEN "S" #DEFINE C_MENU "M" #DEFINE C_QUERY "Q" #DEFINE C_REPORT "R" #DEFINE C_LABEL "B" #DEFINE C_FORMAT "F" #DEFINE C_HEADER "H" *- other (may be 3.0) project types #DEFINE C_SCXTYPE "K" #DEFINE C_VCXTYPE "V" #DEFINE C_PRGTYPE "P" #DEFINE C_DBCTYPE "d" && 3.0 database *- catalog manager file types #DEFINE C_FPCCATTYPE "fpc" #DEFINE C_FPCSCREENTYPE "scx" #DEFINE C_FPCLABELTYPE "lbx" #DEFINE C_FPCCSQUERYTYPE "csq" #DEFINE C_FPCUPQUERYTYPE "fpq" #DEFINE C_FPCSQLQUERYTYPE "qpr" #DEFINE C_FPCREPORTTYPE "frx" #DEFINE C_FPCDBFTYPE "dbf" #DEFINE C_FPCAPPTYPE "app" #DEFINE C_FPCPRGTYPE "prg" #DEFINE C_DB4CATTYPE "cat" #DEFINE C_DB4SCREENTYPE "scr" #DEFINE C_DB4LABELTYPE "lbl" #DEFINE C_DB4UPQUERYTYPE "upd" #DEFINE C_DB4SQLQUERYTYPE "qbe" #DEFINE C_DB4REPORTTYPE "frm" #DEFINE C_DB4DBFTYPE "dbf" *- DBase IV values #DEFINE dbiv_lbl_type 11 #DEFINE dbiv_scr_type 18 #DEFINE dbiv_frm_type 7 *- FRX ObjType values for new DataEnvironment objects #DEFINE N_FRX_DATAENV 25 #DEFINE N_FRX_CURSOR 26 #DEFINE N_FRX_RELATION 26 *- these codes replicate FOXPRO.H #DEFINEs *-- MessageBox parameters #DEFINE MB_OK 0 && OK button only #DEFINE MB_OKCANCEL 1 && OK and Cancel buttons #DEFINE MB_ABORTRETRYIGNORE 2 && Abort, Retry, and Ignore buttons #DEFINE MB_YESNOCANCEL 3 && Yes, No, and Cancel buttons #DEFINE MB_YESNO 4 && Yes and No buttons #DEFINE MB_RETRYCANCEL 5 && Retry and Cancel buttons *-- MsgBox return values #DEFINE IDOK 1 && OK button pressed #DEFINE IDCANCEL 2 && Cancel button pressed #DEFINE IDABORT 3 && Abort button pressed #DEFINE IDRETRY 4 && Retry button pressed #DEFINE IDIGNORE 5 && Ignore button pressed #DEFINE IDYES 6 && Yes button pressed #DEFINE IDNO 7 && No button pressed *-- Low Level File Constants #DEFINE F_READONLY 0 #DEFINE F_WRITEONLY 1 #DEFINE F_READWRITE 2 #DEFINE F_READONLY_UNBUFF 10 #DEFINE F_WRITEONLY_UNBUFF 11 #DEFINE F_READWRITE_UNBUFF 12 *- end of CONVERT.H*- cvtalert.h *- #INCLUDE file for cvtalert.vcx *- (c) Microsoft Corporation 1995 #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Log filename:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Code file:" #DEFINE C_CONVERTBOTH_LOC "Convert \<both Macintosh and Windows form records" #DEFINE C_RETAIN30_LOC "\<Retain Visual FoxPro 3.0 default property values" #DEFINE C_CONVERTSCX_LOC "\<SCX files" #DEFINE C_CONVERTVCX_LOC "\<VCX files" #DEFINE C_RECURSEDIR_LOC "\<Check subdirectories" #DEFINE C_SELSCXFILE_LOC "Select the file to update:" #DEFINE C_SELSCXDIR_LOC "Select directory:" #DEFINE E_BADFNAME_LOC "Invalid file name for code file." #DEFINE E_BADBACKDIR_LOC "Invalid back-up directory." #DEFINE E_BADLOGNAME_LOC "Invalid filename for log file." #DEFINE C_BACKDIR "OLD" #DEFINE C_LOGEXT "LOG" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 #DEFINE C_SCREENTYPEPARM "SCREEN" #DEFINE C_PROJECTTYPEPARM "PROJECT" #DEFINE C_CATALOGTYPEPARM "CATALOG" #DEFINE C_REPORTTYPEPARM "REPORT" #DEFINE C_MENUTYPEPARM "MENU" #DEFINE C_LABELTYPEPARM "LABEL" #DEFINE C_DB4QUERYTYPEPARM "DB4QUERY" #DEFINE C_DB4FORMTYPEPARM "DB4FORM" #DEFINE C_DB4REPORTTYPEPARM "DB4REPORT" #DEFINE C_DB4LABELTYPEPARM "DB4LABEL" #DEFINE C_DB4VERSIONPARM "DBASE" #DEFINE C_FOXVERSIONPARM "FOX" #DEFINE C_FMTTYPEPARM "FORMAT" #DEFINE C_FPLUSFRXTYPEPARM "FB+FRX" *- FOREIGN.H *- Header file for Foreign.PRG *- (c) Microsoft Corporation 1995 #DEFINE E_OPEN_LOC "Error @1 occurred while opening " #DEFINE E_COPY_LOC "Error @1 occurred while trying to copy the catalog to " #DEFINE E_CREATE_LOC "Error @1 occurred while creating " #DEFINE E_NAMEPROB_LOC "Due to a name conflict, the catalog file has been renamed to " #DEFINE E_NOFIND_LOC "Migrated file @1 cannot be found." #DEFINE C_CAT2FPC_LOC "Changing catalog structure..." #DEFINE C_CONFIRM1_LOC "You must convert your &wzsString before you can modify it in FoxPro. The original @1 will remain unchanged. Continue with conversion?" #DEFINE C_SAVETO_LOC "Save @1 As:" #DEFINE C_DBASEEOF CHR(26) && code DBase use to mark EOF in .QBE file*- migdb4.h #DEFINE lbl_type 11 #DEFINE scr_type 18 #DEFINE frm_type 7 #DEFINE C_ERRDB3FILE 105 && Not a dBASE IV file. FoxPro converts dBASE III FRMs and LBLs natively. #DEFINE C_ERRBADDB4 106 && Not a DBASE IV file (the file has the wrong header for dBASE IV). #DEFINE C_ERRFTYPE_LOC "Incorrect file ID type for a dBASE IV .SCR or .LBL file." #DEFINE C_ERRNOFMT_LOC "Unable to locate dBASE III format (.FMT) file." * Define Global Constants #DEFINE debugversion .T. && enables asserts. Should usually be .T. *- used in Windows VFP 3.0 conversion dialog #DEFINE C_MSGBOXTITLE_LOC "Converter" #DEFINE C_ASK1_LOC "Ask for each file;Don't ask for " && new radio to prevent showing dialog during conversion #DEFINE C_ASK2_LOC " files;Don't ask for any files" && new radio to prevent showing dialog during conversion #DEFINE C_OVERWRITE1_LOC "Transporting All Objects will overwrite all existing " * Filetype constants for FoxPro 2.0 and FoxPro 2.5/2.6 formats #DEFINE C_OVERWRITE2_LOC " object definitions in the file." #DEFINE MB_OKCANCEL 1 && OK and Cancel buttons #DEFINE IDCANCEL 2 && Cancel button pressed * Filetype constants for FoxPro 2.0 and FoxPro 2.5/2.6 formats #DEFINE c_20pjxtype 1 #DEFINE c_25scxtype 12 #DEFINE c_20scxtype 2 #DEFINE c_25frxtype 13 #DEFINE c_20frxtype 3 #DEFINE c_25lbxtype 14 #DEFINE c_20lbxtype 4 *- indexes into gAShowMe array, controls display of transporter dialog for various file types #DEFINE N_MAXTRANFILETYPES 3 && number of file types that transporter can handle (All,PJX, SCX, FRX) #DEFINE N_TRANFILE_PJX 1 #DEFINE N_TRANFILE_SCX 2 #DEFINE N_TRANFILE_FRX 3 * FoxPro 1.02 and FoxBASE+ formats. Note that the FoxBASE+ types are never * actually passed in m.tp_filetype. They are inferred in GetOldReportType and * GetOldLabelTypefrom the ID byte in the report/label files. The suffix tells * us how the file was called, by REPORT FORM ... or by MODIFY REPORT ... #DEFINE c_frx102repo 23 #DEFINE c_frx102modi 33 #DEFINE c_fbprptrepo 43 #DEFINE c_fbprptmodi 53 #DEFINE c_lbx102repo 24 #DEFINE c_lbx102modi 34 #DEFINE c_fbplblrepo 44 #DEFINE c_fbplblmodi 54 #DEFINE c_db4type 70 * Definitions for Objtype fields in screens/reports/labels #DEFINE c_otheader 1 #DEFINE c_otworkar 2 #DEFINE c_otindex 3 #DEFINE c_otrel 4 #DEFINE c_ottext 5 #DEFINE c_otline 6 #DEFINE c_otbox 7 #DEFINE c_otrepfld 8 #DEFINE c_otband 9 #DEFINE c_otgroup 10 #DEFINE c_otlist 11 #DEFINE c_ottxtbut 12 #DEFINE c_otradbut 13 #DEFINE c_otchkbox 14 #DEFINE c_otfield 15 #DEFINE c_otpopup 16 #DEFINE c_otpicture 17 #DEFINE c_otrepvar 18 #DEFINE c_ot20lbxobj 19 #DEFINE c_otinvbut 20 #DEFINE c_otpdset 21 #DEFINE c_otspinner 22 #DEFINE c_otfontdata 23 #DEFINE C_OBJTYPELIST c_otlist,c_ottxtbut,c_otbox,c_otradbut,c_otchkbox,c_otfield, c_otpopup,c_otinvbut,c_otspinner,c_otpicture,c_otline,c_otrepfld,c_otrepvar,c_ottext * Window types #DEFINE c_user 1 #DEFINE c_system 2 #DEFINE c_dialog 3 #DEFINE c_alert 4 * ObjCode definitions #DEFINE c_sgsay 0 #DEFINE c_sgget 1 #DEFINE c_sgedit 2 #DEFINE c_sgfrom 3 #DEFINE c_sgbox 4 #DEFINE c_sgboxd 5 #DEFINE c_sgboxp 6 #DEFINE c_sgboxc 7 #DEFINE c_lnvertical 0 #DEFINE c_lnhorizontal 1 #DEFINE c_ocboxgrp 1 * Attempt to preserve colors of text, lines and boxes when transporting to DOS? #DEFINE c_maptextcolor .T. * Field counts #DEFINE c_20scxfld 57 #DEFINE c_scxfld 79 #DEFINE c_20frxfld 36 #DEFINE c_frxfld 74 #DEFINE c_frx30fld 75 && field count for 3.0 FRX file (11/1/95 jd) #DEFINE c_ot20label 30 #DEFINE c_20lbxfld 17 #DEFINE c_20pjxfld 33 #DEFINE c_pjxfld 31 * Strings for product names #DEFINE c_foxwin_loc "FoxPro for Windows" #DEFINE c_foxmac_loc "FoxPro for Macintosh" #DEFINE c_foxdos_loc "FoxPro for MS-DOS/UNIX" #DEFINE c_winname "WINDOWS" #DEFINE c_macname "MAC" #DEFINE c_dosname "DOS" #DEFINE c_unixname "DOS" #DEFINE c_dosnum 1 #DEFINE c_winnum 2 #DEFINE c_macnum 3 #DEFINE c_unixnum 4 * Metrics for various objects, report bands, etc. #DEFINE c_radhght 1.308 #DEFINE c_chkhght 1.308 #DEFINE c_listht 1.000 #DEFINE c_adjfld 0.125 #DEFINE c_adjlist 0.125 #DEFINE c_adjtbtn 0.769 #DEFINE c_adjrbtn 0.308 #DEFINE c_vchkbox 0.154 #DEFINE c_vradbtn 0.154 #DEFINE c_vlist 0.500 #DEFINE c_hpopup 1.000 #DEFINE c_adjbox 0.500 #DEFINE c_chkpixel 12 #DEFINE c_charrptheight 66 #DEFINE c_charrptwidth 80 #DEFINE c_linesperinch (66/11) #DEFINE c_charsperinch 13.71 #DEFINE c_pathsep ":" && path separator character #DEFINE c_mapfonts 3 && number of specially mapped fonts * Version codes, put into Objcode fields in the header record #DEFINE c_25scx 63 #DEFINE c_25frx 53 * Major file types #DEFINE c_report 0 #DEFINE c_screen 1 #DEFINE c_label 2 #DEFINE c_project 3 * Error codes #DEFINE c_error1 "Minor" #DEFINE c_error2 "Serious" #DEFINE c_error3 "Fatal" * Return values #DEFINE c_yes 1 #DEFINE c_no 0 #DEFINE c_cancel -1 * Codepage translation. #DEFINE c_cptrans .T. && do special CP translation for FoxBASE+ and FoxPro 1.02? * The following four contants may need to be localized. #DEFINE c_doscp 437 && default DOS code page #DEFINE c_wincp 1252 && default Windows code page #DEFINE c_maccp 10000 #DEFINE c_unixcp 0 * bands[] array indexes #DEFINE c_tobandvpos 1 #DEFINE c_tobandheight 2 #DEFINE c_fmbandvpos 3 #DEFINE c_fmbandheight 4 * Frequently used strings. Make them #DEFINES to simplify localization. #DEFINE c_converting "Converting" #DEFINE c_transporting "Transporting" #DEFINE C_2DCONTROLS_LOC "2D Controls" * Defines used in converting FoxBASE+ reports #DEFINE maxliterals 55 #DEFINE litpoolsize 1452 #DEFINE maxrepflds 24 #DEFINE h_page 1 #DEFINE h_break 3 #DEFINE l_item 4 #DEFINE f_break 5 #DEFINE f_page 7 #DEFINE f_rpt 8 #define c_space 40 #DEFINE dos_code 1 #DEFINE win_code 2 #DEFINE mac_code 3 #DEFINE unix_code 4 #DEFINE c_2dmark '2' #DEFINE c_3dmark '3' ** New (8/22/95) added for Localization #DEFINE T_TITLE_LOC "Visual FoxPro Transporter" #DEFINE T_CONVASIS_LOC "Convert As Is" #DEFINE T_NOCONV_LOC "If the file is not transported, it will not be converted." #DEFINE T_NOTRANSPORT_LOC "Don't Transport" #DEFINE T_RECMOD_LOC " Objects More Recently Modified" #DEFINE T_NEWMOD_LOC "The objects are new to Windows, or more recently modified than their Windows equivalents." #DEFINE T_NEWMOD1_LOC "The objects are new to " #DEFINE T_NEWMOD2_LOC ", or more "+CHR(13)+"recently modified than their " #DEFINE T_NEWMOD3_LOC " equivalents." #DEFINE T_BYTRANS1_LOC "By transporting this file, you create" #DEFINE T_BYTRANS2_LOC " definitions for these objects. " #DEFINE T_BYTRANS3_LOC "By transporting this file, you add, update, or " + CHR(13) + "replace " #DEFINE T_BYTRANS4_LOC " definitions for objects in the file." #DEFINE T_BYTRANS5_LOC "By transporting this file, you add," #DEFINE T_BYTRANS6_LOC "update, or replace MS-DOS definitions" #DEFINE T_ADDUPDREPL_LOC "By transporting this file, you add, update, or replace Windows definitions for objects in the file." #DEFINE T_UPDMSDOSDEF_LOC "By transporting this file, you add, update, or replace MS-DOS definitions" #DEFINE T_MSDOSDEF_LOC "By transporting this file, you create MS-DOS definitions for these objects." #DEFINE T_OTHERPLAT_LOC "There are objects in this file defined "+CHR(13)+"for a platform other than " #DEFINE T_OTHERPLAT2_LOC "There are objects in this file defined" #DEFINE T_OTHERPLAT3_LOC "for a platform other than MS-DOS." #DEFINE T_NODOSDEF_LOC "There are objects in this file defined for a platform other than MS-DOS." #DEFINE T_OPENASIS_LOC "Open As Is" #DEFINE T_NEWDOSOBJ_LOC "Transport Objects New to MS-DOS" #DEFINE T_TRANSOBJ_LOC "Transport Objects From:" #DEFINE T_REPLOBJ_LOC "All Objects -- Replace Existing Definitions." #DEFINE T_REPORT_FILE_LOC "Report File:" #DEFINE T_LABEL_FILE_LOC "Label File:" #DEFINE T_SCREEN_FILE_LOC "Screen File:" #DEFINE T_SPIN_LOC "Spinner" #DEFINE T_SEXPR_LOC "SAY Expression" #DEFINE T_GFIELD_LOC "GET Field" #DEFINE T_FIELD_LOC "Field" #DEFINE T_POPUP_LOC "Popup" #DEFINE T_PICTURE_LOC "Picture" #DEFINE T_RPTVAR_LOC "Rpt variable" #DEFINE T_INVBTN_LOC "Inv button" #DEFINE T_PDRIVER_LOC "Printer driver" #DEFINE T_FONTDATA_LOC "Font data" #DEFINE T_UNKNOWNVERS_LOC "Unknown FoxPro version." #DEFINE T_ENERGIZE_LOC "Energize" #DEFINE T_SELTRANS_LOC "Select the file to transport" #DEFINE T_TRANSPORT_LOC "Transport" #DEFINE T_TRANSPERR_LOC "Transporter Error" #DEFINE T_LINENO_LOC "Line Number: " #DEFINE T_CLEANUP_LOC "Press any key to cleanup and exit..." #DEFINE T_OBJNEWMOD_LOC "These objects are either new to the Windows platform or have been modified more recently" #DEFINE T_OBJMOD_LOC "These objects have been modified more recently on " #DEFINE T_OBJNEW1_LOC "These objects are new to " #DEFINE T_OBJNEW2_LOC " platform or have been modified more recently on " #DEFINE T_UNCHECK1_LOC "Uncheck any items you do" #DEFINE T_UNCHECK2_LOC "not" #DEFINE T_UNCHECK3_LOC "want to be transported." #DEFINE T_EXPPROMPT_LOC "Expression/Prompt" #DEFINE T_TYPE_LOC "Type" #DEFINE T_VARIABLE_LOC "Variable" #DEFINE T_STAT_LOC "Stat" #DEFINE T_FONT_LOC "Font" #DEFINE T_FONT1_LOC "Font..." #DEFINE T_OK_LOC "OK" #DEFINE T_CANCEL_LOC "Cancel" #DEFINE T_TRANSOPEN_LOC "\!Transport & Open;Open As Is;\?Cancel" #DEFINE T_TRANSOPEN1_LOC "\!Transport & Open;\?Cancel" #DEFINE T_TRANSOPEN2_LOC "Transport & Open" #DEFINE T_NOSTAND_LOC "The Transporter cannot be run as a standalone program." #DEFINE T_INVALIDSCR_LOC "Invalid screen/report name." #DEFINE T_WHEREIS_LOC "Where is " #DEFINE T_CONVFRX_LOC "You must convert this file to an .FRX file before you"+CHR(13)+ ; "can use it. Use the Catalog Manager to open the file,"+CHR(13)+ ; "or choose Convert dBASE files from the Run menu." #DEFINE T_UNKNOWNFRX_LOC "Unknown report format" #DEFINE T_TRANSNOTHING_LOC "The transporter has nothing to do." #DEFINE T_INVFILEFORMAT_LOC "Unknown or invalid file format" #DEFINE T_NORECS_LOC "No records to transport" #DEFINE T_COMVPRMPT1_LOC "Convert 1.02 report file to 2.6 format?" #DEFINE T_COMVPRMPT2_LOC "Convert FoxBASE+/dBASE III report file to FoxPro 2.6 format?" #DEFINE T_COMVPRMPT3_LOC "Convert 1.02 label file to 2.6 format?" #DEFINE T_COMVPRMPT4_LOC "Convert FoxBASE+/dBASE III label file to FoxPro 2.6 format?" #DEFINE T_COMVPRMPT5_LOC "Convert 2.0 screen file to 2.6 format?" #DEFINE T_COMVPRMPT6_LOC "Convert 2.0 report file to 2.6 format?" #DEFINE T_COMVPRMPT7_LOC "Convert 2.0 project file to 2.6 format?" #DEFINE T_UNKOPERATION_LOC "Unknown doupdate operation" #DEFINE T_UNKFOXVER_LOC "Unknown Version of FoxPro." #DEFINE T_SAMELINE_LOC "To and from platforms are the same in line " #DEFINE T_NOOPENREPT_LOC "Could not open FoxBASE+ report form" #DEFINE T_TOTAL1_LOC "*** Total ***" #DEFINE T_YESNO_LOC "\<Yes;\!\?\<No" #DEFINE T_THAN_LOC "Than " #DEFINE T_EQIVOBJS_LOC " Equivalent Objects" #DEFINE T_OBJSNEWTO_LOC "Objects New to " #DEFINE T_OBJINFILE_LOC "for objects in the file." #DEFINE T_THERMSCR_LOC " screen: " #DEFINE T_THERMRPT_LOC " report: " #DEFINE T_THERMLBL_LOC " label: " #DEFINE T_ASSERTFAIL_LOC "Assertion failed: " #DEFINE T_THANMAC_LOC "Than Macinstosh Equivalent Objects"convert.prg d:\temp\ convert.fxp generic.prg generic.fxp foreign.prg foreign.fxp conprocs.prg conprocs.fxp transprt.prg transprt.fxp sprtherm.vcx sprtherm.vct migdb4.prg migdb4.fxp mignavpr.txt cvtalert.vcx cvtalert.vct convert.h cvtalert.h foreign.h migdb4.h transprt.h