Programming Languages Suite

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

/ Programming Languages Suite / ProgLangD.iso / FOXP-WIN.300 / DISK4 / VFP4.CAB / CONVERT.APP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1995-01-11 | 998.9 KB | 25,176 lines

CONVERT.APP CONVERT.APP cannot be run as a standalone program. To convert files, open them from the File menu. 03.00.00.0336 You must be using FoxPro version 03.00.00.0336 or later to run converter. Converter Utility: .80a (01/08/95) DEBUG VERSION lwildsideb ldefwindb transprt The transporter program could not be found. Conversion cancelled. MasterConvert oMasterb There was a problem starting the Converter. There was a problem starting the Converter. PFILENAME PFILETYPE PVERSION GTRANSPORT GRETURNVAL GLOG LWILDSIDE LDEFWIND OMASTER LHADERROR DOCONVERT m.pFilenameb m.pFiletypeb Foreign.PRG conprocs SprTherm CvtAlert PFILENAME PFILETYPE PVERSION PARAMCOUNT LUSERCALL ACONVPARMS LHADERROR CONPROCS OLDDATA SPRTHERM CVTALERT NNEWWORKAREA[ SET COMPATIBLE &cOld SET EXCLUSIVE &cOld SET CLASS TO &cOld SET PROCEDURE TO &cOld OLDSAFE OLDNOTIFY OLDESCAPE OLDMESS OLDTALK OLDMEMOWID OLDCOMPAT OLDEXCLUS OLDCLASS OLDPROC NCURRENTWORKAREA Error: CE Error Number: Method: Line: ERRORNUM METHOD THIS LHADERROR DEBUG TRACEh SCREEN cvtalertscx Do you want to convert the screen C to Visual FoxPro 3.0 format? (The original file will still be available). thermometer Visual FoxPro Converter Converting screen CC oConvObjectb PROJECT CATALOG PROJECT project cvtalertpjx CATALOG catalog cvtalertpjx CATALOG DBASE catalog cvtalertcat Do you want to convert the (and all of the screens within it) to Visual FoxPro 3.0 format? (The original files will still be available). therm2 Visual FoxPro Converter Converting project CC oConvObjectb REPORT cvtalertscx Do you want to convert the CCC label report 6 to Visual FoxPro 3.0 format? (The original file will still be available). thermometer Visual FoxPro Converter Converting screen CC oConvObjectb LABEL DB4QUERY DB4FORM DB4REPORT DB4LABEL FORMAT thermometer Visual FoxPro Converter Converting format file CC oConvObjectb FB+FRX Thermometer Therm2 G_PLATFORMS APARMS OCONVOBJECT CCONVTYPE OMASTER OTHERM ACONVPARMS LWILDSIDE GETOPTS PARTIALFNAME SCXCONVERTERCLASS LHADERROR CONVERTER LHANDLED THECLASS CFILETYPE LMAKEBACKDIR COBJNAME CFILENAME PJXCONVERTERCLASS FPCCONVERTERCLASS DB4CATCONVERTERCLASS PFILENAME GRETURNVAL JUSTEXT FRXCONVERTERCLASS FMTCONVERTERCLASS THERMOMETER THERM2a OBJNAME CALERTMSG OALERT CBACKDIR CLOGFILE CCODEFILE LDEVMODE NOPTDEV ADDBS JUSTPATH ACONVPARMS VISIBLE< Converter Utility: .80a (01/08/95) DEBUG VERSION Completed: CC WZPURSCENT WZMAXCHARS WZFILLCHAR WZFILLNUM WZPDATE WZPTIME PSTRINGG m.fp25fldb ForeColor BackColor FillColor DisabledForeColor DisabledBackColor ItemForeColor ItemBackColor DisabledItemForeColor DisabledItemBackColor SelectedItemBackColor BorderColor Picture FontName ControlSource Alias Order ChildAlias ChildOrder ParentAlias RelationalExpr CursorSource Caption Value Caption m.fp25fldb m.fp25fldb m.fp25fldb m.fp30parentb FP30PROP FP25FLD FP30PARENT THIS ADDQUOTES FP3PROP FP3PROPm RETURN Valid PROCEDURE ENDPROC NEWMETHOD FP25FLD CTYPE NEWPROP CTEMP ADDPROP EXTRACTPROCS _FOX3SPR SPRMEMO TEMP3 FP3METHOD File ` could not be opened. It was not converted. Cannot open File is already open. File ` not found. It was not converted. File not found. It was not converted. CFILE CTHISALIAS READABLE WRITELOG JUSTFNAME LHADERROR Error: CE Error Number: Method: Line: ERRORNUM METHOD THIS LHADERROR DEBUG TRACEy WINDOWS Called Converter function that wasn't overridden! exists. Overwrite it? CFILENAME NRESULT JUSTFNAME] CFILENAME CACTION CTMPPJXNAME ADDBS JUSTPATH PJXNAME TYPE TIMESTAMP OUTFILE HOMEDIR EXCLUDE MAINPROG SAVECODE DEBUG ENCRYPT NOLOGO CMNTSTYLE OBJREV COMMANDS DEVINFO SYMBOLS OBJECT CKVAL OSTYPE OSCREATOR COMMENTS RESERVED1 RESERVED2 NEW30ALIAS LDEBUG LENCRYPT CDEVINFO NEW30ALIAS EXCLUDE COUTFILE LEXCLUDE JUSTSTEM MAINPROG CPID CSTUBFILE LISMAIN *- end of log PJX25ALIAS NEW30ALIAS CLOGFILE cTmpFname = FULLPATH(ALLTRIM(IIF(AT(CHR(0),&cField) > 0, LEFT(&cField,AT(CHR(0),&cField)-1),&cField)),THIS.cHomeDir) Locate C REPLACE &cField WITH m.cTmpFname SELECT &cField, type FROM DBF(THIS.pjx25Alias) WHERE type $ m.cType AND !DELETED() INTO ARRAY tmparr CCCCC Could not locate file listed in 2.x 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 PJX25ALIAS CBACKDIR JUSTFNAME PJXNAME JUSTEXT TMPARR CHOMEDIR WRITELOG FORCEEXT OMASTER LHADERRORM NEW30ALIAS Conversion Log for Invalid Project file selected. Backing up project files... s|R|B project Converting screens... APARMS OMASTERREF OTHERM TMPARR AMASTERPARMS NTIMESTAMP TSTAMP PJXNAME CBACKDIR OMASTER LDEVMODE CCODEFILE CLOGFILE WRITELOG PJX25ALIAS OPENFILE LHADERROR CONV20PJX UPDATE2 VISIBLE ADDBS LDEBUG DEBUG LENCRYPT ENCRYPT CDEVINFO DEVINFO HIGHSCXID SETID CHOMEDIR JUSTPATH NSCREENSETS NSCREENCTR BACKFILES CLOSEFILES A_VCX NAME JUSTFNAME oFormb Converted. File already converted. SPR file created Converting reports... CCCCC oFormb Converted. .name .mainprog .type .timestamp .homedir .exclude .name .name .mainprog .type .timestamp .homedir .exclude No conversion necessary. OFORM OPROJ OTHERM NMAXVCX PJX25ALIAS NRECCOUNT NTMPCOUNT PREFORM CREATEPJX A_VCX CONVERTVCX HIGHSCXID LISMAIN GETNEXTFSET COUTFILE EXTPROJ SCXCONVERTERCLASS APARMS LHADERROR LCONVERTED CONVERTER WRITELOG SETID TYPE CSTUBFILE OUTFILE CHOMEDIR A_SCX2ALIAS USER INSERTSCX NSCREENCTR UPDATE2 F3FILES F2FILES CBACKDIR JUSTFNAME FRXCONVERTERCLASS NEW30ALIAS MAINPROG TIMESTAMP HOMEDIR EXCLUDE JUSTSTEM COMPILESCX CLOSEPJX COMPLETE2 oFormb ALOCALPARMS NMAXVCX A_VCX LISMAIN AMASTERPARMS COUTFILE FORCEEXT CBACKDIR OFORM VCXCONVERTERCLASS LHADERROR LCONVERTED CONVERTER NEW30ALIAS EXCLUDE LEXCLUDE JUSTSTEM Transporting project C Converting project C OTHERM SETTITLE2 PARTIALFNAME PJXNAME GTRANSPORT PJX25ALIAS OPENFILE LHADERROR( CTMPFNAME PJX25ALIAS CHOMEDIR CBACKNAME CBACKDIR JUSTFNAME CLOSEFILES FORCEEXT ADDBS JUSTPATH NEW30ALIAS CCCCC PSETID TMPARR CURSCXID PJX25ALIAS ARRANGED EXCLUDE SETID SCRNORDER COUTFILE A_S2FILES A_S3FILES LEXCLUDE CHOMEDIR CBACKDIR JUSTFNAME CSTUBFILE OUTFILE LISMAIN MAINPROG A_PJXSETS OPENFILES CLOSEFILES DEFWINDS RELWINDS MODAL NOLOGO READCYCLE NOLOCK MULTREADS ASSOCWINDS OTHERM UPDATE2 NSCREENCTR NSCREENSETS> Conversion Log for FOX_FILE Invalid Catalog file selected. Backing up project files... scx|frx|lbx catalog Converting screens... APARMS OMASTERREF OTHERM TMPARR ISPROJ NTIMESTAMP TSTAMP PJXNAME PJXVERSION CBACKDIR OMASTER LDEVMODE CCODEFILE CLOGFILE WRITELOG PJX25ALIAS OPENFILE LHADERROR NSCREENSETS CURSCXID UPDATE2 VISIBLE ADDBS CHOMEDIR JUSTPATH BACKFILES CLOSEFILES SCREEN oConvObjectb Not converted. Converted. Converted. REPORT oFormb Converted. .name .mainprog .type .timestamp .homedir .exclude .path .type x66666 No conversion necessary. OFORM OPROJ CTMPFILE OTHERM G_PLATFORMS APARMS OCONVOBJECT PJX25ALIAS PREFORM CREATEPJX CURSCXID NSCREENSETS UPDATE2 PJXVERSION LDEVMODE CCODEFILE CLOGFILE CSTUBFILE FORCEEXT COUTFILE SCXCONVERTERCLASS LHADERROR WRITELOG LCONVERTED CONVERTER A_SCX2ALIAS USER INSERTSCX F3FILES F2FILES CBACKDIR JUSTFNAME FRXCONVERTERCLASS NEW30ALIAS MAINPROG TIMESTAMP HOMEDIR EXCLUDE JUSTSTEM CTYPE CLOSEPJX COMPLETE2 CFULL30PJXNAME CTMPFNAME PJX25ALIAS CHOMEDIR CLOSEFILES CFULL30PJXNAME FORCEEXT ADDBS JUSTPATH NEW30ALIAS PLATFORM OBJTYPE You have selected a FoxPro 2.0 file. The Transporter must first convert it to a 2.6 format. CLASS Screen file is not a 2.5 format. _FOX3SPR _FOX3SPR PROCEDURE *- Code from C APARMS OTHERM LBACKUP OPJX LPROJCALL THIS OCONVFORM PROJCALL LDEVMODE CCODEFILE CLOGFILE A_PJXSETS LMULTIREADS CBACKDIR A_S2FILES A_SCX2FILES A_S3FILES A_SCX3FILES CSTUBFILE CNEWSCX LUSERCALL ADDBS JUSTPATH FORCEEXT PLATFORM GETPLATFORM NTIMESTAMP TSTAMP SCXCOUNT A_SCX2ALIAS OPENFILE CONV20SCX LHADERROR LCONVERTED _FOX3SPR SPRMEMO TEMP1 TEMP2 TEMP3 DEFINES CODEp Converting screen C THIS NRECCOUNT SCANPLAT PLATFORM NTMPCOUNT OTHERM SETTITLE PARTIALFNAME CNEWSCX UPDATE VISIBLE PREFORM CREATESCX NEW30ALIAS A_SCX3ALIAS A_PLAT A_SCX2ALIAS ENVIRON OBJTYPE ADDSRECS CTMPNAME CFORMNAME LINDIRECTWINNAME CINDIRECTWINNAME ADDFSET SCXCOUNT LMULTIREADS FORMNUM PROJCALL NVCXINDEX A_VCX JUSTFNAME A_SCX2FILES ADDPROCS1 WRITEFONTSUB ADDPARM ADDGENPROCS UPDMETHODS POSTFORM CLOSEFILES COMPLETE COMMENT VERSION = 0.028 CSCXNAME TMPALIAS SCXCOUNT A_SCX3FILES A_SCX3ALIAS PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 USER CHEADERID LMULTIREADSN Converting screen CC PLATFORM SCXTYPE A_SCX2ALIAS OTHERM SETTITLE PARTIALFNAME A_SCX2FILES GTRANSPORT OPENFILE PLATFORM LHADERROR 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 DO FORM " " LINKED _cparmstr NOREAD DO FORM " " LINKED NOREAD CSCXNAME NPARMCOUNT CPARMCONT CPARMCODE CPARMA OBJTYPE CPARMS GETPARAM _FOX3SPR SPRMEMO CNEWSCX SCXCOUNT A_SCX3FILES NOREADPLAINEXPR NOREADEXPR LMULTIREADS FONTINFO SAVEAREA TEMPFILE NEW30ALIAS NDNORECNO NDNOCOUNT RESERVED2 METHODS LHASIDX _FOX3SPR CLASS NFORMREC1 NFORMREC2 LHASINVIS ADDBS JUSTPATH A_SCX3FILES UNIQUEID FORCEEXT _FOX3SPR *- [CONVERTER] New INCLUDE file, with #DEFINEsC #INCLUDE *----- Miscellaneous code NEW30ALIAS _FOX3SPR DEFINES FORCEEXT CSTUBFILE RESERVED9 SPRMEMO LDEVMODE CODE CCODEFILE A_SCX2ALIAS A_SCX3ALIAS LUSERCALL A_SCX3FILES LHADERROR A_SCX2FILES LBACKUP FONTSTR A_SCX2FLD FONTSUBe COMMENT FONTSUB NEW30ALIAS PLATFORM UNIQUEID PROPERTIES WindowTypeCC WindowTypeCC ReadCycleC ReadLockC ReleaseWindowsC WindowListC Formset1 formset formset Formset1 Formset1 formset formset Formset1 NODEFINE Formset1 GETPLAT TMPSTR TMPCNT LREADCLAUSE CURPLAT 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 METHODS NTIMESTAMP NFSETRECNO NEW30ALIAS RESERVED4 PARENTNAME2 NOMOUSE ReadNoMousea ReadSavea ReadTimeoutCC OBJECT OBJECT ReadObjectCC COLORSCHEME COLORSCHEME ColorScheme TMPSTR TMPCNT THIS READ_EXPR ADDPROP WORDNUM ReadWhenC ReadValidC ReadActivateC ReadDeactivateC UnloadC ReadWhenC ReadValidC ReadActivateC ReadDeactivateC NOREADEXPR ADDMETHODS A_READS CPROCS NOREADPLAINEXPR setupcode temp1a- ENDIF #ITSE temp1a- WCLAUSE WNAME #WNAME temp1a- NOREAD PLAIN NOREAD temp1a temp1 temp1 temp1 PROCCODE PARAMETERS SCRN_NUM PART1 PART2 PART2LINE PART2CHR SECT1 SECT2 SECT1LINE SECT2LINE PARMLINE SECT1CHR SECT2CHR PARMCHR SECT2START GENDIR GENDIRCOUNT SAVEAREA CPARMS GETPARAM _FOX3SPR TEMP1 SETUPCODE MEMOFIND DEFINES ITSE_EXPR READ_EXPR WCLAUSE_EXPR CWNAMEEXPR A_PJXSETS NOREADPLAINEXPR NOREADEXPR GETFIRSTLINE PROCCODE A_READS MERGEMETHODS LMULTIREADS WHENTYPE VALID VALIDTYPE SHOWTYPE ACTIVATE ACTIVTYPE DEACTIVATE DEACTTYPE RETURN #INSE temp1a m.insfileb *- Could not find #INSERT directive file *- Could not find #INSERT directive file *- Start of #INSERT directive - *- End of #INSERT directive #INSE temp1 #REGION CC MERGECODE FP30FLD CODETYPE INSFILE SAVEAREA _FOX3SPR TEMP1 MEMOFIND TEMP2 MEMOSTUFF WINDOWS WINDOWS CPLATONLY TMPARR TMP2ARR TMPCNT TOTRECS SCXCOUNT A_SCX2ALIAS OBJTYPE PLATFORM DISTINCT G_PLATFORMS A_PLAT ISMULTIPLAT` PROCCODE SAVEREC PART2LINE PART2 PART2CHR OBJTYPE GETFIRSTLINE PROCCODE ISMULTIPLAT PROCSMATCH GENPROC CPROCS *- [CONVERTER] Begin CLEANUP and other procedures from 2.x Form *- [CONVERTER] End CLEANUP and other procedures from 2.x Form *- [CONVERTER] Begin VALID procedures from 2.x Form *- [CONVERTER] End VALID procedures from 2.x Form SAVEREC PART2LINE PART2 PART2CHR _FOX3SPR SPRMEMO CPROCS TEMP3h oRecb WINDOWS oRecb PLATNUM CRECTYPE OREC A_SCX2FLD THIS ADDSCXOBJ MAPIT ADDREC LHADERROR CLOSEFILES PLATFORM A_PLAT OBJTYPE ADDFONTSUB SPECIALFX ADDFX OTHERM UPDATE NTMPCOUNT NRECCOUNTS 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 image commandbutton 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 PICTCLASS INVCLASS INVGCLASS SPINCLASS VCXOBJECTCLASS LoadC *- [CONVERTER] Open tables so that fields are availableC THIS.DataEnvironment.OpenTables LoadC THIS.DataEnvironment.OpenTablesC *- 2.6 SAYs that need to be refreshed ReadShowC A_SCX3ALIAS NFSETRECNO NOREADPLAINEXPR ADDMETHODS A_READS LHASDATANAVOBJ A_PJXSETS CDEFINEWIN CREADSHOW CLEANPROC METHODS FP3METHODV temp1a- temp1a CSNIPPET GENDIRCOUNT SAVEAREA _FOX3SPR TEMP1 GENDIR MEMOFINDA PLATFORM OBJTYPE You have selected a FoxPro 2.0 file. The Transporter must first convert it to a 2.6 format. Screen file is not a 2.5 format. _FOX3SPR _FOX3SPR PROCEDURE APARMS OTHERM LBACKUP OPJX LPROJCALL THIS OCONVFORM PROJCALL CLOGFILE CBACKDIR CFRX2FILES F2FILES CFRX3FILES F3FILES CNEWFRX LUSERCALL ADDBS JUSTPATH PLATFORM GETPLATFORM NTIMESTAMP TSTAMP CFRX2ALIAS OPENFILE CONV20FRX LHADERROR CONV20SCX LCONVERTED _FOX3SPR LOAD/ Converting report C dataenvironment relation SELECT C SET INDEX TO oRecb OFORM A_SCX2FLD OTHERM SETTITLE PARTIALFNAME CNEWFRX UPDATE VISIBLE PREFORM CREATEFRX NEW30ALIAS CFRX3ALIAS ENVIRON OCONVFORM OBJTYPE NRECCOUNT NTMPCOUNT DATANAVCLASS FP3OBJTYPE DATANAVRELATIONCLASS _FOX3SPR LHASIDX MAPIT ADDREC LHADERROR CLOSEFILES NDNORECNO POSTFORM COMPLETE _FOX3SPR CNEWEXT1 CNEWEXT2 COLDEXT1 COLDEXT2 JUSTEXT CFRX2FILES _FOX3SPR CFRX2ALIAS CFRX3ALIAS CFRX3FILES LUSERCALL LHADERROR FORCEEXT LBACKUPX CFRX2ALIAS CFRX3FILES CFRX3ALIAS PLATFORM FRXTYPE CFRX2ALIAS GTRANSPORT CFRX2FILES OPENFILE PLATFORM LHADERROR ,'T','F') ALLTRIM(STR( DTOS( PSTRING PARM1 PARM2 FP3CLASS FP3BASE FORMREF FP25OT A_SCX2FLD FP25OC FP3PROP FP3METHODS PREMAP ADDBASIC ADDFONT ADDPOS ADDCOLOR ADDMAIN POSTMAP WRITENAME BMPFPATH FORMREF A_SCX3FILES FORMNUMy 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 COMMENT RESERVED2 FP3PLAT FP3ID FP3TIME FP3CLASS FP3BASE FP3NAME FP3PARENT FP3PROP FP3COMMENT FP3RESERVED2 FP3METHOD _FOX3SPR METHODSj FP3PLAT A_SCX2FLD FP3ID FP3TIME FORMREF NTIMESTAMP FP3COMMENT FP3PARENT PARENTNAME CADDNAME FP3NAME ADDPROP FP3NAME% WINDOWS FontName FontSize FontBoldC FontItalica FontUnderlinea NBTN A_SCX2FLD FP3FONT FP3FSIZE FP3FSTYLE GETSTYLE FP3FONT1 FP3FONT5 FP3FONT6 NDEFFONT1 FORMREF NDEFFONT5 NDEFFONT6 ADDPROP LeftC WidthC HeightC ADDPROP A_SCX2FLD NDEFFONT1 NDEFFONT5 NDEFFONT6 FP3FONT6 FP3FONT1 FP3FONT5 ForeColorCCC DisabledBackColor BackColorCCC FillColorCCC DisabledBackColorCCC A_SCX2FLD ADDPROP FORMREF CDEFCOLOR IFNTSTYLED NEWOBJ CNAME A_SCX2FLD JUSTSTEM FORMREF NOBJCOUNT FormatC Format InputMaskC InputMask PICWORD1 HASITSE ADDPROP ADDQUOTES PICWORD2 BackStyle BackStyle BackStyleC LCONVERT NMODE NFILLPAT ADDPROP# SpecialEffect ADDPROP2 WhenCC ValidCC MessageC ReleaseErase- ControlSourceCC ADDNAME GETNEWNAME FP3CLASS ADDMODE A_SCX2FLD FORMREF NOREADPLAINEXPR ADDMETHODS CLEANPROC GETPICPART ADDPROP ADDCTRL" EnabledC ADDPROP A_SCX2FLD LeftC WidthC HeightC WidthC HeightC Option BorderStyle ButtonCount EnabledC Style EnabledC PictureC Caption Style Enabled- EnabledC Defaulta Cancela CaptionC 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 FULLBMP ADDQUOTES PictureC Caption CaptionC TerminateReada TerminateRead- PICWORD1 ADDPROP FULLBMP PICWORD2 ADDQUOTES Value CTEMPSTR CFILLCHAR CINITVAL A_SCX2FLD FILLCHAR ADDPROP> ColorSource ADDPROP FP25OBJ ADDCOLOR RowSourceCC RangeLowC FirstElement RangeHighC NumberOfElements RowSourceType Value RowSourceType Value RowSourceType RowSourceType RowSourceType EnabledC ADDPROP ADDQUOTES A_SCX2FLD ADDMETHODS* ReadSizea ADDPROP FP25CTRL ADDPOS\ ItemForeColorCCC DisabledItemBackColor ItemBackColorCCC DisabledItemBackColorCCC A_SCX2FLD ADDPROP FORMREF CDEFCOLOR, EnabledC ADDBTN ADDPROP A_SCX2FLD EnabledC Style Style ValueC ADDBTN ADDPROP A_SCX2FLD PICWORD1 Command ADDGROUP Commanda ADDGROUP4 FP25CTRL ADDBASIC FP3ID FORMREF LHASINVISD EnabledC Style ADDBTN ADDPROP A_SCX2FLD EnabledC Margin RangeLowC LowValue RangeHighC HighValue 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 MaxLengthC BorderStyleC NOMOD NOMOD ReadOnlya FP25TEXT ADDCTRL A_SCX2FLD ADDPROP FORMREF GETBORDER FP3METHOD PICWORD3 Style ReadOnlya TabStop- Enabled- BorderStyle FP25TEXT ADDCTRL ADDPROP DisabledForeColor 0,0,0 ForeColor 0,0,0 DisabledForeColorCCC ForeColorCCC DisabledBackColor BackColor DisabledBackColorCCC BackColorCCC A_SCX2FLD ADDPROP FORMREF CDEFCOLOR 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 Option-a FP25OPTION ADDMAIN ADDGROUPd EnabledC ValueC ADDPROP A_SCX2FLD PICWORD1 Style EnabledC FirstElementC RowSourceC RowSourceType RangeLowC FirstElement RangeHighC NumberOfElements RowSourceType RowSourceCC CLISTSOURCE ADDPROP A_SCX2FLD FP25OC PICWORD2 ADDQUOTES ADDMETHODS ADDVALUE EnabledC Margin Alignment SpinnerLowValueCC SpinnerHighValueCC IncrementC RangeLowC KeyboardLowValue RangeHighC KeyboardHighValue THIS ADDFORMAT ADDVALUE ADDPROP A_SCX2FLD ADDMETHODS PICWORD3 LeftC WidthC HeightC ADDPROP A_SCX2FLD NDEFFONT1 NDEFFONT5 NDEFFONT6 FP3FONT6 FP3FONT1 FP3FONT5 CaptionC CaptionCC CaptionC CaptionCC BackColor Alignment Alignment Alignment WordWrapa ReleaseErase- ADDNAME GETNEWNAME FP3CLASS GETPICPART A_SCX2FLD FP25OT ADDPROP CONV2STR PICWORD2 ADDFORMAT FORMREF CDEFCOLOR ADDMODE PICWORD1 PICWORD3 FillStyle CurvatureC BorderWidthC BorderStyle BorderStyle BorderStyle BorderStyle ReleaseErase- NFILLPAT ADDNAME GETNEWNAME FP3CLASS FP25OT A_SCX2FLD ADDPROP ADDMODE LeftC Width HeightC Height WidthC HeightC WidthC ADDPROP A_SCX2FLD FORMREF NDEFFONT1 NDEFFONT5 NDEFFONT6 FP25OT BorderColorCCC FillColorCCC BackColor 255,255,255 DisabledForeColorCCC DisabledBackColorCCC A_SCX2FLD ADDPROP ForeColorCCC BackColorCCC A_SCX2FLD ADDPROPZ PictureCCC Picture Picture ReleaseErase- ADDNAME GETNEWNAME FP3CLASS A_SCX2FLD ADDPROP FULLBMP ADDMODE StretchC LeftC HeightC WidthC ADDPROP A_SCX2FLD FORMREF NDEFFONT1 NDEFFONT5 NDEFFONT6 ScaleMode FP25OBJ ADDBASIC ADDPROPN CaptionCC CaptionC Caption PictureCC IconCC BorderStyleCC MovableC ClosableC MinButtonC HalfHeightCaptionC BottomCaptionCC BottomCaptionC ShadowC IN DESKTOP Desktopa IN WINDOW WINDOW Window IN SCREEN Windowa SizableC GROW MaxButtonC ZOOM MDIChildC COLORSCHEME COLORSCHEME ColorScheme InitC THIS.Name = LoadC Activate SELECT TMPSTR TMPCNT CTMPNAME FORMREF CWNAMEEXPR A_SCX2FLD CWINNAME GETNEWNAME FP3CLASS CFORMNAME ADDNAME ITSE_EXPR ADDPROP FULLBMP GETWBORDER WCLAUSE_EXPR WORDNUM LINDIRECTWINNAME ADDMETHODS CINDIRECTWINNAME A_READS CMAINCURS Formset1 FORMREF PARENTNAME WINDOWS 255,255,255 FORMREF PARENTNAME FP3NAME A_SCX2FLD NDEFFONT1 FP3FONT1 NDEFFONT5 FP3FONT5 NDEFFONT6 FP3FONT6 CDEFCOLOR ADDPROP A_PJXSETS LDEFWIND BUILDDEFWIND 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 ADDQUOTESI WidthC HeightC LeftC AutoCenter ARRANGE LARRFLAG LCENTFLAG THIS NDEFFONT1 FP3FONT1 NDEFFONT5 FP3FONT5 NDEFFONT6 FP3FONT6 ADDPROP A_SCX2FLD FORMREF A_SCX2FILES FORMNUM GETARRANGE NODEFINE FORMREF NEW30ALIAS PLATFORM UNIQUEID TIMESTAMP CLASS BASECLASS OBJNAME PARENT PROPERTIES METHODS COMMENT RESERVED1 RESERVED4 RESERVED6 FP3PLAT FP3ID FP3TIME FP3CLASS FP3BASE FP3NAME FP3PARENT FP3PROP FP3METHOD FP3COMMENT FP3RESERVED1 A_PJXSETS FP3RESERVED6 WSTYLE NEWOBJ DataEnvironment cursor cursor PARM1 PARM2 FP25OBJ COLDPARENTNAME FORMREF PARENTNAME LHASDATANAVOBJ FP3COMMENT FP3OBJTYPE MAPIT ADDREC NDNORECNO NEW30ALIAS CLEARPROP FP3CLASS FP3BASER PREMAP ADDBASIC ADDMAIN POSTMAP WRITENAME FORMREF NDNOCOUNT9 AutoOpenTables- AutoCloseTablesC AliasC CursorSourceCC OrderC FORMREF LHASDATANAVOBJ ADDNAME FP3CLASS GETNEWNAME ADDPROP A_PJXSETS A_SCX2FLD CMAINCURS FULLBMP A_TABLES A_TORDERB NEWOBJ FORMREF NOBJCOUNT FORMREF PARENTNAME COLDPARENTNAMEe FORMREF NEW30ALIAS PLATFORM UNIQUEID TIMESTAMP OBJTYPE FP3PLAT FP3ID FP3TIME FP3OBJTYPE FP3CLASS FP3PROP\ DataEnvironment PARM1 PARM2 FP25OBJ COLDPARENTNAME FORMREF PARENTNAMEU ParentAliasC RelationalExprC ChildAliasC EXACTv ChildOrderC SET EXACT &loldexact NPOS LOLDEXACT FORMREF LHASDATANAVOBJ ADDNAME FP3CLASS GETNEWNAME ADDPROP A_SCX2FLD A_TABLES A_TORDER PARM1 PARM2 FORMREF FP3CLASS JUSTSTEM A_SCX2FILES FP3BASE FP3CLASSLOC FORCEEXT JUSTFNAME FP3PROP FP3METHOD FP3NAME) Formset1 FP25OBJ ADDBASIC THIS FP3PARENTo CLASSv SET CLASS TO &cVCX m.cVCXObjb SET CLASS TO &cOldClassLib COLDCLASSLIB CVCXOBJ CTMPSCX NWORKAREA FORCEEXT FORMREF A_VCX NVCXINDEX FP3CLASS SAVEAS FP3PROP PROPERTIES L_NEWSTRU FORMREF NEW30ALIAS PLATFORM UNIQUEID TIMESTAMP CLASS BASECLASS CLASSLOC OBJNAME PARENT PROPERTIES METHODS COMMENT RESERVED2 RESERVED6 FP3PLAT FP3ID FP3TIME FP3CLASS FP3BASE FP3CLASSLOC FP3NAME FP3PARENT FP3PROP FP3METHOD FP3COMMENT FP3RESERVED2 FP3RESERVED6 LeftC AutoCenter ARRANGE LARRFLAG LCENTFLAG THIS NDEFFONT1 FP3FONT1 NDEFFONT5 FP3FONT5 NDEFFONT6 FP3FONT6 FORMREF A_SCX2FILES FORMNUM GETARRANGE A_SCX2FLD ADDPROP GETPLAT PARENTNAME Class Pixels PARM1 PARM2 FP25FORM FP3RESERVED1 FP3RESERVED6s WINDOWS 255,255,255 FORMREF PARENTNAME FP3PARENT A_SCX2FLD NDEFFONT1 FP3FONT1 NDEFFONT5 FP3FONT5 NDEFFONT6 FP3FONT6 CDEFCOLOR ADDPROP FP3NAME ADDREC FP3RESERVED1 FP3RESERVED6 ADDPAGE Initg Destroy Error DoConvert GetOpts~ GetVersioni PreForm PostForm UpdStatus TStamp AddQuotes AddPropz ClearProp AddMethods$ OpenFile Error2% GetPlatformE& Converter ok2nuke WriteLog CreatePJX'( InsertSCX"+ CloseFilesf, BackFiles_- CompileSCX Destroy)4 Init04 Converter ConvertVCX ExtProj Conv20PJX ClosePJX GetNextFset ConverterUT ClosePJX InitW_ Converter CreateSCX Conv20SCXAq AddParm PostFormfy CloseFiles AddFontSub3 WriteFontSubM AddFSet ReadClause WriteReads AddReads MergeMethods~ ScanPlat AddProcs1G AddGenProcs! AddSRecs AddSCXObjA UpdMethods CleanProc3 ConverterB CloseFiles CreateFRX Conv20FRX Conv2Str* MapIt AddMain PreMap PostMap FullBMP GetPicPart AddRec AddBasicb AddName2 WriteNamek AddFont AddPos] AddColorW GetStyle> GetNewName AddFormatX AddFX AddMode AddFX AddMain AddCtrl AddGroup AddBtn AddValue AddColor AddCtrlR AddPos AddColor AddCtrlk AddCtrl AddPos WriteName AddCtrl AddColor AddPos WriteName AddCtrl AddBasic AddCtrl AddCtrl AddPosI AddMainS AddCtrl AddPos AddCtrl AddCtrl AddColorA AddValue AddValue AddPos. WriteName5 AddMain< AddCtrl AddCtrl AddCtrl( AddPos AddMain AddMainc AddFont AddPos AddColor AddColorm AddMain` AddPos AddFont AddColor% AddBasic: AddMain Premap Postmap WriteNameg AddPagen AddPos9 AddRec4" GetWBorderK$ GetNewName BuildDefWind % Init+% MapIt AddMain GetNewNamek* Destroy AddRec AddMain AddBasic AddMain AddRec AddPos AddFSet~7 WriteFontSub PostMapQ8 SCXSingleScreenConverter PJXConverter FRXConverter FPCConverter DB4ScrConverter DB4FrmConverter DB4LblConverter DB4CatConverter DB4QbeConverter FmtConverter TALKv SAFETYv ESCAPEv NOTIFYv MESSAGE MEMOWIDTHv CLASSv PROCv DATABASEv COMPATIBLEv EXCLUSIVEv SCXCONVERTERCLASS PJXCONVERTERCLASS MNXCONVERTERCLASS FRXCONVERTERCLASS FPCCONVERTERCLASS DB4SCRCONVERTERCLASS DB4FRMCONVERTERCLASS DB4LBLCONVERTERCLASS DB4CATCONVERTERCLASS DB4QBECONVERTERCLASS FMTCONVERTERCLASS OLDTALK OLDSAFE OLDNOTIFY OLDMESS OLDMEMOWID OLDCLASS OLDPROC OLDDATA OLDCOMPAT OLDESCAPE OLDEXCLUS NCURRENTWORKAREA NNEWWORKAREA LHADERROR PARAMCOUNT LUSERCALL LDEVMODE CCODEFILE CBACKDIR LHANDLED ACONVPARMS LHADERROR NTIMESTAMP OLD25FILE CNEW30FILE NEW30ALIAS PLATONLY OLDFILETYPE OLDFILEVER PLATFORM OTHERM CLOGFILE LDEVMODE CCODEFILE NDEFFONT1 NDEFFONT5 NDEFFONT6 CDEFCOLOR NRECCOUNT NTMPCOUNT SCXSingleScreenConverter VCXConverter FRXConverter SCXCONVERTERCLASS VCXCONVERTERCLASS FRXCONVERTERCLASS CURSCXID HIGHSCXID ISPROJ CHOMEDIR CBACKDIR COUTFILE CSTUBFILE PJXNAME PJX25ALIAS PJXVERSION OMASTER LISMAIN LDEBUG LENCRYPT CDEVINFO LEXCLUDE NSCREENSETS NSCREENCTR CFULL30PJXNAME F2FILES F3FILES A_PJXSETS PLATFORM WINOBJ AMASTERPARMS A_S2FILES A_S3FILES A_SCX A_VCX! fp25form fp25lbl fp25say fp25line fp25shape fp25edit fp25get fp25spin fp25cbox fp25list fp25popup fp25ole fp25radio fp25btngrp fp25btngrp fp25invbtn fp25invgrp fp25ole fpdatanav fpdatanavRelation fpVCXObject Screen FORMCLASS LABELCLASS SAYCLASS LINECLASS SHAPECLASS EDITCLASS GETCLASS SPINCLASS CBOXCLASS LISTCLASS POPUPCLASS PICTCLASS RADIOCLASS BTNCLASS BTNGCLASS INVCLASS INVGCLASS OLECLASS DATANAVCLASS DATANAVRELATIONCLASS VCXOBJECTCLASS SPECIALFX OCONVFORM NOBJCOUNT CSTUBFILE SCXCOUNT TIMESTAMP CNEWSCX ISMULTIPLAT CURPLAT 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 OPJX CREADSHOW NFSETRECNO NFORMRECNO CHEADERID NVCXINDEX CDEFINEWIN LHASINVIS LBACKUP CPROCS LHASIDX LOPENFILES LCLOSEFILES CMAINCURS A_PLAT A_READS A_SCX2FILES A_SCX2ALIAS A_SCX3FILES A_SCX3ALIAS A_PJXSETS A_TABLES A_TORDER fpFRXdatanav fpDataNavRelation DATANAVCLASS DATANAVRELATIONCLASS OCONVFORM NOBJCOUNT FP3PROP NDNOCOUNT NDNORECNO LCONVERTED LBACKUP LHASDATANAVOBJ PROJCALL PARENTNAME LHASIDX LUSERCALL CBACKDIR CNEWFRX CMAINCURS CFRX2FILES CFRX2ALIAS CFRX3FILES CFRX3ALIAS A_SCX3FILES A_PJXSETS FORMNUM A_TABLES A_TORDER FP3PLAT FP3ID FP3TIME FP3COMMENT FP3CLASS FP3BASE FP3NAME FP3PROP FP3METHOD FP3PARENT FP3RESERVED1 FP3RESERVED2 FP3RESERVED6 FP3FONT FP3FSIZE FP3FSTYLE FP3FONT1 FP3FONT5 FP3FONT6 FP25OT FP25OC FORMREF PICWORD1 PICWORD2 PICWORD3 HASITSEI CWINNAMEO COLDPARENTNAME FP3OBJTYPE FP3CLASSLOCA fp25formVCX Class FORMCLASS CHEADERID MasterConvert custom%D ConverterBase custom PJXConverterBase ConverterBase PJXConverter PJXConverterBase FPCConverter PJXConverterBase SCXSingleScreenConverter ConverterBase FRXConverter ConverterBaseMY ObjectConverterBase ConverterBaseH\ fp25obj ObjectConverterBaseY\ fp25ctrl fp25objt_ fp25list fp25ctrl fp25btn fp25ctrl fp25cbox fp25ctrl fp25btngrp fp25ctrl fp25invgrp fp25ctrl7` fp25invbtn fp25ctrl\` fp25get fp25ctrlw` fp25text fp25ctrl fp25edit fp25text fp25say fp25text fp25option fp25ctrl fp25radio fp25option fp25popup fp25option-a fp25spin fp25ctrl>a fp25lbl fp25objYa fp25shape fp25objja fp25line fp25shape fp25ole fp25obj fp25form fp25obj fpdatanav fp25objeb fpFRXdatanav fpdatanav fpDataNavRelation fpdatanav fpVCXObject fp25obj VCXConverter SCXSingleScreenConverterSc fp25formVCX fp25form AVLINE APARMS G_PLATFORMS WZAQFILT WZAQGRP WZAQDD WZAPARMS fxsettype newfile CNEW25FILE PLATFORM UNIQUEID TIMESTAMP OBJTYPE OBJCODE HEIGHT WIDTH STYLE PICTURE ORDER XUNIQUE 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 Cannot open Changing catalog structure... Backing up project files... Converting screens... APARMS OMASTERREF OTHERM ISPROJ NTIMESTAMP TSTAMP PJXNAME PJXVERSION CBACKDIR OMASTER PJX25ALIAS OPENFILE LHADERROR NSCREENSETS CURSCXID UPDATE2 VISIBLE CATCONV ADDBS CHOMEDIR JUSTPATH CLOSEFILESs CCC,Z ERRORNUM METHOD THIS LHADERROR LLOCALERR CERRSTR CONVERTERBASE ERROR OPROJ CTMPFILE OTHERM PJX25ALIAS CONVERTDB2FP LHADERROR CLOSEFILES NEW30ALIAS FPCCONVERTER CONVERTER FPCCONVERTER CLOSEPJX FORCEEXT CFULL30PJXNAME$ defaultvC Error @1 occurred while trying to copy the catalog to Error @1 occurred while opening Due to a name conflict, the catalog file has been renamed to WZISELECT WZSDIRNAME WZLRETURN WZSNEWNAME WZLAUTONAME WZSTMPNAME WZSDEFAULT CTMPPATH THIS LLOCALERR ADDBS PJX25ALIAS PJXNAME LHADERROR CERRSTR CPTAG FORCEEXT AUTONAME FPCNEW JUSTPATH JUSTFNAME PATH FILE_NAME ALIAS TITLE UPDPATHS defaultvC QUERY REPORT LABEL OTHER6666 REPORT LABEL QUERY DO (gTransport) WITH (&wzsfpcalias..path), 12, .F., .T. REPORT DO (gTransport) WITH (&wzsfpcalias..path), 13, .F., .T. LABEL DO (gTransport) WITH (&wzsfpcalias..path), 14, .F., .T. QUERY WZSDEFAULT WZSMODE CTMPPATH WZSFPCALIAS WZSFNAME NEW30ALIAS FOX_FILE JUSTPATH MIGRATE WZISELECT SETFOXFILE JUSTEXT CURSCXID NSCREENSETS OTHERM 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 QUERY REPORT LABEL Migrated file @1 cannot be found. WZSFNAME WZSTYPE WZLCONFIRM WZSNEWNAME OTHERM OTHIS FORCEEXT MIGDB4Y Can't open source file C APARMS NFILEREADY AVLINE OLD25FILE CROOTNAME JUSTSTEM CPATHNAME JUSTPATH CNEW30FILE READABLE LHADERROR CLEANUP OK2NUKE LNIXNEWSCX 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)) oConvObjectb THIS NTMPCOUNT NRECCOUNT UPDSTATUS CTEMPDBF LINE CTEMPNAME LTEMPOPEN OLD25FILE CPTAG CLEANUP LHADERROR CREATE25SCX CNEW30FILE CTHISALIAS LTHISOPEN NEWFILE OBJTYPE OBJCODE STYLE HEIGHT WIDTH JUSTSTEM FNAME GRIDV GRIDH WHENTYPE VALIDTYPE SHOWTYPE ACTIVTYPE DEACTTYPE PROCTYPE SETUPTYPE FLOAT CLOSE BORDER CENTER MINIMIZE SCHEME SCHEME2 DEACTIVATE SETUPCODE PROCCODE MIGNAVPR ENVIRON ASCRTABLES GETTABLES NTABLES XUNIQUE PNAME UCLINE FINISH GETSAY FILLCHAR CVTLINE AVLINE OPTIONS THISOPT OPTNAME REFRESH PICTWIDTH THISVPOS THISHPOS THISWIDTH DBFOPEN ANAME FLDNAME FMT_ALIAS PICTURE THISPICT VALID WHEN COLORPAIR MESSAGE RANGELO RANGEHI ERROR FIXVERT PLATFORM UNIQUEID SCRHEIGHT NMAXWIDTH NMAXHEIGHT APARMS OCONVOBJECT SCXCONVERTERCLASS FORCEEXT CONVERTERG ASCRTABLES CTABLE NOLDLEN THIS CPATHNAME THIS CTHISOPEN CTHISALIAS CTEMPOPEN CTEMPNAME CTEMPDBF CDBFOPEN CFMTALIASJ ERROR LNIXNEWSCX CLEANUP Create25SCX, Init7 Error Converter ClosePJX CatConv ConvertDB2FP fpcnew addfpcrec> SetFoxFile migrate Init%# Converter GetTables Cleanup Error SCXSingleScreenConverter SCXCONVERTERCLASS FmtConverter FMTCONVERTERCLASS LLOCALERR CERRSTR AVLINE LDBFOPEN LTHISOPEN CTHISALIAS CFMTALIAS LNIXNEWSCX BARCOUNT CFMTDBF CHOOSEVAR FINISH CROOTNAME CPATHNAME CTEMPDBF CTEMPNAME LTEMPOPEN ForeignConverterBase ConverterBaseT? DB4CatConverter FPCConverter FmtConverter ForeignConverterBase`@ m.returnmlineb m.allafterb m.occuranceb FIND_STR SEARCHFLD IGNOREWORD RETURNMLINE OCCURANCE ALLAFTER MEMODATA MEMLINE MEMLINE2 STR_DATA LASTMLINE MATCHCOUNT LINECOUNT LINECOUNT2 AT_MLINE AT_MLINE2 MLINE2 LF_POS LF_POS2 AT_POS 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 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_POSA EXACTv CANDIDATE KEYWORD IN_EXACT RETLOGh 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_DBLAMPERSANDw 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 PUTPROCZ 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 FILNAME FILNAME FILNAME JUSTFNAME= FILNAME FILNAME FILLEN BNAME ELIPSE REMAIN G_PATHSEP JUSTFNAME RETSTR JUSTPATH FILNAME PNAME JUSTPATH JUSTFNAME ADDBS WZACPCODES WZSFNAME WZICODEPAGE WZIHANDLE WZACPCODES WZIDBFBYTE CPCODES E_BADCODEPAGE_LOC E_FILENOEXIST_LOC E_NOOPEN_LOC CFILE NFILEREADYQ WZSALIAS pathv WZSOLDNAME WZSJUSTPATH WZSPATH WZSTNAME ADDBS JUSTPATH PATH JUSTDRIVE WZSFNAME WZITYPEBYTE WZIHANDLE E_NOOPEN_LOC E_NOCLOSE_LOCT 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 DBIV_SCR_TYPE COLORPAIR OBJTYPE OBJCODE HEIGHT WIDTH NLEADSPAC NTRAILSPAC3 AVLINE NEWFILE OBJTYPE OBJCODE HEIGHT WIDTH UNIQUEID PLATFORM FILETYPE DBIV_SCR_TYPE COLORPAIRI WZSALIAS RETVAL JUSTSTEM CDATA CDATATYPE CTEMPEXPR memofind, memostuff? genprocv getfirstline^ wordnum killcr matchb getparam iscommentb isparameter procsmatchb isgenplat cleanparam addprocname getplatnum extractprocs emitproc emitbracketQ, putproc updprocarray getprocnumg7 cleanparam writeline hasconflict getarrangeT; stripext strippathd> stripcr addbs justfname juststemcA justpathQB justext=C JustDrive partialfname+D forceextgF CPCodes CPTag EscHand Readable TmpAlias UpdPaths DBTable FileExtdR CvtLine FixVert#_ GoodName EvalDataEb TALKv 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 FoxPro Transporter: CC 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 G_SKIPDLG TALKSET PCOUNT 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 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 ERRORHANDLER To and from platforms are the same in line CC WINDOWS WINDOWS WINDOWS WINDOWS G_FROMPLATFORM G_TOPLATFORM ASSERT G_ALLOBJECTS EMPTYPLATFORM 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 G_SCRNDBF G_SCRNALIAS G_SNIPPETS UPDATESCREEN UPDATEREPORT G_NEWOBJECTS NEWGRAPHICTOCHAR2 Transporting Transporting Transporting G_ALLOBJECTS STARTTHERM G_FILETYPE ALLCHARTOGRAPHIC SELECTOBJ G_MERCURY UPDTHERM PUTWINMSG STRIPPATH G_SCRNDBF G_SCRNALIAS G_SNIPPETS UPDATESCREEN UPDATEREPORT G_NEWOBJECTS NEWCHARTOGRAPHIC2 Transporting Transporting Transporting G_ALLOBJECTS STARTTHERM G_FILETYPE ALLGRPHTOGRPH SELECTOBJ G_MERCURY UPDTHERM PUTWINMSG STRIPPATH G_SCRNDBF 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 XUNIQUE WITH &g_tempalias..Xunique 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 ISOBJECT G_GRPH2CHAR ORDER WIDTH EXPR G_MERCURY UPDTHERM` 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 XUNIQUE WITH &g_tempalias..Xunique 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 REPLACE timestamp WITH &g_tempalias..timestamp THERMSTEP 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 ISOBJECT 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 ISOBJECT 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 ISOBJECT 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 FNAME102 FTYPE SHORT CONTLEN REMARKS HEIGHT LMARGIN WIDTH NUMACROSS SPACESBET LINESBET BAKNAME IN_AREA LBLNAME CVTSHORT LBLLINES START CURLEN OBJTYPE OBJCODE STYLE ENVIRON ORDER XUNIQUE ADDALIAS CPTRANS G_TOCODEPAGE G_FROMCODEPAGE FORCEEXTQ FNAMEFBP FTYPE WIDTH HEIGHT LMARGIN SPACESBET LINESBET NUMACROSS LBLNAME IN_AREA DUMMY REMARKS CVTSHORT LBLLINES LASTLINE OBJTYPE OBJCODE STYLE ENVIRON ORDER XUNIQUE 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 ISOBJECT OBJTYPE UNIQUEID G_TOPLATFORM OLDHPOS OBJID SAVEREC RETVAL PLATFORM G_FROMPLATFORM ISOBJECT 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 UPDTHERMH THERMPART RECNO NUMOTHERS THERMSTEP OBJINDEX G_FROMOBJONLYALIAS RECNUM G_SCRNALIAS FIXPEN G_CHAR2GRPH CALCPOSITIONS 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 OBJCODEs 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 ENDPOSC CURLINE LARGESTOBJ LINEHEIGHT ADJWINDOWWIDTH THERMSTEP UNIQUEID PLATFORM G_TEMPINDEX G_FROMOBJONLYALIAS G_SCRNALIAS 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 ISOBJECT$ 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 PLATFORM UNIQUEID TIMESTAMP OBJTYPE OBJCODE HEIGHT WIDTH STYLE PICTURE ORDER XUNIQUE 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 DELETEDv SET DELETED &in_del TEMP20ALIAS IN_DEL DOCREATE G_FILETYPE G_SCRNDBF G_20ALIAS G_SCRNALIAS 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_SCRNALIASD 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 TSTRUCTD G_TDLGFACE G_TDLGSIZE G_TDLGSTYLE G_TDLGSTY2 G_TDLGBTN G_SCRNDBF JUSTFNAME ERRORHANDLER CURPOS, WINDOWS 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@ @*C Objects New to C A`UA@ @*C Objects More Recently Modified @*C All Objects -- Replace Existing Definitions @*VNT C ;Open As Is;\?Cancel @*VN Font... 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: |?U8@ @*VN Font... @*VNT C ;\?Cancel FoxPro Transporter transdlg Screen File: Report File:6 @*VNTM C ;Open As Is;\?Cancel @*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 C A`UA@ @*C3 Objects More Recently Modified Than C Equivalent Objects @*C3 All Objects -- Replace Existing Definitions 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@ 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 @*C Objects New to MS-DOS @*C Objects More Recently Modified Than MS-DOS Equivalent Objects @*C 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 HASRECORDS DFLTPLAT G_ALLOBJECTS TRANSDLG G_TDLGFACE G_TDLGSIZE G_TDLGSTY1 G_TDLGSTYLE STRIPPATH G_SCRNDBF VERSIONCAP G_TOPLATFORM THEPICT MAKEPICT G_NEWOBJECTS SCRNCTRL G_SNIPPETS TRANSPRMPT PVALID G_ASKFONT ASKFONT G_TDLGBTN G_LOOK2D SETCTRL G_SMFACE G_SMSIZE G_SMSTY1 G_SMSTYLE G_TDLGSTY2 G_FILETYPE ERRORHANDLER G_SKIPDLG RDVALID DEACCLAU SHOWCLAU 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 and Open G_ENERGIZE. msgscrn Transporting All Objects will overwrite C all existing object definitions in the file. @*HNT OK;Cancel msgscrn Transporting All Objects will overwriteC all existing C object definitions in the file.C @*HNT OK;Cancel msgscrn DLGNUM G_SKIPDLG G_ALLOBJECTS CHOICE MSGSCRN G_TDLGFACE G_TDLGSIZE G_TDLGSTY1 VERSIONCAP G_TOPLATFORM G_TDLGSTYLE OKCANCL G_TDLGBTN Than C Equivalent Objects RGB(0,0,0,255,255,255) RGB(0,0,0,255,255,255) 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 thermomete PERCENT NBLOCKS 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 TPSELECT9 ON ERROR &onerror G_STATUS CLEANWIND CLEANUP 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 PLATFORM 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 G_WINDFFACE G_RPTFFACE G_WINDFSIZE G_RPTFSIZE G_WINDFSTYLE NUM2STYLE G_RPTFSTYLE G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE DEFINE WINDOW transtemp FROM 1,1 TO 2,2 FONT "&g_rptfface", m.g_rptfsize FONTSTRG G_FILETYPE TRANSTEMP G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE G_RPTLINESIZE G_RPTTXTFONTSTYLE G_PIXELSIZE G_RPTCHARSIZE G_FONTSET 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 FILNAME 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 (isobject(objtype) 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 G_SKIPDLG 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: ATSIGN These objects are either new to the platform or have been modified more recently on These objects are new to These objects have been modified more recently on tpselect 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 \!\<OK;\?\<Cancel Variable Expression/Prompt tpselect tpselect Geneva 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 \!\<OK;\?\<Cancel Geneva Geneva Variable Geneva Expression/Prompt Geneva tpselect tpselect 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 \!\<OK;\?\<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 ESCAPE DO eschandler 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 ONESCAPE TRBETWEEN DEVICE RBORD STATUS CURRAREA UDFPARMS MTOPIC MFIELDSTO FIELDS MEMOWIDTH CURSOR CONSOL EXACT FIXED PRINT UNQSET SAFETY EXCLUSIVE VERSNUM MCOLLATE ON ERROR &onerror ON ESCAPE &onescape 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 ISOBJECT 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, opendbfF doupdate converttype~! setversion`' settocpR( import graphictochar chartographic graphictographic 1 updatescreen updatereport updenviron convertprojectKO newchartographicwR newgraphictocharpY newgrphtogrph newbands allgraphictocharTe allchartographic allgrphtogrph]n cvrt102frx cvrtfbprpt cvrt102lbx cvrtfbplbl initbandsa bldbreakexp bldbreaks blddetail addtotal litexist getlitexprw makebandY maketext makefield) getheading. linesforheading1 howmanyheadings fld_head_exist totals_exist center_colc evalimportexpr getoldreporttype getoldlabeltypey mapbuttonf scatterbuttons findlikevpos findlikehpos0 makecharfit{ allenvirons allothers fillininfo adjrptfloat adjrptsuppress adjrptreset getcharsuppress< suppressblanklines allgroups rptconvert rptobjconvertT getbandindex bandinfoY cloneband resizeband bandpos emptybandw getbandcode grphrptcvtV getbandnum. gettextwidth cvtreportvertical cvtreporthorizontal cvtrptlines mergelabelobjects labelobjmerge addlabelblanks linesbetweeng labelbands labellines$ calcpositions! calcwindowdimensions findwiderobjects! adjhpos sgnt repoobjects adjitemsinboxes`& itemsinboxes findothersonline adjinvbtnsy; adjpostinv]J findalignend stretchlinestobordersiO joinlines joinhorizontal joinvertical0` meetboxchar zapboxchar|h addjoin rejoinboxes joinlinewidth getlastobjectline adjobjcode getwindfontPy adjheightandwidthZz columnar dossize adjbitmapctrl adjcolor rgbtox adjpen$ adjfont commonfonto convertcolorpair getcolor num2style style2num adjtext adjbox getlinewidth! horizbuttonw maxbtnwidth getobjwidth: getobjheight getrightmost getlowest docreate makecursor addgraphicallabelgroups updatelabeldataX platformdefaults converter updateversion$ synchtime stampval shiftlW shiftr emptyplatform= structdialog curpos scxfrxdialog dfltplat makepict transprmpt rdvalid} deacclau@ showclauS scrnctrl enableproc pvalid^ startthermR thermfname partialfnameR actthermP updtherm deactthermu% errorhandler cleanwindT' eschandler errshow juststem strippath isobject isreptobjectT0 isgraphobj isenviron IsNewerEnv hasrecords]2 setctrlP3 setrptfont askfont is20scx is20frx is20lbx#< getsnipflagr< match wordnum0? addbssA justfname justpath forceext cvtlong cvtshort2E cvtbyte obj2basefont versioncapWG blackbox H selectobj initsel addsel,P isselected assemble type2name cleanpict:Z tpselect toggle okvalid wreaddeac EnvSelect outputordSm putwinmsg setall n cleanup writeresult versnum cptrans cptcond0} setfromcp oktransport{~ iserrormsg boxjoin getobjposq initfontmap[ mapfont= replfont make2d make3d/ addquote isquote fontavail fixpent assert PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Class 0 8 *WINDOWS _QV70YAK2Q 493977469 9 10 11 12 19 282 78 79 80 82 83 84 *WINDOWS _QV70YAJUU 493977469 85 86 87 88 89 *WINDOWS _QV70YAJW7 493977469 92 93 94 95 96 *WINDOWS _QV70YAJXB 493977469 99 100 101 102 103 *WINDOWS _QV70YAJYD 493977469 105 106 107 108 109 *WINDOWS _QV70YAJZB 493977469 112 113 114 115 116 *WINDOWS _QV70YAK0D 493977469 120 121 122 123 124 126 318 *WINDOWS _QV70YAK1V 493977469 127 128 129 130 131 *WINDOWS _QV70YB2QE 493977611 133 134 135 136 137 151 322 207 208 209 211 212 213 *WINDOWS _QV70YB2GN 493977611 214 215 216 217 218 *WINDOWS _QV70YB2HI 493977611 220 221 222 223 224 *WINDOWS _QV70YB2IF 493977611 226 227 228 229 230 *WINDOWS _QV70YB2KN 493977611 240 241 242 243 244 *WINDOWS _QV70YB2MJ 493977611 254 255 256 257 258 *WINDOWS _QV70YB2OF 493977611 268 269 270 271 272 *WINDOWS _QVY0WOZL7 495876582 520 359 519 362 369 428 522 521 464 523 524 525 *WINDOWS _QVY0WOZDL 495876582 466 467 468 469 470 *WINDOWS _QVY0WOZEK 495876582 473 474 475 476 477 *WINDOWS _QVY0WOZFI 495876582 480 481 482 483 484 *WINDOWS _QVY0WOZGF 495876582 487 488 489 490 491 *WINDOWS _QVY0WOZHN 495876582 494 495 496 497 498 *WINDOWS _QVY0WOZIV 495876582 502 503 504 505 506 508 509 *WINDOWS _QVY0WOZKA 495876582 513 514 515 516 517 *WINDOWS _QVY0WQ8BQ 495876613 710 527 528 709 531 545 601 712 711 637 713 714 715 *WINDOWS _QVY0WQ825 495876613 639 640 641 642 643 *WINDOWS _QVY0WQ830 495876613 645 646 647 648 649 *WINDOWS _QVY0WQ83W 495876613 652 653 654 655 656 *WINDOWS _QVY0WQ869 495876613 666 667 668 669 670 *WINDOWS _QVY0WQ882 495876613 680 681 682 683 684 *WINDOWS _QVY0WQ89V 495876613 694 695 696 697 698 *WINDOWS _QVY0Y9EB3 495877986 878 717 877 720 727 786 880 879 822 881 882 883 *WINDOWS _QVY0Y9E3L 495877986 824 825 826 827 828 *WINDOWS _QVY0Y9E53 495877986 831 832 833 834 835 *WINDOWS _QVY0Y9E64 495877986 838 839 840 841 842 *WINDOWS _QVY0Y9E71 495877986 845 846 847 848 849 *WINDOWS _QVY0Y9E7Y 495877986 852 853 854 855 856 *WINDOWS _QVY0Y9E8X 495877986 860 861 862 863 864 866 867 *WINDOWS _QVY0Y9EA7 495877986 871 872 873 874 875 *WINDOWS _QVY0ZBIOS 495879061 1046 885 1045 888 895 954 1048 1047 990 1049 1050 1051 *WINDOWS _QVY0ZBIGH 495879061 992 993 994 995 996 *WINDOWS _QVY0ZBIHY 495879061 999 1000 1001 1002 1003 *WINDOWS _QVY0ZBIIY 495879061 1006 1007 1008 1009 1010 *WINDOWS _QVY0ZBIJW 495879061 1013 1014 1015 1016 1017 *WINDOWS _QVY0ZBIL8 495879061 1021 1022 1023 1024 1025 1027 1028 *WINDOWS _QVY0ZBIMH 495879061 1032 1033 1034 1035 1036 *WINDOWS _QVY0ZBINT 495879061 1038 1039 1040 1041 1042 *WINDOWS _QVY0ZDS9Q 495879118 1214 1053 1213 1056 1063 1122 1216 1215 1158 1217 1218 1219 *WINDOWS _QVY0ZDS2X 495879118 1160 1161 1162 1163 1164 *WINDOWS _QVY0ZDS3Y 495879118 1167 1168 1169 1170 1171 *WINDOWS _QVY0ZDS4X 495879118 1174 1175 1176 1177 1178 *WINDOWS _QVY0ZDS5T 495879118 1181 1182 1183 1184 1185 *WINDOWS _QVY0ZDS6Q 495879118 1189 1190 1191 1192 1193 1195 1196 *WINDOWS _QVY0ZDS7Z 495879118 1200 1201 1202 1203 1204 *WINDOWS _QVY0ZDS8S 495879118 1206 1207 1208 1209 1210 *WINDOWS _QVY0ZFXV1 495879172 1382 1221 1381 1224 1231 1290 1384 1383 1326 1385 1386 1387 *WINDOWS _QVY0ZFXNX 495879172 1328 1329 1330 1331 1332 *WINDOWS _QVY0ZFXOW 495879172 1335 1336 1337 1338 1339 *WINDOWS _QVY0ZFXPW 495879172 1342 1343 1344 1345 1346 *WINDOWS _QVY0ZFXR6 495879172 1349 1350 1351 1352 1353 *WINDOWS _QVY0ZFXS3 495879172 1357 1358 1359 1360 1361 1363 1364 *WINDOWS _QVY0ZFXTC 495879172 1368 1369 1370 1371 1372 *WINDOWS _QVY0ZFXU4 495879172 1374 1375 1376 1377 1378 *WINDOWS _QVY0ZHHJT 495879210 1572 1389 1390 1571 1393 1407 1463 1574 1573 1499 1575 1576 1577 *WINDOWS _QVY0ZHHB0 495879210 1501 1502 1503 1504 1505 *WINDOWS _QVY0ZHHBS 495879210 1507 1508 1509 1510 1511 *WINDOWS _QVY0ZHHCN 495879210 1514 1515 1516 1517 1518 *WINDOWS _QVY0ZHHEC 495879210 1528 1529 1530 1531 1532 *WINDOWS _QVY0ZHHG1 495879210 1542 1543 1544 1545 1546 *WINDOWS _QVY0ZHHI2 495879210 1556 1557 1558 1559 1560 *WINDOWS _QVZ0YAS3X 495943684 1740 1579 1739 1582 1589 1648 1742 1741 1684 1743 1744 1745 *WINDOWS _QVZ0YARVB 495943684 1686 1687 1688 1689 1690 *WINDOWS _QVZ0YARWM 495943684 1693 1694 1695 1696 1697 *WINDOWS _QVZ0YARXO 495943684 1700 1701 1702 1703 1704 *WINDOWS _QVZ0YARYO 495943684 1707 1708 1709 1710 1711 *WINDOWS _QVZ0YAS0B 495943684 1715 1716 1717 1718 1719 1721 1722 *WINDOWS _QVZ0YAS1R 495943684 1726 1727 1728 1729 1730 *WINDOWS _QVZ0YAS2S 495943684 1732 1733 1734 1735 1736 *WINDOWS _QVZ0ZN849 495944889 1908 1747 1907 1750 1757 1816 1910 1909 1852 1911 1912 1913 *WINDOWS _QVZ0ZN7VU 495944888 1854 1855 1856 1857 1858 *WINDOWS _QVZ0ZN7XA 495944888 1861 1862 1863 1864 1865 *WINDOWS _QVZ0ZN7YG 495944888 1868 1869 1870 1871 1872 1874 1875 *WINDOWS _QVZ0ZN7ZW 495944888 1879 1880 1881 1882 1883 *WINDOWS _QVZ0ZN80V 495944888 1885 1886 1887 1888 1889 *WINDOWS _QVZ0ZN81Z 495944889 1892 1893 1894 1895 1896 *WINDOWS _QVZ0ZN832 495944889 1899 1900 1901 1902 1903 *WINDOWS _QW0105U4Y 496010889 2076 1915 2075 1918 1925 1984 2078 2077 2020 2079 2080 2081 *WINDOWS _QW0105TWB 496010889 2022 2023 2024 2025 2026 *WINDOWS _QW0105TXF 496010889 2029 2030 2031 2032 2033 *WINDOWS _QW0105TYD 496010889 2036 2037 2038 2039 2040 2042 2043 *WINDOWS _QW0105TZM 496010889 2047 2048 2049 2050 2051 *WINDOWS _QW0105U28 496010889 2053 2054 2055 2056 2057 *WINDOWS _QW0105U34 496010889 2060 2061 2062 2063 2064 *WINDOWS _QW0105U40 496010889 2067 2068 2069 2070 2071 *WINDOWS _QW01093F9 496010969 2266 2083 2084 2265 2087 2101 2157 2268 2267 2193 2269 2270 2271 *WINDOWS _QW010936B 496010969 2195 2196 2197 2198 2199 *WINDOWS _QW0109373 496010969 2201 2202 2203 2204 2205 *WINDOWS _QW010937Y 496010969 2208 2209 2210 2211 2212 *WINDOWS _QW010939M 496010969 2222 2223 2224 2225 2226 *WINDOWS _QW01093BW 496010969 2236 2237 2238 2239 2240 *WINDOWS _QW01093DJ 496010969 2250 2251 2252 2253 2254 WINDOWS _QW010983X 496010972 2456 2273 2274 2455 2277 2291 2347 2458 2457 2383 2459 2460 2461 WINDOWS _QW01097TZ 496010972 2385 2386 2387 2388 2389 WINDOWS _QW01097UR 496010972 2391 2392 2393 2394 2395 WINDOWS _QW01097WA 496010972 2398 2399 2400 2401 2402 WINDOWS _QW01097Y1 496010972 2412 2413 2414 2415 2416 WINDOWS _QW01097ZS 496010972 2426 2427 2428 2429 2430 WINDOWS _QW0109825 496010972 2440 2441 2442 2443 2444 *WINDOWS _QW310K8IB 496207983 2624 2463 2623 2466 2473 2532 2626 2625 2568 2627 2628 2629 *WINDOWS _QW310K8AM 496207983 2570 2571 2572 2573 2574 *WINDOWS _QW310K8BO 496207983 2577 2578 2579 2580 2581 *WINDOWS _QW310K8CP 496207983 2584 2585 2586 2587 2588 2590 2591 *WINDOWS _QW310K8E4 496207983 2595 2596 2597 2598 2599 *WINDOWS _QW310K8EY 496207983 2601 2602 2603 2604 2605 *WINDOWS _QW310K8FZ 496207983 2608 2609 2610 2611 2612 *WINDOWS _QW310K8GX 496207983 2615 2616 2617 2618 2619 *WINDOWS _QW310M4SP 496208029 2792 2631 2791 2634 2641 2700 2794 2793 2736 2795 2796 2797 *WINDOWS _QW310M4KN 496208029 2738 2739 2740 2741 2742 *WINDOWS _QW310M4LO 496208029 2745 2746 2747 2748 2749 *WINDOWS _QW310M4MP 496208029 2752 2753 2754 2755 2756 2758 2759 *WINDOWS _QW310M4O2 496208029 2763 2764 2765 2766 2767 *WINDOWS _QW310M4OW 496208029 2769 2770 2771 2772 2773 *WINDOWS _QW310M4PV 496208029 2776 2777 2778 2779 2780 *WINDOWS _QW310M4RD 496208029 2783 2784 2785 2786 2787 *WINDOWS _QW310S2MU 496208177 2960 2799 2959 2802 2809 2868 2962 2961 2904 2963 2964 2965 *WINDOWS _QW310S2FK 496208177 2906 2907 2908 2909 2910 *WINDOWS _QW310S2GL 496208177 2913 2914 2915 2916 2917 *WINDOWS _QW310S2HM 496208177 2920 2921 2922 2923 2924 2926 2927 *WINDOWS _QW310S2IZ 496208177 2931 2932 2933 2934 2935 *WINDOWS _QW310S2JS 496208177 2937 2938 2939 2940 2941 *WINDOWS _QW310S2KT 496208177 2944 2945 2946 2947 2948 *WINDOWS _QW310S2LR 496208177 2951 2952 2953 2954 2955 *WINDOWS _QW310SRBL 496208195 3128 2967 3127 2970 2977 3036 3130 3129 3072 3131 3132 3133 *WINDOWS _QW310SR4D 496208195 3074 3075 3076 3077 3078 *WINDOWS _QW310SR5D 496208195 3081 3082 3083 3084 3085 *WINDOWS _QW310SR6D 496208195 3088 3089 3090 3091 3092 3094 3095 *WINDOWS _QW310SR7O 496208195 3099 3100 3101 3102 3103 *WINDOWS _QW310SR8I 496208195 3105 3106 3107 3108 3109 *WINDOWS _QW310SR9K 496208195 3112 3113 3114 3115 3116 *WINDOWS _QW310SRAI 496208195 3119 3120 3121 3122 3123 *WINDOWS _QW311F60I 496208752 3296 3135 3295 3138 3145 3204 3298 3297 3240 3299 3300 3301 *WINDOWS _QW311F5TI 496208752 3242 3243 3244 3245 3246 *WINDOWS _QW311F5UH 496208752 3249 3250 3251 3252 3253 *WINDOWS _QW311F5VE 496208752 3256 3257 3258 3259 3260 3262 3263 *WINDOWS _QW311F5WP 496208752 3267 3268 3269 3270 3271 *WINDOWS _QW311F5XH 496208752 3273 3274 3275 3276 3277 *WINDOWS _QW311F5YH 496208752 3280 3281 3282 3283 3284 *WINDOWS _QW311F5ZF 496208752 3287 3288 3289 3290 3291 *WINDOWS _QWD0X419A 496859995 3464 3303 3463 3306 3313 3372 3466 3465 3408 3467 3468 3469 *WINDOWS _QWD0X4113 496859995 3410 3411 3412 3413 3414 *WINDOWS _QWD0X4123 496859995 3417 3418 3419 3420 3421 *WINDOWS _QWD0X4132 496859995 3424 3425 3426 3427 3428 3430 3431 *WINDOWS _QWD0X414D 496859995 3435 3436 3437 3438 3439 *WINDOWS _QWD0X4158 496859995 3441 3442 3443 3444 3445 *WINDOWS _QWD0X416Y 496859995 3448 3449 3450 3451 3452 *WINDOWS _QWD0X417V 496859995 3455 3456 3457 3458 3459 *WINDOWS _QWD0XJ2XW 496860370 3632 3471 3631 3474 3481 3540 3634 3633 3576 3635 3636 3637 *WINDOWS _QWD0XJ2Q6 496860370 3578 3579 3580 3581 3582 *WINDOWS _QWD0XJ2R6 496860370 3585 3586 3587 3588 3589 *WINDOWS _QWD0XJ2S6 496860370 3592 3593 3594 3595 3596 3598 3599 *WINDOWS _QWD0XJ2TI 496860370 3603 3604 3605 3606 3607 *WINDOWS _QWD0XJ2UC 496860370 3609 3610 3611 3612 3613 *WINDOWS _QWD0XJ2VB 496860370 3616 3617 3618 3619 3620 *WINDOWS _QWD0XJ2W9 496860370 3623 3624 3625 3626 3627 *WINDOWS _QWS0UFMWW 506163581 3800 3639 3799 3642 3649 3708 3802 3801 3744 3803 3804 3805 *WINDOWS _QWS0UFMOY 506163581 3746 3747 3748 3749 3750 *WINDOWS _QWS0UFMQ0 506163581 3753 3754 3755 3756 3757 *WINDOWS _QWS0UFMR1 506163581 3760 3761 3762 3763 3764 3766 3767 *WINDOWS _QWS0UFMSF 506163581 3771 3772 3773 3774 3775 *WINDOWS _QWS0UFMTA 506163581 3777 3778 3779 3780 3781 *WINDOWS _QWS0UFMUS 506163581 3784 3785 3786 3787 3788 *WINDOWS _QWS0UFMVT 506163581 3792 3793 3794 3795 3796 WINDOWS _QWS0VG808 506164493 3968 3807 3967 3810 3817 3876 3970 3969 3912 3971 3972 3973 WINDOWS _QWS0VG7SH 506164493 3914 3915 3916 3917 3918 WINDOWS _QWS0VG7TJ 506164493 3921 3922 3923 3924 3925 WINDOWS _QWS0VG7UK 506164493 3928 3929 3930 3931 3932 3934 3935 WINDOWS _QWS0VG7VW 506164493 3939 3940 3941 3942 3943 WINDOWS _QWS0VG7WS 506164493 3945 3946 3947 3948 3949 WINDOWS _QWS0VG7XS 506164493 3952 3953 3954 3955 3956 WINDOWS _QWS0VG7YR 506164493 3959 3960 3961 3962 3963 VERSION = 0.028 thermometer ScaleMode = 3 Top = 359 Left = 319 Height = 51 Width = 386 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "" Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') Name = "thermometer" PROCEDURE Init * 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) * BugBug: this isn't firing correctly anyway, so disable for time being * this.tmrThermTimer.Interval = ; iif(empty(m.iInterval),500,m.iInterval) this.tmrThermTimer.Interval = 0 && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. this.Height = 75 this.Width = 410 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. ENDPROC 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=max(0,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 Class mipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle ..\wzimport\ ..\wzimport\ Pixels label label lblTitle thermometer BackColor = 192,192,192 BackStyle = 1 Caption = "" FontName = "MS Sans Serif" FontSize = 8 Height = 16 Left = 18 Top = 10 Width = 373 WordWrap = .F. Name = "lblTitle" label label lblTask thermometer BackColor = 192,192,192 BackStyle = 1 Caption = "" FontName = "MS Sans Serif" FontSize = 8 Height = 16 Left = 18 Top = 27 Width = 373 WordWrap = .F. Name = "lblTask" shape shape shpThermBar thermometer xBackColor = 0,0,128 BorderStyle = 0 FillStyle = 0 Height = 22 Left = 17 Top = 46 Width = 0 Name = "shpThermBar" label label lblPercentage thermometer BackStyle = 0 Caption = "0%" FontName = "MS Sans Serif" FontSize = 8 Height = 13 Left = 196 Top = 50 Width = 16 Name = "lblPercentage" label label lblPercentage2 thermometer BackColor = 0,0,255 BackStyle = 0 Caption = "Label1" FontName = "MS Sans Serif" FontSize = 8 ForeColor = 255,255,255 Height = 13 Left = 196 Top = 50 Width = 0 Name = "lblPercentage2" timer timer tmrThermTimer thermometer RTop = 4 Left = 4 Height = 23 Width = 26 Interval = 0 Name = "tmrThermTimer" -PROCEDURE Timer thisform.Update ENDPROC shape shape Shape5 thermometer OBackStyle = 0 Height = 23 Left = 16 Top = 45 Width = 378 Name = "Shape5" thermometer sprtherm.vcx therm2 RScaleMode = 3 Top = 309 Left = 319 Height = 150 Width = 386 Caption = "" Visible = .T. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') ccurrenttask2 = ('') ibasis2 = (0) ipercentage2 = (0) iprogress2 = (0) Name = "therm2" lblTitle.BackStyle = 1 lblTitle.Caption = "" lblTitle.Left = 8 lblTitle.Top = 83 lblTitle.Visible = .T. lblTask.BackStyle = 1 lblTask.Caption = "" lblTask.Left = 8 lblTask.Top = 106 shpThermBar.Left = 7 shpThermBar.Top = 125 lblPercentage.BackStyle = 0 lblPercentage.Caption = "0%" lblPercentage.Left = 186 lblPercentage.Top = 129 lblPercentage2.BackStyle = 0 lblPercentage2.Caption = "Label1" lblPercentage2.Left = 186 lblPercentage2.Top = 129 tmrThermTimer.Top = 7 tmrThermTimer.Left = 4 Shape5.Left = 6 Shape5.Top = 124 PROCEDURE Init 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) && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. *- ???? this.Height = 150 this.Width = 386 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. 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=max(0,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 Class Tccurrenttask2 ibasis2 ipercentage2 iprogress2 *update2 *complete2 *settitle2 samples\ samples\ Pixels shape shape shpThermBox2 therm2 TBackStyle = 0 Height = 23 Left = 8 Top = 47 Width = 378 Name = "shpThermBox2" shape shape shpThermBar2 therm2 xBackColor = 0,0,128 BorderStyle = 0 FillStyle = 0 Height = 22 Left = 9 Top = 48 Width = 0 Name = "shpThermBar2" label label lblTask2 therm2 eDefTop = 0 DefLeft = 0 DefHeight = 0 DefWidth = 0 Alignment = 0 AutoSize = .F. BackColor = 192,192,192 BackStyle = 1 BorderStyle = 0 Caption = "" DragIcon = samples\ DragMode = 0 FontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. ForeColor = 0,0,0 Height = 16 HelpContextID = 0 Left = 10 MousePointer = 0 Tag = "" Top = 24 Visible = .T. Width = 373 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "Label" ClassLibrary = "" Class = "Lbltask2" Name = "lblTask2" label label lblTitle2 therm2 eDefTop = 0 DefLeft = 0 DefHeight = 0 DefWidth = 0 Alignment = 0 AutoSize = .F. BackColor = 192,192,192 BackStyle = 1 BorderStyle = 0 Caption = "" DragIcon = samples\ DragMode = 0 FontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. ForeColor = 0,0,0 Height = 16 HelpContextID = 0 Left = 8 MousePointer = 0 Tag = "" Top = 7 Visible = .T. Width = 373 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "Label" ClassLibrary = "" Class = "Lbltitle2" Name = "lblTitle2" label label lblPercentage3 therm2 sDefTop = 0 DefLeft = 0 DefHeight = 0 DefWidth = 0 Alignment = 0 AutoSize = .F. BackColor = 255,255,255 BackStyle = 0 BorderStyle = 0 Caption = "0%" DragIcon = samples\ DragMode = 0 FontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. ForeColor = 0,0,0 Height = 13 HelpContextID = 0 Left = 186 MousePointer = 0 Tag = "" Top = 53 Visible = .T. Width = 16 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "Label" ClassLibrary = "" Class = "Lblpercentage3" Name = "lblPercentage3" label label lblPercentage4 therm2 xDefTop = 0 DefLeft = 0 DefHeight = 0 DefWidth = 0 Alignment = 0 AutoSize = .F. BackColor = 0,0,255 BackStyle = 0 BorderStyle = 0 Caption = "Label1" DragIcon = samples\ DragMode = 0 FontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. ForeColor = 255,255,255 Height = 13 HelpContextID = 0 Left = 186 MousePointer = 0 Tag = "" Top = 53 Visible = .T. Width = 0 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "Label" ClassLibrary = "" Class = "Lblpercentage4" Name = "lblPercentage4" CWINTITLE CTITLE IBASIS IINTERVAL CAPTION LBLTITLE TMRTHERMTIMER INTERVAL HEIGHT WIDTH MOVABLE 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 Init, completeg update settitle c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx _u7V@ THISFORM UPDATE Timer, c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx CWINTITLE CTITLE IBASIS IINTERVAL CTITLE2 IBASIS2 THERMOMETER THIS LBLTITLE2 CAPTION HEIGHT WIDTH MOVABLE 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 Init, update2c complete2 settitle2 c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx m.g_corn6 = " m.g_hori form m.g_verti1 = " m.g_verti2 = " formGOTO RECORD m.savrecno * SUBDEVINFO - Substrin PixelsU thermometer ScaleMode = 3 Top = 215 Left = 127 Height = 51 Width = 386 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "" Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') Name = "thermometer" PROCEDURE Init * 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) * BugBug: this isn't firing correctly anyway, so disable for time being * this.tmrThermTimer.Interval = ; iif(empty(m.iInterval),500,m.iInterval) this.tmrThermTimer.Interval = 0 && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. this.Height = 75 this.Width = 410 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. ENDPROC 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=max(0,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 tores it) CWINTITLE CTITLE IBASIS IINTERVAL CAPTION LBLTITLE TMRTHERMTIMER INTERVAL HEIGHT WIDTH MOVABLE 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 Init, completeg update settitle c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx IS.fp3prop) ENDPROC ENDDEFINE pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle *---- label----------------- PROCEDURE Init *------------- label-------- PARAMETER parm1,parm2 fp25obj::I lblTitle THIS.cOldParentName = THIS.formRef.pare thermometer.ef.parentName = C_DEFDATANAV ENDPROC && FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 10 Width = 373 WordWrap = .F. Name = "lblTitle" .lHasD label THIS.AddName(PROPER(THIS.fp3class)) ELSE TH labelOPER(THIS.GetNewName(THIS.fp3class))) ENDIF lblTaskias THIS.AddProp(M_PARENTALIAS,a_scx2fld[A_TAG thermometer. index expr THIS.AddProp(M_PARENTINDEXEXP FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 27 Width = 373 WordWrap = .F. Name = "lblTask" atanav shapeadd ReleaseErase *THIS.AddProp(M_RELEASEERASE,C_ shapeENDPROC && fpDataNavRelation:AddMain ENDDEFINE & shpThermBar ************************************ thermometer.t AS fp25obj ****************************** BackColor = 0,0,128 BorderStyle = 0 FillColor = 0,0,128 FillStyle = 0 Height = 22 Left = 17 Top = 46 Width = 0 Name = "shpThermBar" *---------------------- PARAMETER p label THIS.formRef = m.parm2 && form ref label t$(f%? lblPercentage thermometer. FontName = "MS Sans Serif" FontSize = 8 BackStyle = 0 Caption = "0%" Height = 13 Left = 196 Top = 50 Width = 16 Name = "lblPercentage" label labelS lblPercentage2 thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 0,0,255 BackStyle = 0 Caption = "Label1" ForeColor = 255,255,255 Height = 13 Left = 196 Top = 50 Width = 0 Name = "lblPercentage2" timer timer tmrThermTimer thermometer. RTop = 4 Left = 4 Height = 23 Width = 26 Interval = 0 Name = "tmrThermTimer" -PROCEDURE Timer thisform.Update ENDPROC THISFORM UPDATE Timer, c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx shapeSE ERASE (m.cTmpScx) RELEASE cVCXObj *- shapearea SELECT (m.nWorkArea) *- restore classe Shape5 TO &cOldClassLib ENDPROC && fpVCXObject:Add thermometer.-------------- PROCEDURE AddRec *------- OBackStyle = 0 Height = 23 Left = 16 Top = 45 Width = 378 Name = "Shape5" .formRef.new30alias) ; ( platform,; thermometer timestamp,; class,; baseclass Class ..\wzimport\ ..\wzimport\ Pixels thermometer sprtherm.vcx Pixels therm2 sScaleMode = 3 Top = 165 Left = 127 Height = 150 Width = 386 Caption = "" Visible = .T. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') ccurrenttask2 = ('') ibasis2 = (0) ipercentage2 = (0) iprogress2 = (0) Name = "therm2" lblTitle.BackStyle = 1 lblTitle.Caption = "" lblTitle.Left = 8 lblTitle.Top = 83 lblTitle.Visible = .T. lblTask.BackStyle = 1 lblTask.Caption = "" lblTask.Left = 8 lblTask.Top = 106 shpThermBar.FillColor = 0,0,128 shpThermBar.Left = 7 shpThermBar.Top = 125 lblPercentage.BackStyle = 0 lblPercentage.Caption = "0%" lblPercentage.Left = 186 lblPercentage.Top = 129 lblPercentage2.BackStyle = 0 lblPercentage2.Caption = "Label1" lblPercentage2.Left = 186 lblPercentage2.Top = 129 tmrThermTimer.Top = 7 tmrThermTimer.Left = 4 Shape5.Left = 6 Shape5.Top = 124 lag A PROCEDURE Init 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) && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. *- ???? this.Height = 150 this.Width = 386 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. 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=max(0,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 r: " + message() + C_CRLF + ; CWINTITLE CTITLE IBASIS IINTERVAL CTITLE2 IBASIS2 THERMOMETER THIS LBLTITLE2 CAPTION HEIGHT WIDTH MOVABLE 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 Init, update2c complete2 settitle2 c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx HIS.pjxConverterClass m.cF Wccurrenttask2 ibasis2 ipercentage2 iprogress2 *update2 *complete2 *settitle2 ATALOGTYPEPARM AND THIS.aConvParm shapeERSIONPARM *- FP 2.6 catalog m.theCla shape shpThermBox2 therm2. TBackStyle = 0 Height = 23 Left = 8 Top = 47 Width = 378 Name = "shpThermBox2" shape shape shpThermBar2 therm2. BackColor = 0,0,128 BorderStyle = 0 FillColor = 0,0,128 FillStyle = 0 Height = 22 Left = 9 Top = 48 Width = 0 Name = "shpThermBar2" label label lblTask2 therm2. oFontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 AutoSize = .F. BackColor = 192,192,192 BackStyle = 1 BorderStyle = 0 Caption = "" DragIcon = DragMode = 0 ForeColor = 0,0,0 Height = 16 HelpContextID = 0 Left = 10 MousePointer = 0 Tag = "" Top = 24 Visible = .T. Width = 373 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" Name = "lblTask2" label label lblTitle2 therm2. nFontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 AutoSize = .F. BackColor = 192,192,192 BackStyle = 1 BorderStyle = 0 Caption = "" DragIcon = DragMode = 0 ForeColor = 0,0,0 Height = 16 HelpContextID = 0 Left = 8 MousePointer = 0 Tag = "" Top = 7 Visible = .T. Width = 373 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" Name = "lblTitle2" label label lblPercentage3 therm2. wFontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 AutoSize = .F. BackColor = 255,255,255 BackStyle = 0 BorderStyle = 0 Caption = "0%" DragIcon = DragMode = 0 ForeColor = 0,0,0 Height = 13 HelpContextID = 0 Left = 186 MousePointer = 0 Tag = "" Top = 53 Visible = .T. Width = 16 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" Name = "lblPercentage3" label label lblPercentage4 therm2. |FontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 AutoSize = .F. BackColor = 0,0,255 BackStyle = 0 BorderStyle = 0 Caption = "Label1" DragIcon = DragMode = 0 ForeColor = 255,255,255 Height = 13 HelpContextID = 0 Left = 186 MousePointer = 0 Tag = "" Top = 53 Visible = .T. Width = 0 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" Name = "lblPercentage4" PRIVATE d,t m.d = IIF(EMPTY(m.wzpdate),DATE(),m.wz therm2= IIF(EMPTY(m.wzptime),TIME(),m.wzptime) RETU thermometer) * 2 ** 25); + (MONTH(m.d) + (DAY(m.d) * 2 ** 16); + Class samples\ samples\ Pixels Pixels thermometer ScaleMode = 3 Top = 215 Left = 127 Height = 51 Width = 386 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "" Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') Name = "thermometer" CASE INLIST(m.fp30prop,; M_PEN, PROCEDURE Init * 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) * BugBug: this isn't firing correctly anyway, so disable for time being * this.tmrThermTimer.Interval = ; iif(empty(m.iInterval),500,m.iInterval) this.tmrThermTimer.Interval = 0 && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. this.Height = 75 this.Width = 410 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. ENDPROC 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=max(0,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 CWINTITLE CTITLE IBASIS IINTERVAL CAPTION LBLTITLE TMRTHERMTIMER INTERVAL HEIGHT WIDTH MOVABLE 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 Init, completeg update settitle c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle label label lblTitle thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 10 Width = 373 WordWrap = .F. Name = "lblTitle" label label lblTask thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 27 Width = 373 WordWrap = .F. Name = "lblTask" shape shape shpThermBar thermometer. BackColor = 0,0,0 BorderStyle = 0 FillColor = 0,0,128 FillStyle = 0 Height = 22 Left = 17 Top = 46 Width = 0 Name = "shpThermBar" label label lblPercentage thermometer. FontName = "MS Sans Serif" FontSize = 8 BackStyle = 0 Caption = "0%" Height = 13 Left = 196 Top = 50 Width = 16 Name = "lblPercentage" label label lblPercentage2 thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 0,0,255 BackStyle = 0 Caption = "Label1" ForeColor = 255,255,255 Height = 13 Left = 196 Top = 50 Width = 0 Name = "lblPercentage2" timer timer tmrThermTimer thermometer. RTop = 4 Left = 4 Height = 23 Width = 26 Interval = 0 Name = "tmrThermTimer" -PROCEDURE Timer thisform.Update ENDPROC THISFORM UPDATE Timer, c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx shape shape Shape5 thermometer. OBackStyle = 0 Height = 23 Left = 16 Top = 45 Width = 378 Name = "Shape5" thermometer Class ..\wzimport\ ..\wzimport\ Pixels Pixels thermometer ScaleMode = 3 Top = 215 Left = 127 Height = 51 Width = 386 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "" Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') Name = "thermometer" PROCEDURE Init * 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) * BugBug: this isn't firing correctly anyway, so disable for time being * this.tmrThermTimer.Interval = ; iif(empty(m.iInterval),500,m.iInterval) this.tmrThermTimer.Interval = 0 && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. this.Height = 75 this.Width = 410 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. ENDPROC 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=max(0,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 CWINTITLE CTITLE IBASIS IINTERVAL CAPTION LBLTITLE TMRTHERMTIMER INTERVAL HEIGHT WIDTH MOVABLE 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 Init, completeg update settitle c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle label label lblTitle thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 10 Width = 373 WordWrap = .F. Name = "lblTitle" label label lblTask thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 27 Width = 373 WordWrap = .F. Name = "lblTask" label label lblPercentage thermometer. FontName = "MS Sans Serif" FontSize = 8 BackStyle = 0 Caption = "0%" Height = 13 Left = 196 Top = 50 Width = 16 Name = "lblPercentage" label label lblPercentage2 thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 0,0,255 BackStyle = 0 Caption = "Label1" ForeColor = 255,255,255 Height = 13 Left = 196 Top = 50 Width = 0 Name = "lblPercentage2" the selected items to the tallest item To Shortest timerght of the selected items to the shortest item timer the width of the selected items to the widest item tmrThermTimer the width of the selected items to the nar thermometer. RTop = 4 Left = 4 Height = 23 Width = 26 Interval = 0 Name = "tmrThermTimer" -PROCEDURE Timer thisform.Update ENDPROC THISFORM UPDATE Timer, c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx shape shape Shape5 thermometer. OBackStyle = 0 Height = 23 Left = 16 Top = 45 Width = 378 Name = "Shape5" shape shape shpThermBar thermometer. BackColor = 0,0,0 BorderStyle = 0 FillColor = 0,0,128 FillStyle = 0 Height = 22 Left = 17 Top = 46 Width = 0 Name = "shpThermBar" thermometer Class ..\wzimport\ ..\wzimport\ Pixels Pixels thermometer ScaleMode = 3 Top = 215 Left = 127 Height = 51 Width = 386 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "" Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') Name = "thermometer" PROCEDURE Init * 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) * BugBug: this isn't firing correctly anyway, so disable for time being * this.tmrThermTimer.Interval = ; iif(empty(m.iInterval),500,m.iInterval) this.tmrThermTimer.Interval = 0 && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. this.Height = 75 this.Width = 410 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. ENDPROC 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=max(0,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 CWINTITLE CTITLE IBASIS IINTERVAL CAPTION LBLTITLE TMRTHERMTIMER INTERVAL HEIGHT WIDTH MOVABLE 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 Init, completeg update settitle c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle label label lblTitle thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 10 Width = 373 WordWrap = .F. Name = "lblTitle" label label lblTask thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 27 Width = 373 WordWrap = .F. Name = "lblTask" label label lblPercentage thermometer. FontName = "MS Sans Serif" FontSize = 8 BackStyle = 0 Caption = "0%" Height = 13 Left = 196 Top = 50 Width = 16 Name = "lblPercentage" label label lblPercentage2 thermometer. 9X v% FontName = "MS Sans Serif" FontSize = 8 BackColor = 0,0,255 BackStyle = 0 Caption = "Label1" ForeColor = 255,255,255 Height = 13 Left = 196 Top = 50 Width = 0 Name = "lblPercentage2" timer timer tmrThermTimer thermometer. RTop = 4 Left = 4 Height = 23 Width = 26 Interval = 0 Name = "tmrThermTimer" -PROCEDURE Timer thisform.Update ENDPROC THISFORM UPDATE Timer, c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx shape shape Shape5 thermometer. OBackStyle = 0 Height = 23 Left = 16 Top = 45 Width = 378 Name = "Shape5" shape shape shpThermBar thermometer. BackColor = 0,0,128 BorderStyle = 0 FillColor = 0,0,128 FillStyle = 0 Height = 22 Left = 17 Top = 46 Width = 0 Name = "shpThermBar" thermometer Class ..\wzimport\ ..\wzimport\ Pixels Pixels thermometer ScaleMode = 3 Top = 215 Left = 127 Height = 51 Width = 386 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "" Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') Name = "thermometer" PROCEDURE Init * 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) * BugBug: this isn't firing correctly anyway, so disable for time being * this.tmrThermTimer.Interval = ; iif(empty(m.iInterval),500,m.iInterval) this.tmrThermTimer.Interval = 0 && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. this.Height = 75 this.Width = 410 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. ENDPROC 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=max(0,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 CWINTITLE CTITLE IBASIS IINTERVAL CAPTION LBLTITLE TMRTHERMTIMER INTERVAL HEIGHT WIDTH MOVABLE 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 Init, completeg update settitle c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle label label lblTitle thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 10 Width = 373 WordWrap = .F. Name = "lblTitle" label label lblTask thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 27 Width = 373 WordWrap = .F. Name = "lblTask" label label lblPercentage thermometer. FontName = "MS Sans Serif" FontSize = 8 BackStyle = 0 Caption = "0%" Height = 13 Left = 196 Top = 50 Width = 16 Name = "lblPercentage" label label lblPercentage2 thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 0,0,255 BackStyle = 0 Caption = "Label1" ForeColor = 255,255,255 Height = 13 Left = 196 Top = 50 Width = 0 Name = "lblPercentage2" timer timer tmrThermTimer thermometer. RTop = 4 Left = 4 Height = 23 Width = 26 Interval = 0 Name = "tmrThermTimer" -PROCEDURE Timer thisform.Update ENDPROC THISFORM UPDATE Timer, c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx shape shape Shape5 thermometer. OBackStyle = 0 Height = 23 Left = 16 Top = 45 Width = 378 Name = "Shape5" shape shape shpThermBar thermometer. BackColor = 0,0,128 BorderStyle = 0 FillColor = 0,0,128 FillStyle = 1 Height = 22 Left = 17 Top = 46 Width = 0 Name = "shpThermBar" thermometer Class ..\wzimport\ ..\wzimport\ Pixels thermometer sprtherm.vcx Pixels therm2 sScaleMode = 3 Top = 165 Left = 127 Height = 150 Width = 386 Caption = "" Visible = .T. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') ccurrenttask2 = ('') ibasis2 = (0) ipercentage2 = (0) iprogress2 = (0) Name = "therm2" lblTitle.BackStyle = 1 lblTitle.Caption = "" lblTitle.Left = 8 lblTitle.Top = 83 lblTitle.Visible = .T. lblTask.BackStyle = 1 lblTask.Caption = "" lblTask.Left = 8 lblTask.Top = 106 lblPercentage.BackStyle = 0 lblPercentage.Caption = "0%" lblPercentage.Left = 186 lblPercentage.Top = 129 lblPercentage2.BackStyle = 0 lblPercentage2.Caption = "Label1" lblPercentage2.Left = 186 lblPercentage2.Top = 129 tmrThermTimer.Top = 7 tmrThermTimer.Left = 4 Shape5.Left = 6 Shape5.Top = 124 shpThermBar.FillColor = 0,0,128 shpThermBar.Left = 7 shpThermBar.Top = 125 PROCEDURE Init 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) && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. *- ???? this.Height = 150 this.Width = 386 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. 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=max(0,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 CWINTITLE CTITLE IBASIS IINTERVAL CTITLE2 IBASIS2 THERMOMETER THIS LBLTITLE2 CAPTION HEIGHT WIDTH MOVABLE 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 Init, update2c complete2 settitle2 c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx 127mm 1 00001094010000000 Wccurrenttask2 ibasis2 ipercentage2 iprogress2 *update2 *complete2 *settitle2 102mm 2 00002713020000063 shape000000015000T shape 203 49mm 102mm 2 00002713020000063 shpThermBox220000T therm2.102.36 36.1mm 120mm 1 00001563010000000 TBackStyle = 0 Height = 23 Left = 8 Top = 47 Width = 378 Name = "shpThermBox2" 107mm 1 00000000010000000 shape000000010000T shape1 107.36 36.1mm 107mm 1 00000000010000000 shpThermBar215000T therm2.107.49 48.8mm 107mm 1 00000000010000000 BackColor = 0,0,128 BorderStyle = 0 FillColor = 0,0,128 FillStyle = 1 Height = 22 Left = 9 Top = 48 Width = 0 Name = "shpThermBar2" 0000T label1 89.36 36.1mm 89mm 1 00001094010000000 label000000015000T lblTask207.23 23.4mm 107mm 2 00000000020000197 therm2.0000010000T oFontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 AutoSize = .F. BackColor = 192,192,192 BackStyle = 1 BorderStyle = 0 Caption = "" DragIcon = DragMode = 0 ForeColor = 0,0,0 Height = 16 HelpContextID = 0 Left = 10 MousePointer = 0 Tag = "" Top = 24 Visible = .T. Width = 373 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" Name = "lblTask2" label label lblTitle2 c:\convert\samples\macpjx\macpjx.pjx therm2. nFontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 AutoSize = .F. BackColor = 192,192,192 BackStyle = 1 BorderStyle = 0 Caption = "" DragIcon = DragMode = 0 ForeColor = 0,0,0 Height = 16 HelpContextID = 0 Left = 8 MousePointer = 0 Tag = "" Top = 7 Visible = .T. Width = 373 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" Name = "lblTitle2" label ARRTEST SCX label TESTCAT FCT lblPercentage3 therm2. wFontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 AutoSize = .F. BackColor = 255,255,255 BackStyle = 0 BorderStyle = 0 Caption = "0%" DragIcon = DragMode = 0 ForeColor = 0,0,0 Height = 13 HelpContextID = 0 Left = 186 MousePointer = 0 Tag = "" Top = 53 Visible = .T. Width = 16 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" Name = "lblPercentage3" label CODETESTSPX label 3D SCX lblPercentage4 CVRTME SPX therm2. CVRTME S2T |FontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 AutoSize = .F. BackColor = 0,0,255 BackStyle = 0 BorderStyle = 0 Caption = "Label1" DragIcon = DragMode = 0 ForeColor = 255,255,255 Height = 13 HelpContextID = 0 Left = 186 MousePointer = 0 Tag = "" Top = 53 Visible = .T. Width = 0 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" Name = "lblPercentage4" therm2 thermometer Class samples\ samples\7 Pixels formQC- PixelsVt %a3a[ thermometer_ ScaleMode = 3 Top = 215 Left = 127 Height = 51 Width = 386 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "" Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') Name = "thermometer" PROCEDURE Init * 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) * BugBug: this isn't firing correctly anyway, so disable for time being * this.tmrThermTimer.Interval = ; iif(empty(m.iInterval),500,m.iInterval) this.tmrThermTimer.Interval = 0 && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. this.Height = 75 this.Width = 410 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. ENDPROC 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=max(0,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 CWINTITLE CTITLE IBASIS IINTERVAL CAPTION LBLTITLE TMRTHERMTIMER INTERVAL HEIGHT WIDTH MOVABLE 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 Init, completeg update settitle c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle label label lblTitle thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 10 Width = 373 WordWrap = .F. Name = "lblTitle" label label lblTask thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 27 Width = 373 WordWrap = .F. Name = "lblTask" label label lblPercentage thermometer. FontName = "MS Sans Serif" FontSize = 8 BackStyle = 0 Caption = "0%" Height = 13 Left = 196 Top = 50 Width = 16 Name = "lblPercentage" label label lblPercentage2 thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 0,0,255 BackStyle = 0 Caption = "Label1" ForeColor = 255,255,255 Height = 13 Left = 196 Top = 50 Width = 0 Name = "lblPercentage2" B0;B\t timer B0;B\u timer tmrThermTimert thermometer. @BC RTop = 4 Left = 4 Height = 23 Width = 26 Interval = 0 Name = "tmrThermTimer" B,;B0u' -PROCEDURE Timer thisform.Update ENDPROC THISFORM UPDATE Timer, c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx shape> shapexN Shape5 thermometer. OBackStyle = 0 Height = 23 Left = 16 Top = 45 Width = 378 Name = "Shape5" shape shape shpThermBar thermometer. BackColor = 0,0,128 BackStyle = 0 BorderStyle = 0 FillColor = 0,0,128 FillStyle = 1 Height = 22 Left = 17 Top = 46 Width = 0 Name = "shpThermBar" thermometer Class ..\wzimport\ ..\wzimport\ Pixels Pixels thermometer ScaleMode = 3 Top = 215 Left = 127 Height = 51 Width = 386 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "" Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') Name = "thermometer" PROCEDURE Init * 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) * BugBug: this isn't firing correctly anyway, so disable for time being * this.tmrThermTimer.Interval = ; iif(empty(m.iInterval),500,m.iInterval) this.tmrThermTimer.Interval = 0 && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. this.Height = 75 this.Width = 410 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. ENDPROC 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=max(0,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 CWINTITLE CTITLE IBASIS IINTERVAL CAPTION LBLTITLE TMRTHERMTIMER INTERVAL HEIGHT WIDTH MOVABLE 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 Init, completeg update settitle c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle label labelwDP lblTitle thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 10 Width = 373 WordWrap = .F. Name = "lblTitle" label label lblTask thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 27 Width = 373 WordWrap = .F. Name = "lblTask" timer timer tmrThermTimer thermometer. RTop = 4 Left = 4 Height = 23 Width = 26 Interval = 0 Name = "tmrThermTimer" -PROCEDURE Timer thisform.Update ENDPROC THISFORM UPDATE Timer, c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx shape shape Shape5 thermometer. OBackStyle = 0 Height = 23 Left = 16 Top = 45 Width = 378 Name = "Shape5" shape shape shpThermBar thermometer. BackColor = 0,0,128 BackStyle = 0 BorderStyle = 0 FillColor = 0,0,128 FillStyle = 1 Height = 22 Left = 17 Top = 46 Width = 0 Name = "shpThermBar" label label lblPercentage thermometer. FontName = "MS Sans Serif" FontSize = 8 BackStyle = 0 Caption = "0%" Height = 13 Left = 196 Top = 50 Width = 16 Name = "lblPercentage" label label lblPercentage2 thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 0,0,255 BackStyle = 0 Caption = "Label1" ForeColor = 255,255,255 Height = 13 Left = 196 Top = 50 Width = 0 Name = "lblPercentage2" thermometer Class ..\wzimport\ ..\wzimport\ Pixels Pixels thermometer ScaleMode = 3 Top = 215 Left = 127 Height = 51 Width = 386 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "" Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') Name = "thermometer" PROCEDURE Init * 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) * BugBug: this isn't firing correctly anyway, so disable for time being * this.tmrThermTimer.Interval = ; iif(empty(m.iInterval),500,m.iInterval) this.tmrThermTimer.Interval = 0 && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. this.Height = 75 this.Width = 410 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. ENDPROC 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=max(0,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 CWINTITLE CTITLE IBASIS IINTERVAL CAPTION LBLTITLE TMRTHERMTIMER INTERVAL HEIGHT WIDTH MOVABLE 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 Init, completeg update settitle c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx 86, 2:vgadib.3gr,, 2:vgalogo pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle go, 2: label 2:vgadib.3gr,, 2:vgalogo.rle, svga768s labelv7vga.drv, "Video 7 (512K, 640x480 256 colors)", lblTitle thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 10 Width = 373 WordWrap = .F. Name = "lblTitle" label label lblTask thermometer.20,120",, 2:vgalogo.lgo, 2:v7vdd.386, 2 FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 27 Width = 373 WordWrap = .F. Name = "lblTask" timerrle, v7f xga16 = 2:vga.drv, "XGA (640x480, timer "100,96,96", , 2:vgalogo.lg tmrThermTimer2:vga30.3gr,, 2:vgalogo.rle thermometer. "XGA (small fonts)", RTop = 4 Left = 4 Height = 23 Width = 26 Interval = 0 Name = "tmrThermTimer" ogo.rle, xgasm xgalg = 2:xga.drv, -PROCEDURE Timer thisform.Update ENDPROC "100,120,1 THISFORM UPDATE Timer, c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx shapey.old] ; This section contains the names of all th shapeIN,NAME,SALUTE,ADDR1,INST,ADDR2,CITY,ST,ZIP,SHIP_AD Shape5C,PHONE,GEOGRAPHIC,INTEREST,PRIORITY,MISC,CODE2,FA thermometer.LLBACK,ISMEMO,CU_SIGN "Z1385","","","",""," OBackStyle = 0 Height = 23 Left = 16 Top = 45 Width = 378 Name = "Shape5" us","","Media Center","Lansing School Dis shapeest Kalamazoo Street","Lasning","MI","48915",F,F,"" shape0,"","","","","", ,F,0 "S0931","","Jim Davis shpThermBarll State","","Bubbaville","MI","48933-9999",F thermometer."","","","","", ,F,0 "","IF","","","" BackColor = 0,0,128 BackStyle = 1 BorderStyle = 0 FillColor = 0,0,128 FillStyle = 0 Height = 22 Left = 17 Top = 46 Width = 0 Name = "shpThermBar" ","","","","", ,F,0 labelm Davis","","400 S. Washington Sq","Black Box",""," label,"48933",F,F,"","","","",0,"","","","","", , lblPercentageavis","","","Paramount Pictures","","Hollyw thermometer.F,"","","","",0,"","","","","", ,F,0 FontName = "MS Sans Serif" FontSize = 8 BackStyle = 0 Caption = "0%" Height = 13 Left = 196 Top = 50 Width = 16 Name = "lblPercentage" ,"","", ,F,0 "A0006","","Bubba Bu labela","","","","Lansing","MI","48915",F,T,"517","37220 labelA/EC/ /",3000,"","","","","", ,F,0 "A0007", lblPercentage2i","","","","","Bologna","","01000",F,F,"" thermometer.,"","", ,F,0 "U0001","","Karen Sayers FontName = "MS Sans Serif" FontSize = 8 BackColor = 0,0,255 BackStyle = 0 Caption = "Label1" ForeColor = 255,255,255 Height = 13 Left = 196 Top = 50 Width = 0 Name = "lblPercentage2" iety","","Lansing","MI","48933",T,T,"517","","","",100 thermometer", ,F,0 "E0002","","Jill Maron","","P. form","Film Front","","New York","NY","10003",T,T,"","", 800000,"","","","","", ,F,0 "E0003","","Linda For ClassO. Box 91002","Front for Film","","New York","NY"," ..\wzimport\"",0,"","","","","", ,F,0 "E0004","", ..\wzimport\ent Services Building","Michigan State Unive Pixelst Lansing","MI","48824",T,T,"517","","","",0,"","" thermometerF,0 "E0005","","Jim Davis","","","Frontline C sprtherm.vcxStreet","Lansing","MI","48912",F,F,"","","", form","","","", ,F,0 "E0006","","Wanda Wasten","" Pixelsunity College","Society for Good Movies","420 S. C therm2ansing","MI","48933",T,T,"","","","",2000,"","","" sScaleMode = 3 Top = 165 Left = 127 Height = 150 Width = 386 Caption = "" Visible = .T. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') ccurrenttask2 = ('') ibasis2 = (0) ipercentage2 = (0) iprogress2 = (0) Name = "therm2" lblTitle.BackStyle = 1 lblTitle.Caption = "" lblTitle.Left = 8 lblTitle.Top = 83 lblTitle.Visible = .T. lblTask.BackStyle = 1 lblTask.Caption = "" lblTask.Left = 8 lblTask.Top = 106 tmrThermTimer.Top = 7 tmrThermTimer.Left = 4 Shape5.Left = 6 Shape5.Top = 124 shpThermBar.FillColor = 0,0,128 shpThermBar.Left = 7 shpThermBar.Top = 125 lblPercentage.BackStyle = 0 lblPercentage.Caption = "0%" lblPercentage.Left = 186 lblPercentage.Top = 129 lblPercentage2.BackStyle = 0 lblPercentage2.Caption = "Label1" lblPercentage2.Left = 186 lblPercentage2.Top = 129 Broad PROCEDURE Init 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) && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. *- ???? this.Height = 150 this.Width = 386 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. 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=max(0,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 ese font entries if they exist beca CWINTITLE CTITLE IBASIS IINTERVAL CTITLE2 IBASIS2 THERMOMETER THIS LBLTITLE2 CAPTION HEIGHT WIDTH MOVABLE 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 Init, update2c complete2 settitle2 c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx win.ini, Compatibility,"E Wccurrenttask2 ibasis2 ipercentage2 iprogress2 *update2 *complete2 *settitle2 RIA=0x0100" win.ini, Compatibi shape, "EXCEL=0x1000" win.ini, Compatibility,"GUIDE=" shape00" win.ini, Compatibility,"NETSET2=", "NETSET2= shpThermBox2Compatibility,"W4GL=", "W4GL=0x4000" win. therm2.ity,"W4GLR=","W4GLR=0x4000" win.ini, Compatibi TBackStyle = 0 Height = 23 Left = 8 Top = 47 Width = 378 Name = "shpThermBox2" "RingIn=ringin.wav,Chat Incoming R shapelobber win.ini , Sounds, "RingOut=" shapeingOut=ringout.wav,Chat Outgoing Ring" ,noclobber shpThermBar2ork, "DefaultDialogs=" ; defaults to pu therm2.g messages win.ini, windows, "NetMessage=", "N BackColor = 0,0,128 BorderStyle = 0 FillColor = 0,0,128 FillStyle = 0 Height = 22 Left = 9 Top = 48 Width = 0 Name = "shpThermBar2" win.ini, devices, "Micr labelcal Fax=" [system] ; The various SYSTEM.DRV, SO label.DRV ; These are the drivers which may va lblTask2o system, ; but are selected only by the [mac therm2.hey do not have ; special menus for their sele oFontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 AutoSize = .F. BackColor = 192,192,192 BackStyle = 1 BorderStyle = 0 Caption = "" DragIcon = DragMode = 0 ForeColor = 0,0,0 Height = 16 HelpContextID = 0 Left = 10 MousePointer = 0 Tag = "" Top = 24 Visible = .T. Width = 373 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" Name = "lblTask2" 4 label 6 7 8 9 10 labelstr = Desc Str, System drv, kbd drv, kbd type, lblTitle2 713 714 715 therm2. nFontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 AutoSize = .F. BackColor = 192,192,192 BackStyle = 1 BorderStyle = 0 Caption = "" DragIcon = DragMode = 0 ForeColor = 0,0,0 Height = 16 HelpContextID = 0 Left = 8 MousePointer = 0 Tag = "" Top = 7 Visible = .T. Width = 373 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" Name = "lblTitle2" d,comm,,eb labelokz ncr_386sx = "NCR: all 80386 and 80486 ba label,system,kbd,t4s0enha,nomouse,vga,sound,comm,,ebios, lblPercentage3_sx+ = "NEC PowerMate SX Plus",system therm2.omouse,vga,sound,comm,,ebios,nec_pm_cookz nec_pr wFontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 AutoSize = .F. BackColor = 255,255,255 BackStyle = 0 BorderStyle = 0 Caption = "0%" DragIcon = DragMode = 0 ForeColor = 0,0,0 Height = 13 HelpContextID = 0 Left = 186 MousePointer = 0 Tag = "" Top = 53 Visible = .T. Width = 16 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" Name = "lblPercentage3" labelm with APM",system,kbd,t4s0enha,nomouse,vga,sound,c labelm_sl_cookz ; Cookies as specified in machine lblPercentage4, section, cookie, needed file ; speci therm2. will add an installable driver to [boot]drivers= |FontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 AutoSize = .F. BackColor = 0,0,255 BackStyle = 0 BorderStyle = 0 Caption = "Label1" DragIcon = DragMode = 0 ForeColor = 255,255,255 Height = 13 HelpContextID = 0 Left = 186 MousePointer = 0 Tag = "" Top = 53 Visible = .T. Width = 0 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" Name = "lblPercentage4" xclude=E000-EFFF", system.ini,386enh,"emmexclude=C600-C7FF" therm2ookz] system.ini,386enh,"VirtualHDirq=NO", thermometerini,386enh,"emmexclude=C000-C7FF", [zen386 7system.ini,386enh,"emmexclude=E000-EFFF", [special_a Classerlink = DMAbuffersize,32 ; Needed if Eit samples\tected. [ebios] ebios = x:*ebios samples\red for most 386 machines. hpebios = 2:hpeb Pixelsos ; Required for HP 386 machines. ; Languag thermometerlled for non US installation. ; profile = sprtherm.vcxescription, language ID (ilanguage) form= 2:langsca.dll, "Danish" Pixels= 2:langdut.dll, "Dutch" therm2u = , "English (American)" sScaleMode = 3 Top = 165 Left = 127 Height = 150 Width = 386 Caption = "" Visible = .T. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') ccurrenttask2 = ('') ibasis2 = (0) ipercentage2 = (0) iprogress2 = (0) Name = "therm2" lblTitle.BackStyle = 1 lblTitle.Caption = "" lblTitle.Left = 8 lblTitle.Top = 83 lblTitle.Visible = .T. lblTask.BackStyle = 1 lblTask.Caption = "" lblTask.Left = 8 lblTask.Top = 106 tmrThermTimer.Top = 7 tmrThermTimer.Left = 4 Shape5.Left = 6 Shape5.Top = 124 shpThermBar.FillColor = 0,0,128 shpThermBar.Left = 7 shpThermBar.Top = 125 lblPercentage.BackStyle = 0 lblPercentage.Caption = "0%" lblPercentage.Left = 186 lblPercentage.Top = 129 lblPercentage2.BackStyle = 0 lblPercentage2.Caption = "Label1" lblPercentage2.Left = 186 lblPercentage2.Top = 129 1:s PROCEDURE Init 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) && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. *- ???? this.Height = 150 this.Width = 386 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. 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=max(0,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 CWINTITLE CTITLE IBASIS IINTERVAL CTITLE2 IBASIS2 THERMOMETER THIS LBLTITLE2 CAPTION HEIGHT WIDTH MOVABLE 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 Init, update2c complete2 settitle2 c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx Wccurrenttask2 ibasis2 ipercentage2 iprogress2 *update2 *complete2 *settitle2 shape shapeB0 shpThermBox2R therm2. TBackStyle = 0 Height = 23 Left = 8 Top = 47 Width = 378 Name = "shpThermBox2" shape0 shape shpThermBar2*WINDOWS _QVX17YL6V 495821778 2169 therm2. 2168 2001 202 BackColor = 0,0,128 BorderStyle = 0 FillColor = 0,0,128 FillStyle = 0 Height = 22 Left = 9 Top = 48 Width = 0 Name = "shpThermBar2" WINDOWS _QVX17YKZ2 495821778 2069 label 2070 2071 2072 2073 label lblTask2 therm2. WINDOWS _QVX17YL04 495821778 207 oFontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 AutoSize = .F. BackColor = 192,192,192 BackStyle = 1 BorderStyle = 0 Caption = "" DragIcon = DragMode = 0 ForeColor = 0,0,0 Height = 16 HelpContextID = 0 Left = 10 MousePointer = 0 Tag = "" Top = 24 Visible = .T. Width = 373 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" Name = "lblTask2" labelL labell7 lblTitle2} therm2. nFontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 AutoSize = .F. BackColor = 192,192,192 BackStyle = 1 BorderStyle = 0 Caption = "" DragIcon = DragMode = 0 ForeColor = 0,0,0 Height = 16 HelpContextID = 0 Left = 8 MousePointer = 0 Tag = "" Top = 7 Visible = .T. Width = 373 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" Name = "lblTitle2" label label lblPercentage3 therm2. wFontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 AutoSize = .F. BackColor = 255,255,255 BackStyle = 0 BorderStyle = 0 Caption = "0%" DragIcon = DragMode = 0 ForeColor = 0,0,0 Height = 13 HelpContextID = 0 Left = 186 MousePointer = 0 Tag = "" Top = 53 Visible = .T. Width = 16 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" Name = "lblPercentage3" label labelt lblPercentage4 therm2. |FontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 AutoSize = .F. BackColor = 0,0,255 BackStyle = 0 BorderStyle = 0 Caption = "Label1" DragIcon = DragMode = 0 ForeColor = 255,255,255 Height = 13 HelpContextID = 0 Left = 186 MousePointer = 0 Tag = "" Top = 53 Visible = .T. Width = 0 WordWrap = .F. ReleaseErase = .F. BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" Name = "lblPercentage4" therm2 thermometer 7 Class_QVX18IOMG 495822279 2615 2616 samples\618 2619 samples\ Pixels formOWS _QVX18IOP9 495822279 2651 26 form 2654 2655 2682 2695 Pixels thermometer ScaleMode = 3 Top = 215 Left = 127 Height = 51 Width = 386 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "" Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') Name = "thermometer" PROCEDURE Init * 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) * BugBug: this isn't firing correctly anyway, so disable for time being * this.tmrThermTimer.Interval = ; iif(empty(m.iInterval),500,m.iInterval) this.tmrThermTimer.Interval = 0 && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. this.Height = 75 this.Width = 410 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. ENDPROC 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=max(0,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 CWINTITLE CTITLE IBASIS IINTERVAL CAPTION LBLTITLE TMRTHERMTIMER INTERVAL HEIGHT WIDTH MOVABLE 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 Init, completeg update settitle c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle label label lblTitle thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 10 Width = 373 WordWrap = .F. Name = "lblTitle" label label lblTask thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 27 Width = 373 WordWrap = .F. Name = "lblTask" timer timer tmrThermTimer thermometer. RTop = 4 Left = 4 Height = 23 Width = 26 Interval = 0 Name = "tmrThermTimer" -PROCEDURE Timer thisform.Update ENDPROC THISFORM UPDATE Timer, c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx shape shape Shape5 thermometer.E OBackStyle = 0 Height = 23 Left = 16 Top = 45 Width = 378 Name = "Shape5" shapeU shape shpThermBar thermometer. BackColor = 0,0,0 BackStyle = 1 BorderStyle = 0 FillColor = 0,0,128 FillStyle = 0 Height = 22 Left = 17 Top = 46 Width = 0 Name = "shpThermBar" label label lblPercentage thermometer.j FontName = "MS Sans Serif" FontSize = 8 BackStyle = 0 Caption = "0%" Height = 13 Left = 196 Top = 50 Width = 16 Name = "lblPercentage" label label lblPercentage2 thermometer. "Classification" Courie FontName = "MS Sans Serif" FontSize = 8 BackColor = 0,0,255 BackStyle = 0 Caption = "Label1" ForeColor = 255,255,255 Height = 13 Left = 196 Top = 50 Width = 0 Name = "lblPercentage2" "Title" thermometer "Mins formNew 8rier New "Rtg" Classer New ..\wzimport\w ..\wzimport\New "Catno" PixelsCourier New title Courier New duration Courier New xquality Pixels Courier New rating thermometer Courier New ScaleMode = 3 Top = 215 Left = 127 Height = 51 Width = 386 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "" Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') Name = "thermometer" Courier New PROCEDURE Init * 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) * BugBug: this isn't firing correctly anyway, so disable for time being * this.tmrThermTimer.Interval = ; iif(empty(m.iInterval),500,m.iInterval) this.tmrThermTimer.Interval = 0 && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. this.Height = 75 this.Width = 410 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. ENDPROC 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=max(0,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 CWINTITLE CTITLE IBASIS IINTERVAL CAPTION LBLTITLE TMRTHERMTIMER INTERVAL HEIGHT WIDTH MOVABLE 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 Init, completeg update settitle c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle labelP label lblTitleM thermometer.- FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 10 Width = 373 WordWrap = .F. Name = "lblTitle" label labelh 8Qu6@ lblTask thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 27 Width = 373 WordWrap = .F. Name = "lblTask" timer timer tmrThermTimer thermometer. RTop = 4 Left = 4 Height = 23 Width = 26 Interval = 0 Name = "tmrThermTimer" -PROCEDURE Timer thisform.Update ENDPROC THISFORM UPDATE Timer, c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx shape Times New Roman shape Times New Roman Shape5 Customer.inst thermometer. Courier New OBackStyle = 0 Height = 23 Left = 16 Top = 45 Width = 378 Name = "Shape5" Customer.city shape" Courier New shapeneva nDone shpThermBar Done" "Done" thermometer.a BackColor = 0,0,128 BackStyle = 1 BorderStyle = 0 FillColor = 0,0,128 FillStyle = 1 Height = 22 Left = 17 Top = 46 Width = 0 Name = "shpThermBar" nBack label "@*HN3 <<" 4IF !BOF( labelELSE GO TOP ENDIF SHOW GETS lblPercentage Geneva thermometer. Courier New FontName = "MS Sans Serif" FontSize = 8 BackStyle = 0 Caption = "0%" Height = 13 Left = 196 Top = 50 Width = 16 Name = "lblPercentage" labelV fPVfPV label lblPercentage2 thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 0,0,255 BackStyle = 0 Caption = "Label1" ForeColor = 255,255,255 Height = 13 Left = 196 Top = 50 Width = 0 Name = "lblPercentage2" thermometer Class ..\wzimport\ ..\wzimport\ Pixels Pixels thermometer ScaleMode = 3 Top = 215 Left = 127 Height = 51 Width = 386 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "" Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') Name = "thermometer" PROCEDURE Init * 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) * BugBug: this isn't firing correctly anyway, so disable for time being * this.tmrThermTimer.Interval = ; iif(empty(m.iInterval),500,m.iInterval) this.tmrThermTimer.Interval = 0 && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. this.Height = 75 this.Width = 410 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. ENDPROC 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=max(0,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 JOINLINES CWINTITLE CTITLE IBASIS IINTERVAL CAPTION LBLTITLE TMRTHERMTIMER INTERVAL HEIGHT WIDTH MOVABLE 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 Init, completeg update settitle c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle label label lblTitle thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 10 Width = 373 WordWrap = .F. Name = "lblTitle" label label5 lblTask thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 27 Width = 373 WordWrap = .F. Name = "lblTask" timer timer tmrThermTimer thermometer.= RTop = 4 Left = 4 Height = 23 Width = 26 Interval = 0 Name = "tmrThermTimer" FLDCONTENT FRMCONTENT VERTPOS -PROCEDURE Timer thisform.Update ENDPROC NGREEN THISFORM UPDATE Timer, c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx shapeCODEPAGE G_FROMCODEPAGE BOXCHAR TOTALTYPE RESET shapeAT STRETCH FILLCHAR PAGEBREAK SWAPHEADER Shape5 thermometer. OBackStyle = 0 Height = 23 Left = 16 Top = 45 Width = 378 Name = "Shape5" shape shape shpThermBar thermometer. BackColor = 0,0,128 BackStyle = 1 BorderStyle = 0 DrawMode = 12 FillColor = 0,0,128 FillStyle = 0 Height = 22 Left = 17 Top = 46 Width = 0 Name = "shpThermBar" label label lblPercentageT thermometer. FontName = "MS Sans Serif" FontSize = 8 BackStyle = 0 Caption = "0%" Height = 13 Left = 196 Top = 50 Width = 16 Name = "lblPercentage" label label lblPercentage2 thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 0,0,255 BackStyle = 0 Caption = "Label1" ForeColor = 255,255,255 Height = 13 Left = 196 Top = 50 Width = 0 Name = "lblPercentage2" thermometer Class ..\wzimport\ ..\wzimport\ Pixels Pixels thermometer ScaleMode = 3 Top = 215 Left = 127 Height = 51 Width = 386 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "" Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') Name = "thermometer" PROCEDURE Init * 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) * BugBug: this isn't firing correctly anyway, so disable for time being * this.tmrThermTimer.Interval = ; iif(empty(m.iInterval),500,m.iInterval) this.tmrThermTimer.Interval = 0 && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. this.Height = 75 this.Width = 410 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. ENDPROC 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=max(0,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 CWINTITLE CTITLE IBASIS IINTERVAL CAPTION LBLTITLE TMRTHERMTIMER INTERVAL HEIGHT WIDTH MOVABLE 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 Init, completeg update settitle c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle label label lblTitle thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 10 Width = 373 WordWrap = .F. Name = "lblTitle" label label lblTask thermometer.t FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 27 Width = 373 WordWrap = .F. Name = "lblTask" timerM timer tmrThermTimerH thermometer. RTop = 4 Left = 4 Height = 23 Width = 26 Interval = 0 Name = "tmrThermTimer" -PROCEDURE Timer thisform.Update ENDPROC THISFORM UPDATE Timer, c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx shape shape Shape5! thermometer. OBackStyle = 0 Height = 23 Left = 16 Top = 45 Width = 378 Name = "Shape5" shape shape shpThermBar thermometer. BackColor = 0,0,128 BackStyle = 1 BorderStyle = 0 DrawMode = 13 FillColor = 0,0,128 FillStyle = 0 Height = 22 Left = 17 Top = 46 Width = 0 Name = "shpThermBar" label label lblPercentage thermometer. FontName = "MS Sans Serif" FontSize = 8 BackStyle = 0 Caption = "0%" Height = 13 Left = 196 Top = 50 Width = 16 Name = "lblPercentage" label label "..\BMPSPRGS\SMALDISK.BMP" lblPercentage2 "..\BMPSPRGS\SMALDISK.BM thermometer. MS Sans Serif FontName = "MS Sans Serif" FontSize = 8 BackColor = 0,0,255 BackStyle = 0 Caption = "Label1" ForeColor = 255,255,255 Height = 13 Left = 196 Top = 50 Width = 0 Name = "lblPercentage2" "Category" "..\BMPSPRGS\C thermometerMS Sans Serif "Title" MS Sans Serif "Year" MS Sans Serif "Comment Class MS Sans Serif "Price ..\wzimport\ MS Sans Serif ..\wzimport\ MS Sans Serif Pixels MS Sans Serif MS Sans Serif form" MS Sans Serif Pixels MS Sans Serif thermometer MS Sans Serif ScaleMode = 3 Top = 215 Left = 127 Height = 51 Width = 386 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "" Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') Name = "thermometer" laser.year "@KZ" PROCEDURE Init * 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) * BugBug: this isn't firing correctly anyway, so disable for time being * this.tmrThermTimer.Interval = ; iif(empty(m.iInterval),500,m.iInterval) this.tmrThermTimer.Interval = 0 && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. this.Height = 75 this.Width = 410 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. ENDPROC 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=max(0,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 CWINTITLE CTITLE IBASIS IINTERVAL CAPTION LBLTITLE TMRTHERMTIMER INTERVAL HEIGHT WIDTH MOVABLE 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 Init, completeg update settitle c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx LATFORM G_TOPLATFORM UNIQUEID pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle label> labelU LBXNUMACROSS LBXLMARGIN LBXSPACESBET LBXLIN lblTitle ADDGRAPHICALLABELGROUPS OBJTYPE OBJCODE thermometer.REAK RESETPAGE PENBLUE FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 10 Width = 373 WordWrap = .F. Name = "lblTitle" labelM G_CHAR2GRPH RULER RULERLINES GRIDV label lblTask thermometer.T FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 27 Width = 373 WordWrap = .F. Name = "lblTask" XSPACES timerBET LBXHEIGHT TIMESTAMP G_FILETYPE OBJTYPE timerIN SPACESBET LINESBET HEIGHT MAKECURSOR UPDATE tmrThermTimerJECT STAMPVAL PLATFORMDEFAULTS UPDATEVER thermometer. RTop = 4 Left = 4 Height = 23 Width = 26 Interval = 0 Name = "tmrThermTimer" OBJCODE -PROCEDURE Timer thisform.Update ENDPROC THISFORM UPDATE Timer, c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx shape DATEVAL TIMEVAL SHIFTL SHIFTRZ shape Shape5 VALUE TIMES LOOP\ thermometer. OBackStyle = 0 Height = 23 Left = 16 Top = 45 Width = 378 Name = "Shape5" shape PLATFORM shapeNALIASD shpThermBar screen thermometer.t label BackColor = 0,0,128 BackStyle = 0 BorderStyle = 0 DrawMode = 13 FillColor = 0,0,128 FillStyle = 0 Height = 22 Left = 17 Top = 46 Width = 0 Name = "shpThermBar" label labelnverter lblPercentage thermometer. Converter FontName = "MS Sans Serif" FontSize = 8 BackStyle = 0 Caption = "0%" Height = 13 Left = 196 Top = 50 Width = 16 Name = "lblPercentage" label label Sans Serif "Min." lblPercentage2erif "Features" thermometer.ns Serif "Order" FontName = "MS Sans Serif" FontSize = 8 BackColor = 0,0,255 BackStyle = 0 Caption = "Label1" ForeColor = 255,255,255 Height = 13 Left = 196 Top = 50 Width = 0 Name = "lblPercentage2" MS Sans Serif "Laser D thermometer MS Sans Serif laser. laser.year Class MS Sans Serif ..\wzimport\ ..\wzimport\ stars(critics) Pixelsrif laser.rating "@^ NR;G;PG;PG-13;R;X;NC- MS Sans Serif Pixels laser.descript thermometer Serif laser.ncat ScaleMode = 3 Top = 215 Left = 127 Height = 51 Width = 386 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "" Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') Name = "thermometer" MS Sans Serif laser PROCEDURE Init * 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) * BugBug: this isn't firing correctly anyway, so disable for time being * this.tmrThermTimer.Interval = ; iif(empty(m.iInterval),500,m.iInterval) this.tmrThermTimer.Interval = 0 && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. this.Height = 75 this.Width = 410 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. ENDPROC 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=max(0,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 CWINTITLE CTITLE IBASIS IINTERVAL CAPTION LBLTITLE TMRTHERMTIMER INTERVAL HEIGHT WIDTH MOVABLE 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 Init, completeg update settitle c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle label label lblTitle thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 10 Width = 373 WordWrap = .F. Name = "lblTitle" label label lblTask thermometer. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 27 Width = 373 WordWrap = .F. Name = "lblTask" timer timer tmrThermTimer thermometer. RTop = 4 Left = 4 Height = 23 Width = 26 Interval = 0 Name = "tmrThermTimer" -PROCEDURE Timer thisform.Update ENDPROC THISFORM UPDATE Timer, c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx shape shape Shape5 thermometer. OBackStyle = 0 Height = 23 Left = 16 Top = 45 Width = 378 Name = "Shape5" shape shape shpThermBar thermometer. BackColor = 0,0,128 BackStyle = 1 BorderStyle = 0 DrawMode = 13 FillColor = 0,0,128 FillStyle = 0 Height = 22 Left = 17 Top = 46 Width = 0 Name = "shpThermBar" label label lblPercentage thermometer. FontName = "MS Sans Serif" FontSize = 8 BackStyle = 0 Caption = "0%" Height = 13 Left = 196 Top = 50 Width = 16 Name = "lblPercentage" label label "@*C Digital audio" laser.suppleme lblPercentage2C Supplements" laser.subtit thermometer. "@*C Subtitled" FontName = "MS Sans Serif" FontSize = 8 BackColor = 0,0,255 BackStyle = 0 Caption = "Label1" ForeColor = 255,255,255 Height = 13 Left = 196 Top = 50 Width = 0 Name = "lblPercentage2" "@*C Dubbed" thermometer titlelist PRIVATE rec SET ORDER TO TIT 8titlelist(thistitle) rec = RECNO() IF UPPER(ord) # "T Classd = "Record#" SET ORDER TO ELSE SET ORDER T ..\wzimport\ rec ENDIF _CUROBJ = OBJNUM(TITLE) SHOW G ..\wzimport\ Pixelss 0"@^ Record#;Title;Cat formuality;Critics" XIF ord = "Record#" formTO SET ORDER TO (ord) ENDIF GO TOP SHOW G Pixels "Record#" recno() thermometer9,999" * This is a c ScaleMode = 3 Top = 215 Left = 127 Height = 51 Width = 386 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "" Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') Name = "thermometer" "Top" PROCEDURE Init * 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) * BugBug: this isn't firing correctly anyway, so disable for time being * this.tmrThermTimer.Interval = ; iif(empty(m.iInterval),500,m.iInterval) this.tmrThermTimer.Interval = 0 && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. this.Height = 75 this.Width = 410 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. ENDPROC 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=max(0,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 Unique Debug CWINTITLE CTITLE IBASIS IINTERVAL CAPTION LBLTITLE TMRTHERMTIMER INTERVAL HEIGHT WIDTH MOVABLE 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 Init, completeg update settitle c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx during compaction. Foreign node found pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle andle. labelem memory error. This beta version has expired. labelerError() was called. Procedure cancelled. Too many lblTitlenot open file. Cannot create file. Illegal seek thermometer.ror. File write error. Invalid key length. FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 10 Width = 373 WordWrap = .F. Name = "lblTitle" id ope labelRSOR. Too many indexes. Wrong length key. Index fil labeltch table. No table is open. File does not exist. lblTasksts. Table is not ordered. Not a table. Key is to thermometer.ion is too big. Record is too long. FOR/WHIL FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Caption = "" Height = 16 Left = 18 Top = 27 Width = 373 WordWrap = .F. Name = "lblTask" the ind timermust be in the selected table. End of file encounte timerg of file encountered. ALIAS not found. Buffer dead tmrThermTimer a logical expression. FILTER expression is thermometer.zed index file revision. Please recreate in RTop = 4 Left = 4 Height = 23 Width = 26 Interval = 0 Name = "tmrThermTimer" uing LOCATE. Must be a character or nu -PROCEDURE Timer thisform.Update ENDPROC table is al THISFORM UPDATE Timer, c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx shapeield names. Cannot update the file. No fields to pr shapec overflow. Data was lost. Too many records to BROW Shape5the demo version. Procedure '%s' not found. BROWSE thermometer.OWSE structure has changed. %s is not relate OBackStyle = 0 Height = 23 Left = 16 Top = 45 Width = 378 Name = "Shape5" ate file %s. File '%s' does not exist. shapeemory variable. '%s' is not a file variable. '%s' i shapey. Alias '%s' not found. Application file '%s' not shpThermBart placed in memory with LOAD. Insufficient me thermometer.ignature. Bad .LIB file. Internal .LIB undef BackColor = 0,0,0 BackStyle = 1 BorderStyle = 0 DrawMode = 13 FillColor = 0,0,128 FillStyle = 0 Height = 22 Left = 17 Top = 46 Width = 0 Name = "shpThermBar" mp call. label label lblPercentage + J g } thermometer.rror. Too many names used. Program is too la FontName = "MS Sans Serif" FontSize = 8 BackStyle = 0 Caption = "0%" Height = 13 Left = 196 Top = 50 Width = 16 Name = "lblPercentage" long. DO nesting is too deep. If/else/e label. Structure nesting too deep. Mismatched case struc label Nqiuk lblPercentage2 thermometer. {(fj0 FontName = "MS Sans Serif" FontSize = 8 BackColor = 0,0,255 BackStyle = 0 Caption = "Label1" ForeColor = 255,255,255 Height = 13 Left = 196 Top = 50 Width = 0 Name = "lblPercentage2" thermometerH form0A? LV_3idq Class2 ..\wzimport\ ..\wzimport\~ Pixelst Pixels, thermometer LFDU+# ScaleMode = 3 Caption = "" ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') Top = 215 Left = 127 Height = 51 Width = 386 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. Name = "thermometer" HERMBAR LBLPERCENTAGE2 CAPTION LBLTASK1 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=max(0,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 * 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) * BugBug: this isn't firing correctly anyway, so disable for time being * this.tmrThermTimer.Interval = ; iif(empty(m.iInterval),500,m.iInterval) this.tmrThermTimer.Interval = 0 && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. this.Height = 75 this.Width = 410 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. ENDPROC FontSize = 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 TMRTHERMTIMER INTERVAL HEIGHT WIDTH MOVABLE complete, updateI settitle c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle label label lblTitleSS2 CTASK CCURRENTTASK2 IBASIS2 IPERCE thermometer.H LBLPERCENTAGE3 FONTNAME FONTSIZE FONTB Caption = "" Top = 10 Left = 18 FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Height = 16 Width = 373 WordWrap = .F. Name = "lblTitle" label label &cThermRef = .NULL. lblTaskCONDS UPDATE2 IBASIS CTHERMREF THISFORM thermometer. CTITLE Caption = "" Top = 27 Left = 18 FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Height = 16 Width = 373 WordWrap = .F. Name = "lblTask" timer timer c:\convert\ sprtherm.vcx tmrThermTimerx thermometer. Wccurrenttask2 ibasis2 ipercentage2 RTop = 4 Left = 4 Height = 23 Width = 26 Interval = 0 Name = "tmrThermTimer" -PROCEDURE Timer thisform.Update ENDPROC THISFORM UPDATE Timer, c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx shape shape0 shape& shape Shape5 shpThermBar2*WINDOWS _QVX17YL6V 4958217 thermometer. therm2. 2168 2001 OTop = 45 Left = 16 BackStyle = 0 Height = 23 Width = 378 Name = "Shape5" samples\ label Pixels label formOWS _QVX18IOP9 495822279 2651 lblPercentage form 2654 2655 thermometer. Pixels Caption = "0%" Top = 50 Left = 196 FontName = "MS Sans Serif" FontSize = 8 BackStyle = 0 Height = 13 Width = 16 Name = "lblPercentage" AutoCenter = .T. BackColor = 192,192,1 labelle = 2 Caption = "" Closable = .F. ControlBox = labeln = .F. MinButton = .F. Movable = .F. Visible = lblPercentage2 ipercentage = (0) ibasis = (0) ccurren thermometer.ess = (0) shpthermbarmaxwidth = (377) Caption = "Label1" Top = 50 Left = 196 FontName = "MS Sans Serif" FontSize = 8 BackColor = 0,0,255 BackStyle = 0 ForeColor = 255,255,255 Height = 13 Width = 0 Name = "lblPercentage2" entage complete * m.iInterval is the frequency used f shapehe thermometer parameters cWinTitle, cTitle, iBa shapel THIS.caption = iif(empty(m.cWinTitle), "", m.c shpThermBarblTitle.Caption = iif(empty(m.cTitle),'',m.cT thermometer. iif(empty(m.iBasis),0,m.iBasis) * BugBug Top = 46 Left = 17 BackColor = 0,0,0 BackStyle = 1 BorderStyle = 0 DrawMode = 13 FillColor = 0,0,128 FillStyle = 0 Height = 22 Width = 0 Name = "shpThermBar" && BugBug: The thermometerike these dimensions and changes && Kah$B; Class ..\wzimport\ ..\wzimport\ PixelsAD formT=A Pixels{ thermometer ScaleMode = 3 Caption = "" ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (377) cthermref = ('') Top = 215 Left = 127 Height = 51 Width = 386 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. Name = "thermometer" 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=max(0,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 * 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) * BugBug: this isn't firing correctly anyway, so disable for time being * this.tmrThermTimer.Interval = ; iif(empty(m.iInterval),500,m.iInterval) this.tmrThermTimer.Interval = 0 && BugBug: The form tool doesn't like these dimensions and changes && them when it saves the form. this.Height = 75 this.Width = 410 && BugBug: these properties don't seem to work correctly when set in && Properties window * BugBug: Is this causing problem with Trace? * this.AlwaysOnTop = .t. this.Movable = .t. ENDPROC 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 TMRTHERMTIMER INTERVAL HEIGHT WIDTH MOVABLE complete, updateI settitle c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle label label lblTitle thermometer. Caption = "" Top = 10 Left = 18 FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Height = 16 Width = 373 WordWrap = .F. Name = "lblTitle" label label lblTask thermometer. Caption = "" Top = 27 Left = 18 FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 BackStyle = 1 Height = 16 Width = 373 WordWrap = .F. Name = "lblTask" timer timer tmrThermTimer thermometer. RTop = 4 Left = 4 Height = 23 Width = 26 Interval = 0 Name = "tmrThermTimer" -PROCEDURE Timer thisform.Update ENDPROC THISFORM UPDATE Timer, c:\convert\ sprtherm.vcx c:\convert\sprtherm.vcx shape shape Shape5 thermometer. OTop = 45 Left = 16 BackStyle = 0 Height = 23 Width = 378 Name = "Shape5" shape shape shpThermBar thermometer. Top = 46 Left = 17 BackColor = 0,0,0 BackStyle = 1 BorderStyle = 0 DrawMode = 13 FillColor = 0,0,128 FillStyle = 0 Height = 22 Width = 0 Name = "shpThermBar" label label lblPercentage thermometer. Caption = "0%" Top = 50 Left = 196 FontName = "MS Sans Serif" FontSize = 8 BackStyle = 0 Height = 13 Width = 16 Name = "lblPercentage" label label -(c9CC lblPercentage2 kE7H]J thermometer. Caption = "Label1" Top = 50 Left = 196 FontName = "MS Sans Serif" FontSize = 8 BackColor = 0,0,255 BackStyle = 0 ForeColor = 255,255,255 Height = 13 Width = 0 Name = "lblPercentage2" thermometer tTWra Class ..\wzimport\ ..\wzimport\ Pixels WZSBASENAME WZSEXTENSION WZLWITHMEMO WZSPATH WZSSTEM WZIWIDTH ADDBS JUSTPATH JUSTSTEM WZSAUTONAME FORCEEXTV EXACTv m.csrcfileb SET EXACT &oldexact Cannot open CC SET EXACT &oldexact dBASE IV Generic Design File Version 1.0 LBL|FRM SET EXACT &oldexact SET EXACT &oldexact SET EXACT &oldexact Unable to locate dBASE III format (.FMT) file. oConvObjectb 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 Converting file CC 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 OTHERM TEMPSTR OLDEXACT OLDALIAS FHANDLE FSIZE FALLDOWN JUSTFNAME ROOTNAME CPATHNAME JUSTSTEM JUSTPATH JUSTEXT LISTHERE NCTR9 CTMPEXT NOSHOW OCONVOBJECT FMTCONVERTERCLASS 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 OTHERM 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 CVTSTYLEU Visual FoxPro Converter 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 BITVALu exists. Overwrite it? Visual FoxPro Converter FILENAME NRESULT JUSTFNAME dump_band dmprapband gotofrmfld dumplayout falldown word2num}^ readstring xtrim@_ cvtstyleb` bits2colorqa isbitsetKc ok2nuke CATALOG error m.wzserror=ALLTRIM(STR(ERROR()))+' ('+MESSAGE()+')' ON ERROR &wzsonerror Error @1 occurred while creating m.wzserror=ALLTRIM(STR(ERROR()))+' ('+MESSAGE()+')' ON ERROR &wzsonerror Error @1 occurred while opening Error @1 occurred while opening WZSFNAME WZLLEAVEOPEN WZICODEPAGE WZSONERROR WZSERROR WZSPROMPT WZISELECT PUTNAME PATH FILE_NAME ALIAS TITLE FOX_FILE INDEXES WIZARD NEW30ALIAS CPTAG WZNERROR FXSETTYPE ADDFPCREC) FOX_FILE fpcnew, addfpcrec* m.cVarType = TYPE("&cValue[1]") m.nalen = ALEN(&cValue,1) array2 = &cValue[1] array2b m.lisarray = (TYPE([ALEN(&array2)]) <> 'U') array2 = &cValue[m.nctr2] m.ndimension = ALEN(&array2) FILTER|JOINS wzsHeader = wzsHeader + &array2[m.nctr3] + IIF(m.nctr3 < m.ndimension,";" ,"") wzsHeader = wzsHeader + &array2[m.nctr3] + "," FILTER|JOINS m.ndimension = ALEN(&cValue,2) IF m.ndimension > 1 AND !EMPTY(&cValue[m.nctr2,1]) FILTER|JOINS wzsHeader = wzsHeader + &cValue[m.nctr2,m.nctr3] + IIF(m.nctr3 < m.ndimension,";" ,"") wzsHeader = wzsHeader + &cValue[m.nctr2,m.nctr3] + "," FILTER|JOINS FILTER|JOINS wzsHeader = wzsHeader + "* " + wzaParms[m.nctr1,1] + " = " + &cValue[m.nctr2] wzsHeader = wzsHeader + &cValue[m.nctr2] + ";" DECIvZA WZSHEADER WZAPARMS LSEPARATE NCTR1 NCTR2 NCTR3 ARRAY ARRAY2 CVALUE LISARRAY NDIMENSION CVARTYPE NALEN 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 PutName, *- procedures & code to support navigation *- of migrated DB4 screen files. This code *- is copied to the PROCCODE memo field of *- the SCX file. #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 TABLE Table QUERY Query Screen REPORT Report LABEL Label PROGRAM Program CATALOG Catalog TABLE your table QUERY your query your screen REPORT your report LABEL your label PROGRAM your program The new screen REPORT The new report LABEL The new label TABLE Table Wizard QUERY Query Wizard Screen Wizard REPORT Report Wizard LABEL Label Wizard PROGRAM Program Wizard WZSTYPE WZIVARIATION LocWord, PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Class 16 WINDOWS _QVX14NZR8 495818572 763 762 761 760 755 WINDOWS _QVX14NZS5 495818572 754 753 752 751 719 WINDOWS _QVX14NZUT 495818572 718 717 716 715 688 675 665 WINDOWS _QVX17YKZ2 495821778 664 663 662 661 656 WINDOWS _QVX17YL04 495821778 655 654 653 652 620 WINDOWS _QVX17YL3I 495821778 619 618 617 616 589 576 566 WINDOWS _QVX1AE3FM 495824083 565 564 563 562 557 550 537 WINDOWS _QVX1AE3H7 495824083 536 535 534 533 528 WINDOWS _QVX1AE3IO 495824083 527 526 525 524 520 502 488 *WINDOWS _QVX1AMS21 495824300 308 487 486 309 461 430 408 306 307 406 305 *WINDOWS _QVX1AMRV8 495824300 405 404 403 402 397 *WINDOWS _QVX1AMRW9 495824300 396 395 394 393 361 *WINDOWS _QVX1AMRYZ 495824300 360 359 358 357 330 320 310 *WINDOWS _QVZ0O2TZS 495933889 194 304 303 195 281 192 193 191 *WINDOWS _QVZ0O2TV6 495933889 280 279 278 277 272 265 251 *WINDOWS _QVZ0O2TWU 495933889 250 249 248 247 242 *WINDOWS _QVZ0O2TY3 495933889 241 240 239 238 234 213 196 *WINDOWS _QVZ0S970W 495937885 23 190 24 180 178 169 21 22 18 19 17 *WINDOWS _QVZ0S96QC 495937884 168 167 166 165 147 129 114 *WINDOWS _QVZ0S96TX 495937884 113 112 111 110 93 90 81 *WINDOWS _QVZ0S96WN 495937885 80 79 78 77 72 *WINDOWS _QVZ0S96XK 495937885 71 70 69 68 64 48 34 *WINDOWS _QVZ0S96ZL 495937885 33 32 31 30 25 *WINDOWS _QWJ1B8TCU 505589841 880 765 766 879 769 882 881 883 *WINDOWS _QWJ1B8T8J 505589841 791 792 793 794 795 800 809 *WINDOWS _QWJ1B8TA4 505589841 824 825 826 827 828 *WINDOWS _QWJ1B8TB3 505589841 833 834 835 836 837 841 862 *WINDOWS _QWK0HV4DH 505627267 1059 885 1058 888 898 900 1061 1060 1064 1062 1065 *WINDOWS _QWK0HV3ZN 505627267 909 910 911 912 913 931 949 *WINDOWS _QWK0HV44F 505627267 964 965 966 967 968 985 990 *WINDOWS _QWK0HV48H 505627267 1002 1003 1004 1005 1006 *WINDOWS _QWK0HV49S 505627267 1011 1012 1013 1014 1015 1019 1035 *WINDOWS _QWK0HV4CB 505627267 1049 1050 1051 1052 1053 *WINDOWS _QWK0I0AR1 505627396 1246 1067 1245 1070 1080 1082 1248 1247 1251 1249 1252 *WINDOWS _QWK0I0AEI 505627396 1091 1092 1093 1094 1095 1113 1131 *WINDOWS _QWK0I0AI6 505627396 1146 1147 1148 1149 1150 1167 1174 *WINDOWS _QWK0I0AMC 505627396 1189 1190 1191 1192 1193 *WINDOWS _QWK0I0ANH 505627396 1198 1199 1200 1201 1202 1206 1222 *WINDOWS _QWK0I0APY 505627396 1236 1237 1238 1239 1240 *WINDOWS _QWK0IVC2V 505628168 1435 1254 1434 1257 1267 1269 1437 1436 1440 1438 1441 *WINDOWS _QWK0IVBQ3 505628168 1278 1279 1280 1281 1282 1300 1318 *WINDOWS _QWK0IVBTP 505628168 1333 1334 1335 1336 1337 1354 1362 *WINDOWS _QWK0IVBXK 505628168 1378 1379 1380 1381 1382 *WINDOWS _QWK0IVBYQ 505628168 1387 1388 1389 1390 1391 1395 1411 *WINDOWS _QWK0IVC1P 505628168 1425 1426 1427 1428 1429 *WINDOWS _QWK0J349F 505628361 1560 1443 1444 1559 1447 1562 1561 1563 *WINDOWS _QWK0J344K 505628361 1469 1470 1471 1472 1473 1478 1487 *WINDOWS _QWK0J346E 505628361 1502 1503 1504 1505 1506 *WINDOWS _QWK0J347I 505628361 1511 1512 1513 1514 1515 1519 1541 *WINDOWS _QWK0K892L 505629513 1691 1565 1566 1690 1569 1693 1692 1694 *WINDOWS _QWK0K88XS 505629513 1591 1592 1593 1594 1595 1600 1609 *WINDOWS _QWK0K88ZL 505629513 1624 1625 1626 1627 1628 *WINDOWS _QWK0K890M 505629513 1633 1634 1635 1636 1637 1641 1669 *WINDOWS _QWK0KDUBF 505629651 1885 1696 1697 1884 1700 1725 1756 1887 1886 1778 1888 *WINDOWS _QWK0KDU4O 505629651 1780 1781 1782 1783 1784 *WINDOWS _QWK0KDU5N 505629651 1789 1790 1791 1792 1793 *WINDOWS _QWK0KDU89 505629651 1825 1826 1827 1828 1829 1856 1871 *WINDOWS _QWK0KX79D 505630133 2073 1890 2072 1893 1903 1905 2075 2074 2078 2076 2079 *WINDOWS _QWK0KX6WG 505630132 1914 1915 1916 1917 1918 1937 1955 *WINDOWS _QWK0KX70V 505630133 1970 1971 1972 1973 1974 1991 1999 *WINDOWS _QWK0KX74O 505630133 2015 2016 2017 2018 2019 *WINDOWS _QWK0KX75V 505630133 2025 2026 2027 2028 2029 2033 2049 *WINDOWS _QWK0KX78B 505630133 2063 2064 2065 2066 2067 *WINDOWS _QWK0KY1H5 505630154 2211 2081 2082 2210 2085 2213 2212 2214 *WINDOWS _QWK0KY1C1 505630154 2110 2111 2112 2113 2114 2120 2129 *WINDOWS _QWK0KY1DW 505630154 2144 2145 2146 2147 2148 *WINDOWS _QWK0KY1EZ 505630154 2153 2154 2155 2156 2157 2161 2189 *WINDOWS _QWK0KZAN5 505630186 2411 2216 2217 2410 2220 2251 2282 2413 2412 2304 2414 *WINDOWS _QWK0KZAG7 505630185 2306 2307 2308 2309 2310 *WINDOWS _QWK0KZAH6 505630185 2315 2316 2317 2318 2319 *WINDOWS _QWK0KZAJZ 505630185 2351 2352 2353 2354 2355 2382 2397 *WINDOWS _QWK0L94MM 505630429 2611 2416 2417 2610 2420 2451 2482 2613 2612 2504 2614 *WINDOWS _QWK0L94FA 505630429 2506 2507 2508 2509 2510 *WINDOWS _QWK0L94G9 505630429 2515 2516 2517 2518 2519 *WINDOWS _QWK0L94IT 505630429 2551 2552 2553 2554 2555 2582 2597 *WINDOWS _QWK0LFJJS 505630588 2811 2616 2617 2810 2620 2651 2682 2813 2812 2704 2814 *WINDOWS _QWK0LFJCW 505630588 2706 2707 2708 2709 2710 *WINDOWS _QWK0LFJDX 505630588 2715 2716 2717 2718 2719 *WINDOWS _QWK0LFJGL 505630588 2751 2752 2753 2754 2755 2782 2797 *WINDOWS _QWL0IMBH5 505693480 2999 2816 2998 2819 2829 2831 3001 3000 3004 3002 3005 *WINDOWS _QWL0IMB3I 505693479 2840 2841 2842 2843 2844 2863 2881 *WINDOWS _QWL0IMB7I 505693480 2896 2897 2898 2899 2900 2917 2925 *WINDOWS _QWL0IMBCA 505693480 2941 2942 2943 2944 2945 *WINDOWS _QWL0IMBDF 505693480 2951 2952 2953 2954 2955 2959 2975 *WINDOWS _QWL0IMBG5 505693480 2989 2990 2991 2992 2993 *WINDOWS _QWL0INPY4 505693514 3137 3007 3008 3136 3011 3139 3138 3140 *WINDOWS _QWL0INPTD 505693514 3036 3037 3038 3039 3040 3046 3055 *WINDOWS _QWL0INPV3 505693514 3070 3071 3072 3073 3074 *WINDOWS _QWL0INPW5 505693514 3079 3080 3081 3082 3083 3087 3115 *WINDOWS _QWL0IOGSR 505693532 3272 3142 3143 3271 3146 3274 3273 3275 *WINDOWS _QWL0IOGNB 505693532 3171 3172 3173 3174 3175 3181 3190 *WINDOWS _QWL0IOGPX 505693532 3205 3206 3207 3208 3209 *WINDOWS _QWL0IOGQV 505693532 3214 3215 3216 3217 3218 3222 3250 *WINDOWS _QWL0IPRQF 505693564 3471 3277 3278 3470 3281 3311 3342 3473 3472 3364 3474 *WINDOWS _QWL0IPRJ6 505693564 3366 3367 3368 3369 3370 *WINDOWS _QWL0IPRKF 505693564 3375 3376 3377 3378 3379 *WINDOWS _QWL0IPRN7 505693564 3411 3412 3413 3414 3415 3442 3457 *WINDOWS _QWL0IQT2G 505693590 3606 3476 3477 3605 3480 3608 3607 3609 *WINDOWS _QWL0IQSXS 505693590 3505 3506 3507 3508 3509 3515 3524 *WINDOWS _QWL0IQSZK 505693590 3539 3540 3541 3542 3543 *WINDOWS _QWL0IQT0L 505693590 3548 3549 3550 3551 3552 3556 3584 *WINDOWS _QWN12BB26 505843345 3794 3611 3793 3614 3624 3626 3796 3795 3799 3797 3800 *WINDOWS _QWN12BAPP 505843345 3635 3636 3637 3638 3639 3658 3676 *WINDOWS _QWN12BATC 505843345 3691 3692 3693 3694 3695 3712 3720 *WINDOWS _QWN12BAXF 505843345 3736 3737 3738 3739 3740 *WINDOWS _QWN12BAYT 505843345 3746 3747 3748 3749 3750 3754 3770 *WINDOWS _QWN12BB0Y 505843345 3784 3785 3786 3787 3788 *WINDOWS _QWN12DLCN 505843402 3997 3802 3996 3805 3815 3822 3999 3998 4002 4000 4003 *WINDOWS _QWN12DL0V 505843402 3836 3837 3838 3839 3840 3861 3879 *WINDOWS _QWN12DL4G 505843402 3894 3895 3896 3897 3898 3915 3923 *WINDOWS _QWN12DL83 505843402 3939 3940 3941 3942 3943 *WINDOWS _QWN12DL98 505843402 3949 3950 3951 3952 3953 3957 3973 *WINDOWS _QWN12DLBH 505843402 3987 3988 3989 3990 3991 *WINDOWS _QWN12FEWH 505843447 4193 4005 4192 4008 4018 4025 4195 4194 4198 4196 4199 *WINDOWS _QWN12FELG 505843447 4039 4040 4041 4042 4043 4064 4074 *WINDOWS _QWN12FEOS 505843447 4090 4091 4092 4093 4094 4111 4119 *WINDOWS _QWN12FES9 505843447 4135 4136 4137 4138 4139 *WINDOWS _QWN12FETB 505843447 4145 4146 4147 4148 4149 4153 4169 *WINDOWS _QWN12FEVI 505843447 4183 4184 4185 4186 4187 *WINDOWS _QWN12GWDW 505843483 4388 4201 4387 4204 4214 4221 4390 4389 4393 4391 4394 *WINDOWS _QWN12GVZV 505843483 4234 4235 4236 4237 4238 4259 4269 *WINDOWS _QWN12GW4P 505843483 4285 4286 4287 4288 4289 4306 4314 *WINDOWS _QWN12GW8Z 505843483 4330 4331 4332 4333 4334 *WINDOWS _QWN12GWA2 505843483 4340 4341 4342 4343 4344 4348 4364 *WINDOWS _QWN12GWCX 505843483 4378 4379 4380 4381 4382 *WINDOWS _QWN12NDOH 505843773 4583 4396 4582 4399 4409 4416 4585 4584 4588 4586 4589 *WINDOWS _QWN12NDAE 505843772 4429 4430 4431 4432 4433 4454 4464 *WINDOWS _QWN12NDEK 505843772 4480 4481 4482 4483 4484 4501 4509 *WINDOWS _QWN12NDJC 505843772 4525 4526 4527 4528 4529 *WINDOWS _QWN12NDKH 505843772 4535 4536 4537 4538 4539 4543 4559 *WINDOWS _QWN12NDNE 505843773 4573 4574 4575 4576 4577 *WINDOWS _QWN14HLYU 505845422 4778 4591 4777 4594 4604 4611 4780 4779 4783 4781 4784 *WINDOWS _QWN14HLJZ 505845421 4624 4625 4626 4627 4628 4649 4659 *WINDOWS _QWN14HLOG 505845421 4675 4676 4677 4678 4679 4696 4704 *WINDOWS _QWN14HLT9 505845422 4720 4721 4722 4723 4724 *WINDOWS _QWN14HLUB 505845422 4730 4731 4732 4733 4734 4738 4754 *WINDOWS _QWN14HLXV 505845422 4768 4769 4770 4771 4772 *WINDOWS _QWN154J9V 505846120 4973 4786 4972 4789 4799 4806 4975 4974 4978 4976 4979 *WINDOWS _QWN154IV1 505846120 4819 4820 4821 4822 4823 4844 4854 *WINDOWS _QWN154IZJ 505846120 4870 4871 4872 4873 4874 4891 4899 *WINDOWS _QWN154J4J 505846120 4915 4916 4917 4918 4919 *WINDOWS _QWN154J5M 505846120 4925 4926 4927 4928 4929 4933 4949 *WINDOWS _QWN154J8T 505846120 4963 4964 4965 4966 4967 *WINDOWS _QWP0IL0GL 505955591 5168 4981 5167 4984 4994 5001 5170 5169 5173 5171 5174 *WINDOWS _QWP0IL00W 505955591 5014 5015 5016 5017 5018 5039 5049 *WINDOWS _QWP0IL05C 505955591 5065 5066 5067 5068 5069 5086 5094 *WINDOWS _QWP0IL0AL 505955591 5110 5111 5112 5113 5114 *WINDOWS _QWP0IL0BV 505955591 5120 5121 5122 5123 5124 5128 5144 *WINDOWS _QWP0IL0F2 505955591 5158 5159 5160 5161 5162 *WINDOWS _QWP0IMLOU 505955630 5383 5176 5177 5382 5180 5222 5253 5385 5384 5275 5386 *WINDOWS _QWP0IMLI4 505955630 5277 5278 5279 5280 5281 *WINDOWS _QWP0IMLIZ 505955630 5286 5287 5288 5289 5290 *WINDOWS _QWP0IMLLJ 505955630 5323 5324 5325 5326 5327 5354 5369 *WINDOWS _QWP0INSUN 505955660 5527 5388 5389 5526 5392 5529 5528 5530 *WINDOWS _QWP0INSPM 505955660 5426 5427 5428 5429 5430 5436 5445 *WINDOWS _QWP0INSRC 505955660 5460 5461 5462 5463 5464 *WINDOWS _QWP0INSSR 505955660 5469 5470 5471 5472 5473 5477 5505 *WINDOWS _QWP0IO6ZA 505955669 5739 5532 5533 5738 5536 5578 5609 5741 5740 5631 5742 *WINDOWS _QWP0IO6SS 505955669 5633 5634 5635 5636 5637 *WINDOWS _QWP0IO6TO 505955669 5642 5643 5644 5645 5646 *WINDOWS _QWP0IO6W9 505955669 5679 5680 5681 5682 5683 5710 5725 *WINDOWS _QWP0IZCV8 505955948 5950 5744 5745 5949 5748 5790 5821 5952 5951 5843 5953 *WINDOWS _QWP0IZCOL 505955948 5845 5846 5847 5848 5849 *WINDOWS _QWP0IZCPI 505955948 5854 5855 5856 5857 5858 *WINDOWS _QWP0IZCS4 505955948 5890 5891 5892 5893 5894 5921 5936 *WINDOWS _QWP0J8MBG 505956178 5966 5955 5965 5957 5968 5967 *WINDOWS _QWP0J8MAJ 505956178 5958 5959 5961 5962 5963 5960 *WINDOWS _QWP0JKAJH 505956596 6081 5970 5971 6080 5974 6016 6047 6083 6082 6069 6084 *WINDOWS _QWP0JKAIJ 505956596 6071 6072 6073 6074 6075 *WINDOWS _QWP0JNGMZ 505956676 6292 6086 6087 6291 6090 6132 6163 6294 6293 6185 6295 *WINDOWS _QWP0JNGGL 505956676 6187 6188 6189 6190 6191 *WINDOWS _QWP0JNGHH 505956676 6196 6197 6198 6199 6200 *WINDOWS _QWP0JNGK1 505956676 6232 6233 6234 6235 6236 6263 6278 *WINDOWS _QWP0JPBWH 505956722 6503 6297 6298 6502 6301 6343 6374 6505 6504 6396 6506 *WINDOWS _QWP0JPBPJ 505956721 6398 6399 6400 6401 6402 *WINDOWS _QWP0JPBQH 505956721 6407 6408 6409 6410 6411 *WINDOWS _QWP0JPBT8 505956722 6443 6444 6445 6446 6447 6474 6489 *WINDOWS _QWP0JR41T 505956765 6619 6508 6509 6618 6512 6554 6585 6621 6620 6607 6622 *WINDOWS _QWP0JR40V 505956765 6609 6610 6611 6612 6613 *WINDOWS _QWP0JUZ67 505956861 6749 6624 6625 6748 6628 6670 6701 6751 6750 6723 6752 *WINDOWS _QWP0JUZ3G 505956861 6725 6726 6727 6728 6729 *WINDOWS _QWP0JUZ4C 505956861 6734 6735 6736 6737 6738 *WINDOWS _QWP0JUZ58 505956861 6741 6742 6743 6744 6745 *WINDOWS _QWP0K5QFG 505957130 6900 6754 6755 6899 6758 6800 6831 6902 6901 6853 6903 *WINDOWS _QWP0K5QAP 505957130 6855 6856 6857 6858 6859 *WINDOWS _QWP0K5QC6 505957130 6864 6865 6866 6867 6868 *WINDOWS _QWP0K5QDQ 505957130 6872 6873 6874 6875 6876 6879 6887 WINDOWS _QWP0KP2PI 505957612 6904 6905 6906 6908 6909 6951 6907 *WINDOWS _QWP0KPSE7 505957628 7130 6983 6984 7129 6987 7029 7060 7132 7131 7082 7133 7134 *WINDOWS _QWP0KPS93 505957628 7084 7085 7086 7087 7088 *WINDOWS _QWP0KPSA2 505957628 7093 7094 7095 7096 7097 *WINDOWS _QWP0KPSB1 505957628 7101 7102 7103 7104 7105 7108 7116 *WINDOWS _QWP0KQLQT 505957649 7275 7136 7137 7274 7140 7277 7276 7278 7279 *WINDOWS _QWP0KQLJ6 505957649 7174 7175 7176 7177 7178 7184 7193 *WINDOWS _QWP0KQLM3 505957649 7208 7209 7210 7211 7212 *WINDOWS _QWP0KQLN4 505957649 7217 7218 7219 7220 7221 7225 7253 *WINDOWS _QWP0SESLM 505965034 7422 7281 7282 7421 7285 7327 7351 7424 7423 7374 7425 7426 *WINDOWS _QWP0SESH3 505965034 7376 7377 7378 7379 7380 *WINDOWS _QWP0SESHZ 505965034 7385 7386 7387 7388 7389 *WINDOWS _QWP0SESIV 505965034 7393 7394 7395 7396 7397 7400 7408 WINDOWS _QWP0U5KDM 505966725 7571 7428 7429 7570 7432 7474 7498 7573 7572 7521 7574 7575 WINDOWS _QWP0U5K7A 505966724 7523 7524 7525 7526 7527 WINDOWS _QWP0U5K8X 505966724 7532 7533 7534 7535 7536 WINDOWS _QWP0U5KA1 505966725 7541 7542 7543 7544 7545 7549 7557 *WINDOWS _QWP0U6IIB 505966747 7716 7577 7578 7715 7581 7718 7717 7719 7720 *WINDOWS _QWP0U6IAN 505966747 7615 7616 7617 7618 7619 7625 7634 *WINDOWS _QWP0U6IDP 505966747 7649 7650 7651 7652 7653 *WINDOWS _QWP0U6IET 505966747 7658 7659 7660 7661 7662 7666 7694 *WINDOWS _QWP0U73MA 505966762 7909 7722 7908 7725 7735 7742 7911 7910 7914 7912 7915 *WINDOWS _QWP0U738C 505966762 7755 7756 7757 7758 7759 7780 7790 *WINDOWS _QWP0U73CY 505966762 7806 7807 7808 7809 7810 7827 7835 *WINDOWS _QWP0U73HA 505966762 7851 7852 7853 7854 7855 *WINDOWS _QWP0U73IE 505966762 7861 7862 7863 7864 7865 7869 7885 *WINDOWS _QWP0U73LB 505966762 7899 7900 7901 7902 7903 WINDOWS _QWP0UBA42 505966866 8057 7917 7918 8056 7921 8059 8058 8060 8061 WINDOWS _QWP0UB9U7 505966866 7955 7956 7957 7958 7959 7965 7974 WINDOWS _QWP0UB9Y9 505966866 7989 7990 7991 7992 7993 WINDOWS _QWP0UB9ZR 505966866 7999 8000 8001 8002 8003 8007 8035 *WINDOWS _QWS0U3D6M 506163277 8249 8063 8248 8066 8076 8083 8251 8250 8254 8252 8255 *WINDOWS _QWS0U3CSU 506163277 8096 8097 8098 8099 8100 8121 8131 *WINDOWS _QWS0U3CX9 506163277 8146 8147 8148 8149 8150 8167 8175 *WINDOWS _QWS0U3D1U 506163277 8191 8192 8193 8194 8195 *WINDOWS _QWS0U3D2Z 506163277 8201 8202 8203 8204 8205 8209 8225 *WINDOWS _QWS0U3D5O 506163277 8239 8240 8241 8242 8243 WINDOWS _QWS0U7LPN 506163382 8435 8257 8434 8260 8270 8277 8437 8436 8440 8438 8441 WINDOWS _QWS0U7LCP 506163382 8290 8291 8292 8293 8294 8315 8325 WINDOWS _QWS0U7LGO 506163382 8340 8341 8342 8343 8344 8361 8369 WINDOWS _QWS0U7LKP 506163382 8385 8386 8387 8388 8389 WINDOWS _QWS0U7LLQ 506163382 8395 8396 8397 8398 8399 8403 8411 WINDOWS _QWS0U7LOQ 506163382 8425 8426 8427 8428 8429 RESERVED1 VERSION = 0.0282 cvtscx.h Pixels ,Alert displayed when converting non-projects Class cvtalertscx BackColor = 192,192,192 Caption = (cAlertMsg) Height = 61 Left = 24 Top = 12 Width = 325 WordWrap = .T. Name = "lblAlertMsg" cvtalertscx.u lblAlertMsg labelV label Select file for screen code: CCODEFILE THISFORM TXTCODEFILE REFRESH CLOGFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cCodeFile = LOWER(PUTFILE(C_SELCODEFILE_LOC,cCodeFile,"PRG")) THISFORM.txtCodeFile.Refresh IF !EMPTY(m.cCodeFile) AND ((m.llog AND !EMPTY(m.cLogFile)) OR !m.llog) THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC eTop = 97 Left = 336 Height = 25 Width = 25 Caption = "..." Enabled = .F. Name = "cmdCodeFile" cvtalertscx. cmdCodeFile commandbutton commandbutton ControlSource = "m.cCodeFile" Enabled = .T. Height = 25 Left = 156 ReadOnly = .T. Top = 97 Width = 170 Name = "txtCodeFile" cvtalertscx. txtCodeFile textbox textbox THISFORM Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx TPROCEDURE Click IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC ButtonCount = 2 BackColor = 192,192,192 BorderStyle = 0 Caption = "Commandgroup1" Value = 1 ControlSource = "nCvt" Height = 49 Left = 60 TerminateRead = .T. Top = 133 Width = 253 Name = "cmd1" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.Caption = "Continue" Command1.Default = .T. Command1.Name = "command1" Command2.Top = 5 Command2.Left = 154 Command2.Height = 29 Command2.Width = 94 Command2.Cancel = .T. Command2.Caption = "Cancel" Command2.Name = "command2" cvtalertscx. commandgroup commandgroup NOPTDEV THISFORM CMDCODEFILE ENABLED CCODEFILE COMMAND1 LDEVMODE Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx ! " # $ BPROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF THISFORM.cmdCodeFile.Enabled = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC CButtonCount = 2 BackColor = 192,192,192 BorderStyle = 0 Caption = "Optiongroup1" Value = 1 ControlSource = "nOptDev" Height = 49 Left = 12 Top = 73 Width = 133 Name = "optiongroup1" Option1.BackColor = 192,192,192 Option1.Caption = "\<Standard Mode" Option1.Value = 1 Option1.Height = 18 Option1.Left = 5 Option1.Top = 5 Option1.Width = 140 Option1.Name = "option1" Option2.BackColor = 192,192,192 Option2.Caption = "\<Developer Mode" Option2.Value = 0 Option2.Height = 18 Option2.Left = 5 Option2.Top = 25 Option2.Width = 140 Option2.Name = "option2" cvtalertscx. optiongroup1 optiongroup optiongroup COMMAND1 SETFOCUS Init, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx 8PROCEDURE Init THIS.cmd1.command1.SetFocus ENDPROC ,ScaleMode = 3 Top = 65 Left = 137 Height = 180 Width = 375 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "Conversion Options" Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 DefButton = DefButton LockScreen = .F. Name = "cvtalertscx" Pixels Class cvtalertscx/ cvtalertcat2 Select the log file CLOGFILE JUSTSTEM CFILENAME THISFORM TXTLOGFILE REFRESH NOPTDEV CCODEFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE C_LOGEXT "LOG" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 IF EMPTY(m.cLogFile) m.cLogFile = JUSTSTEM(m.cFileName) + "." + C_LOGEXT ENDIF cLogFile = LOWER(PUTFILE(C_SELLOGFILE_LOC,cLogFile,C_LOGEXT)) 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. ENDIF ENDPROC dTop = 97 Left = 336 Height = 25 Width = 25 Caption = "..." Enabled = .F. Name = "cmdLogFile" n Version of FoxPro. cvtalertcat.DOWS cmdLogFile commandbuttonG SETRPTFON commandbuttonROMPLATFORM ControlSource = "m.cLogFile" Enabled = .F. Height = 25 Left = 156 ReadOnly = .T. Top = 97 Width = 170 Name = "txtLogFile" DISTINCT G_SCRNALIAS cvtalertcat.B txtLogFileRX textbox textbox& THISFORM TXTLOGFILE ENABLED VALUE CMDLOGFILE CLOGFILE COMMAND1 CLICK Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx PROCEDURE Click THISFORM.txtLogFile.Enabled = THIS.value THISFORM.cmdLogFile.Enabled = THIS.value IF THIS.value AND EMPTY(m.cLogFile) THISFORM.cmd1.command1.Enabled = .F. THISFORM.cmdLogFile.Click ENDIF ENDPROC Top = 105 Left = 18 Height = 25 Width = 114 BackColor = 192,192,192 Caption = "Create \<log file" ControlSource = "lLog" Name = "check1" cvtalertcat. check1 checkbox checkbox Top = 125 Left = 133 Height = 230 Width = 375 Name = "cvtalertcat" optiongroup1.option1.Value = 1 optiongroup1.option1.Left = 5 optiongroup1.option1.Top = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Left = 5 optiongroup1.option2.Top = 25 optiongroup1.ControlSource = "nOptDev" optiongroup1.Left = 12 optiongroup1.Top = 124 cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.Left = 60 cmd1.Top = 184 txtCodeFile.Left = 156 txtCodeFile.Top = 148 cmdCodeFile.Top = 148 cmdCodeFile.Left = 336 lblAlertMsg.Caption = (cAlertMsg) lblAlertMsg.Height = 76 lblAlertMsg.Left = 24 lblAlertMsg.Top = 12 lblAlertMsg.Width = 325 cvtalert.vcxt? PixelsW Class cvtalertcatv cvtalertpjx Select a backup directory: CBACKDIR THISFORM TXTBACKDIR REFRESH Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx ;PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cBackDir = GETDIR(m.cBackDir,C_SELBACKDIR_LOC) THISFORM.txtBackDir.Refresh ENDPROC ^DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Top = 87 Left = 336 Height = 25 Width = 25 FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. AutoSize = .F. Picture = d:\temp\ DownPicture = d:\temp\ DisabledPicture = d:\temp\ Cancel = .F. Caption = "..." Value = 0 ControlSource = "" Default = .F. DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 HelpContextID = 0 MousePointer = 0 StatusBarText = "" Style = 0 TabIndex = 0 TabStop = .T. Tag = "" ToolTipText = "" TerminateRead = .F. Visible = .T. ReleaseErase = .T. DisabledForeColor = 128,128,128 ColorSource = 0 ColorScheme = 1 BaseClass = "Commandbutton" ParentClass = "" ClassLibrary = "" Class = "Commandbutton" Name = "cmdBackDir" cvtalertpjx. cmdBackDir commandbutton commandbutton FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 BackColor = 255,255,255 BorderStyle = 1 Value = ControlSource = "m.cBackDir" DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 Format = "" Height = 25 HelpContextID = 0 HideSelection = .T. InputMask = "" Left = 156 Margin = 2 MaxLength = 275 MousePointer = 0 ReadOnly = .F. SelLength = 0 SelStart = 0 SelText = "" SpecialEffect = 0 StatusBarText = "" TabIndex = 0 TabStop = .T. Tag = "" TerminateRead = .F. ToolTipText = "" Top = 89 Visible = .T. Width = 170 ReleaseErase = .T. DisabledForeColor = 128,128,128 DisabledBackColor = 255,255,255 SelectedForeColor = 255,255,255 SelectedBackColor = 0,0,192 ColorSource = 0 ColorScheme = 1 BaseClass = "Textbox" ParentClass = "" ClassLibrary = "" Class = "Textbox" Name = "txtBackDir" cvtalertpjx.P txtBackDir textbox textboxt BackColor = 192,192,192 Caption = "Create backup directory here" Height = 38 Left = 21 Top = 89 Width = 133 WordWrap = .T. Name = "label1" cvtalertpjx. label1s9 labelt label *getbackdir Get a backupDir CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS NCVTC THISFORM GETBACKDIR getbackdir, cmd1.Clicke c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx PROCEDURE getbackdir #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 *---------------------------------- * FUNCTION GetBackDir *---------------------------------- PRIVATE cBackdef, nTmpCount, cTmpDir m.nTmpCount = 0 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.Click IF nCvt = 1 THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC .Top = 113 Left = 133 Height = 255 Width = 375 Name = "cvtalertpjx" optiongroup1.option1.Value = 1 optiongroup1.option1.Left = 5 optiongroup1.option1.Top = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Left = 5 optiongroup1.option2.Top = 25 optiongroup1.Left = 12 optiongroup1.Top = 148 cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.ControlSource = "nCvt" cmd1.Left = 60 cmd1.Top = 208 txtCodeFile.Left = 156 txtCodeFile.Top = 172 cmdCodeFile.Top = 172 cmdCodeFile.Left = 336 lblAlertMsg.Caption = (cAlertMsg) lblAlertMsg.Height = 70 lblAlertMsg.Left = 24 lblAlertMsg.Top = 12 lblAlertMsg.Width = 325 check1.Top = 129 check1.Left = 24 txtLogFile.Left = 156 txtLogFile.Top = 121 cmdLogFile.Top = 121 cmdLogFile.Left = 336 cvtalert.vcx Select the log file CLOGFILE THISFORM TXTLOGFILE REFRESH NOPTDEV CCODEFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx -PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cLogFile = LOWER(PUTFILE(C_SELLOGFILE_LOC,cLogFile,"LOG")) 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. ENDIF ENDPROC dTop = 97 Left = 336 Height = 25 Width = 25 Caption = "..." Enabled = .F. Name = "cmdLogFile" stfname juststemc cvtalertcat. writeline cmdLogFile rocnumg7 commandbutton commandbutton ControlSource = "m.cLogFile" Enabled = .F. Height = 25 Left = 156 ReadOnly = .T. Top = 97 Width = 170 Name = "txtLogFile" cvtalertcat.LB txtLogFilelected program textboxompile... Compiles textbox the currently run THISFORM TXTLOGFILE ENABLED VALUE CMDLOGFILE CLOGFILE COMMAND1 Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx suspended program PROCEDURE Click THISFORM.txtLogFile.Enabled = THIS.value THISFORM.cmdLogFile.Enabled = THIS.value IF THIS.value AND EMPTY(m.cLogFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF ENDPROC object into a non-updatable g Top = 105 Left = 18 Height = 25 Width = 114 BackColor = 192,192,192 Caption = "Create \<log file" ControlSource = "lLog" Name = "check1" text with d cvtalertcat. other object check1as a linked object, checkbox Pastes the Clipb checkboxof the Clipboard Select a backup directory: CBACKDIR THISFORM TXTBACKDIR REFRESH Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cBackDir = GETDIR(m.cBackDir,C_SELBACKDIR_LOC) THISFORM.txtBackDir.Refresh ENDPROC ^DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Top = 87 Left = 336 Height = 25 Width = 25 FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. AutoSize = .F. Picture = d:\temp\ DownPicture = d:\temp\ DisabledPicture = d:\temp\ Cancel = .F. Caption = "..." Value = 0 ControlSource = "" Default = .F. DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 HelpContextID = 0 MousePointer = 0 StatusBarText = "" Style = 0 TabIndex = 0 TabStop = .T. Tag = "" ToolTipText = "" TerminateRead = .F. Visible = .T. ReleaseErase = .T. DisabledForeColor = 128,128,128 ColorSource = 0 ColorScheme = 1 BaseClass = "Commandbutton" ParentClass = "" ClassLibrary = "" Class = "Commandbutton" Name = "cmdBackDir" cvtalertpjx. cmdBackDir commandbutton commandbutton FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 BackColor = 255,255,255 BorderStyle = 1 Value = ControlSource = "m.cBackDir" DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 Format = "" Height = 25 HelpContextID = 0 HideSelection = .T. InputMask = "" Left = 156 Margin = 2 MaxLength = 275 MousePointer = 0 ReadOnly = .F. SelLength = 0 SelStart = 0 SelText = "" SpecialEffect = 0 StatusBarText = "" TabIndex = 0 TabStop = .T. Tag = "" TerminateRead = .F. ToolTipText = "" Top = 89 Visible = .T. Width = 170 ReleaseErase = .T. DisabledForeColor = 128,128,128 DisabledBackColor = 255,255,255 SelectedForeColor = 255,255,255 SelectedBackColor = 0,0,192 ColorSource = 0 ColorScheme = 1 BaseClass = "Textbox" ParentClass = "" ClassLibrary = "" Class = "Textbox" Name = "txtBackDir" cvtalertpjx. txtBackDir textbox textbox BackColor = 192,192,192 Caption = "Create backup directory here" Height = 38 Left = 21 Top = 89 Width = 133 WordWrap = .T. Name = "label1" cvtalertpjx.eErase = .F. label1 BackStyle = 0 label = 73 Width = 300 label Top = 24 Select a backup directory: CBACKDIR THISFORM TXTBACKDIR REFRESH Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cBackDir = GETDIR(m.cBackDir,C_SELBACKDIR_LOC) THISFORM.txtBackDir.Refresh ENDPROC ^DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Top = 72 Left = 336 Height = 25 Width = 25 FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. AutoSize = .F. Picture = d:\temp\ DownPicture = d:\temp\ DisabledPicture = d:\temp\ Cancel = .F. Caption = "..." Value = 0 ControlSource = "" Default = .F. DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 HelpContextID = 0 MousePointer = 0 StatusBarText = "" Style = 0 TabIndex = 0 TabStop = .T. Tag = "" ToolTipText = "" TerminateRead = .F. Visible = .T. ReleaseErase = .T. DisabledForeColor = 128,128,128 ColorSource = 0 ColorScheme = 1 BaseClass = "Commandbutton" ParentClass = "" ClassLibrary = "" Class = "Commandbutton" Name = "cmdBackDir" cvtalertpjx. cmdBackDir commandbutton commandbutton FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 BackColor = 255,255,255 BorderStyle = 1 Value = ControlSource = "m.cBackDir" DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 Format = "" Height = 25 HelpContextID = 0 HideSelection = .T. InputMask = "" Left = 156 Margin = 2 MaxLength = 275 MousePointer = 0 ReadOnly = .F. SelLength = 0 SelStart = 0 SelText = "" SpecialEffect = 0 StatusBarText = "" TabIndex = 0 TabStop = .T. Tag = "" TerminateRead = .F. ToolTipText = "" Top = 74 Visible = .T. Width = 170 ReleaseErase = .T. DisabledForeColor = 128,128,128 DisabledBackColor = 255,255,255 SelectedForeColor = 255,255,255 SelectedBackColor = 0,0,192 ColorSource = 0 ColorScheme = 1 BaseClass = "Textbox" ParentClass = "" ClassLibrary = "" Class = "Textbox" Name = "txtBackDir" cvtalertpjx. txtBackDir textbox textbox BackColor = 192,192,192 Caption = "Create backup directory here" Height = 38 Left = 21 Top = 74 Width = 133 WordWrap = .T. Name = "label1" cvtalertpjx.RC label1EP ___EXPORTEDSTU label label cvtalertscx DragIcon = cvtalert.vcxd = .T. form0 HelpContextID = 0 Pixels= 0 StatusBarText cvtalertcatbIndex = 0 Top = 125 Left = 133 Height = 230 Width = 375 Name = "cvtalertcat" optiongroup1.option1.Value = 1 optiongroup1.option1.Left = 5 optiongroup1.option1.Top = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Left = 5 optiongroup1.option2.Top = 25 optiongroup1.ControlSource = "nOptDev" optiongroup1.Left = 12 optiongroup1.Top = 124 cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.Left = 60 cmd1.Top = 184 txtCodeFile.Left = 156 txtCodeFile.Top = 148 cmdCodeFile.Top = 148 cmdCodeFile.Left = 336 lblAlertMsg.Caption = (cAlertMsg) lblAlertMsg.Height = 76 lblAlertMsg.Left = 24 lblAlertMsg.Top = 12 lblAlertMsg.Width = 325 checkbox checkbox check1 cvtalertcat.a backup dire Top = 105 Left = 18 Height = 25 Width = 114 BackColor = 192,192,192 Caption = "Create \<log file" ControlSource = "lLog" Name = "check1" vert\cvtaler PROCEDURE Click THISFORM.txtLogFile.Enabled = THIS.value THISFORM.cmdLogFile.Enabled = THIS.value IF THIS.value AND EMPTY(m.cLogFile) THISFORM.cmd1.command1.Enabled = .F. THISFORM.cmdLogFile.Click THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC THISFORM TXTLOGFILE ENABLED VALUE CMDLOGFILE CLOGFILE COMMAND1 CLICK Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx .Left = 154 cmd1.ControlSource textbox.Left = 60 cmd1.T textboxdeFile.Left = 156 txtLogFile 157 cmdCodeFi cvtalertcat.eFile.Left = ControlSource = "m.cLogFile" Enabled = .F. Height = 25 Left = 156 ReadOnly = .T. Top = 97 Width = 170 Name = "txtLogFile" cmdLogFile.Left = 336 commandbutton commandbuttonbackdir cmdLogFile-------------- cvtalertcat.ir *-------- dTop = 97 Left = 336 Height = 25 Width = 25 Caption = "..." Enabled = .F. Name = "cmdLogFile" ir + C_BACKDIR DO WHIL PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE C_LOGEXT "LOG" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 IF EMPTY(m.cLogFile) m.cLogFile = JUSTSTEM(m.cFileName) + "." + C_LOGEXT ENDIF cLogFile = LOWER(PUTFILE(C_SELLOGFILE_LOC,cLogFile,C_LOGEXT)) 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. ENDIF ENDPROC Select the log file CLOGFILE JUSTSTEM CFILENAME THISFORM TXTLOGFILE REFRESH NOPTDEV CCODEFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertcat___EXPORTEDSTU cvtalertscx.RC 4ackColor = 192,192,192 Classeate backup director Pixelst = 38 Left = 21 formdth = 133 WordWrap = form "label1" Pixelsx cvtalertscx -ScaleMode = 3 Top = 150 Left = 133 Height = 180 Width = 375 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "Conversion Options" Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 DefButton = DefButton LockScreen = .F. Name = "cvtalertscx" ent = 0 BackColor = 8PROCEDURE Init THIS.cmd1.command1.SetFocus ENDPROC COMMAND1 SETFOCUS Init, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx SelText = "" SpecialEf optiongroupText = "" optiongroup= .T. Tag = " optiongroup1F. ToolTipTe cvtalertscx.isible = .T. CButtonCount = 2 BackColor = 192,192,192 BorderStyle = 0 Caption = "Optiongroup1" Value = 1 ControlSource = "nOptDev" Height = 49 Left = 12 Top = 73 Width = 133 Name = "optiongroup1" Option1.BackColor = 192,192,192 Option1.Caption = "\<Standard Mode" Option1.Value = 1 Option1.Height = 18 Option1.Left = 5 Option1.Top = 5 Option1.Width = 140 Option1.Name = "option1" Option2.BackColor = 192,192,192 Option2.Caption = "\<Developer Mode" Option2.Value = 0 Option2.Height = 18 Option2.Left = 5 Option2.Top = 25 Option2.Width = 140 Option2.Name = "option2" lic = . BPROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF THISFORM.cmdCodeFile.Enabled = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC e = 1 NOPTDEV THISFORM CMDCODEFILE ENABLED CCODEFILE COMMAND1 LDEVMODE Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx R(m.cBackDir,C_SELBACKDIR_LOC) commandgroupr.Refresh commandgroup cvtalertscx.% ButtonCount = 2 BackColor = 192,192,192 BorderStyle = 0 Caption = "Commandgroup1" Value = 1 ControlSource = "nCvt" Height = 49 Left = 60 TerminateRead = .T. Top = 133 Width = 253 Name = "cmd1" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.Caption = "Continue" Command1.Default = .T. Command1.Name = "command1" Command2.Top = 5 Command2.Left = 154 Command2.Height = 29 Command2.Width = 94 Command2.Cancel = .T. Command2.Caption = "Cancel" Command2.Name = "command2" PROCEDURE Click IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE command1.Click THISFORM.cmd1.Click ENDPROC iongroup1.option1 THISFORM THISFORM CLICK Click, command1.Clickd c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx textbox f;8t3f textbox txtCodeFile cvtalertscx. ControlSource = "m.cCodeFile" Enabled = .T. Height = 25 Left = 156 ReadOnly = .T. Top = 97 Width = 170 Name = "txtCodeFile" commandbuttonj commandbutton cmdCodeFile cvtalertscx.(5 eTop = 97 Left = 336 Height = 25 Width = 25 Caption = "..." Enabled = .F. Name = "cmdCodeFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cCodeFile = LOWER(PUTFILE(C_SELCODEFILE_LOC,cCodeFile,"PRG")) THISFORM.txtCodeFile.Refresh IF !EMPTY(m.cCodeFile) AND ((m.llog AND !EMPTY(m.cLogFile)) OR !m.llog) THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC Select file for screen code: CCODEFILE THISFORM TXTCODEFILE REFRESH CLOGFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx label label lblAlertMsg&f cvtalertscx.zf BackColor = 192,192,192 Caption = (cAlertMsg) Height = 61 Left = 24 Top = 12 Width = 325 WordWrap = .T. Name = "lblAlertMsg" ]6f@f cvtalertscxE~ formf 6;u2} Class ,Alert displayed when converting non-projects+U6f Pixels cvtscx.h form: form:fG Pixels cvtalertscxE& -ScaleMode = 3 Top = 150 Left = 133 Height = 180 Width = 375 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "Conversion Options" Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 DefButton = DefButton LockScreen = .F. Name = "cvtalertscx" 8PROCEDURE Init THIS.cmd1.command1.SetFocus ENDPROC COMMAND1 SETFOCUS Init, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx optiongroup optiongroup< optiongroup1f cvtalertscx. CButtonCount = 2 BackColor = 192,192,192 BorderStyle = 0 Caption = "Optiongroup1" Value = 1 ControlSource = "nOptDev" Height = 49 Left = 12 Top = 73 Width = 133 Name = "optiongroup1" Option1.BackColor = 192,192,192 Option1.Caption = "\<Standard Mode" Option1.Value = 1 Option1.Height = 18 Option1.Left = 5 Option1.Top = 5 Option1.Width = 140 Option1.Name = "option1" Option2.BackColor = 192,192,192 Option2.Caption = "\<Developer Mode" Option2.Value = 0 Option2.Height = 18 Option2.Left = 5 Option2.Top = 25 Option2.Width = 140 Option2.Name = "option2" BPROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF THISFORM.cmdCodeFile.Enabled = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC NOPTDEV THISFORM CMDCODEFILE ENABLED CCODEFILE COMMAND1 LDEVMODE Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx commandgroup commandgroup cvtalertscx. ButtonCount = 2 BackColor = 192,192,192 BorderStyle = 0 Caption = "Commandgroup1" Value = 1 ControlSource = "nCvt" Height = 49 Left = 60 TerminateRead = .T. Top = 133 Width = 253 Name = "cmd1" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.Caption = "Continue" Command1.Default = .T. Command1.Name = "command1" Command2.Top = 5 Command2.Left = 154 Command2.Height = 29 Command2.Width = 94 Command2.Cancel = .T. Command2.Caption = "Cancel" Command2.Name = "command2" PROCEDURE Click IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE command1.Click nCvt = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE command2.Click nCvt = 2 THISFORM.cmd1.Click ENDPROC THISFORM THISFORM CLICK THISFORM CLICK Click, command1.Clickd command2.Click c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx textbox textbox txtCodeFile cvtalertscx. ControlSource = "m.cCodeFile" Enabled = .T. Height = 25 Left = 156 ReadOnly = .T. Top = 97 Width = 170 Name = "txtCodeFile" commandbuttonH commandbutton cmdCodeFileJ cvtalertscx. eTop = 97 Left = 336 Height = 25 Width = 25 Caption = "..." Enabled = .F. Name = "cmdCodeFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cCodeFile = LOWER(PUTFILE(C_SELCODEFILE_LOC,cCodeFile,"PRG")) THISFORM.txtCodeFile.Refresh IF !EMPTY(m.cCodeFile) AND ((m.llog AND !EMPTY(m.cLogFile)) OR !m.llog) THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC Select file for screen code: CCODEFILE THISFORM TXTCODEFILE REFRESH CLOGFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx label label lblAlertMsg cvtalertscx. BackColor = 192,192,192 Caption = (cAlertMsg) Height = 61 Left = 24 Top = 12 Width = 325 WordWrap = .T. Name = "lblAlertMsg" cvtalertscx formX Class ,Alert displayed when converting non-projects Pixels cvtscx.h Pixels cvtalertscx ,ScaleMode = 3 Top = 45 Left = 132 Height = 180 Width = 375 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "Conversion Options" Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 DefButton = DefButton LockScreen = .F. Name = "cvtalertscx" 8PROCEDURE Init THIS.cmd1.command1.SetFocus ENDPROC COMMAND1 SETFOCUS Init, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx optiongroup optiongroup optiongroup1 cvtalertscx. CButtonCount = 2 BackColor = 192,192,192 BorderStyle = 0 Caption = "Optiongroup1" Value = 1 ControlSource = "nOptDev" Height = 49 Left = 12 Top = 73 Width = 133 Name = "optiongroup1" Option1.BackColor = 192,192,192 Option1.Caption = "\<Standard Mode" Option1.Value = 1 Option1.Height = 18 Option1.Left = 5 Option1.Top = 5 Option1.Width = 140 Option1.Name = "option1" Option2.BackColor = 192,192,192 Option2.Caption = "\<Developer Mode" Option2.Value = 0 Option2.Height = 18 Option2.Left = 5 Option2.Top = 25 Option2.Width = 140 Option2.Name = "option2" BPROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF THISFORM.cmdCodeFile.Enabled = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC NOPTDEV THISFORM CMDCODEFILE ENABLED CCODEFILE COMMAND1 LDEVMODE Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx commandgroup commandgroup cvtalertscx. ButtonCount = 2 BackColor = 192,192,192 BorderStyle = 0 Caption = "Commandgroup1" Value = 1 ControlSource = "m.nCvt" Height = 49 Left = 60 TerminateRead = .T. Top = 133 Width = 253 Name = "cmd1" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.Caption = "Continue" Command1.Default = .T. Command1.Name = "command1" Command2.Top = 5 Command2.Left = 154 Command2.Height = 29 Command2.Width = 94 Command2.Cancel = .T. Command2.Caption = "Cancel" Command2.Name = "command2" PROCEDURE Click IF m.nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE command1.Click THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC THISFORM# THISFORM VALUE CLICK# THISFORM VALUE CLICK Click, command1.Clickf command2.Click c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx textboxM +]q]M textbox txtCodeFileITy@ cvtalertscx. ControlSource = "m.cCodeFile" Enabled = .T. Height = 25 Left = 156 ReadOnly = .T. Top = 97 Width = 170 Name = "txtCodeFile" commandbuttont commandbutton[ cmdCodeFileS cvtalertscx.uA eTop = 97 Left = 336 Height = 25 Width = 25 Caption = "..." Enabled = .F. Name = "cmdCodeFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cCodeFile = LOWER(PUTFILE(C_SELCODEFILE_LOC,cCodeFile,"PRG")) THISFORM.txtCodeFile.Refresh IF !EMPTY(m.cCodeFile) AND ((m.llog AND !EMPTY(m.cLogFile)) OR !m.llog) THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC Select file for screen code: CCODEFILE THISFORM TXTCODEFILE REFRESH CLOGFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx label label ,-./0123 lblAlertMsgE cvtalertscx. BackColor = 192,192,192 Caption = (cAlertMsg) Height = 61 Left = 24 Top = 12 Width = 325 WordWrap = .T. Name = "lblAlertMsg" cvtalertscx Class ,Alert displayed when converting non-projectsPQ Pixels cvtscx.h cvtalertscx cvtalert.vcx Pixels cvtalertcat Top = 29 Left = 126 Height = 230 Width = 375 Name = "cvtalertcat" optiongroup1.option1.Value = 1 optiongroup1.option1.Left = 5 optiongroup1.option1.Top = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Left = 5 optiongroup1.option2.Top = 25 optiongroup1.ControlSource = "nOptDev" optiongroup1.Left = 12 optiongroup1.Top = 124 cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.Left = 60 cmd1.Top = 184 txtCodeFile.Left = 156 txtCodeFile.Top = 148 cmdCodeFile.Top = 148 cmdCodeFile.Left = 336 lblAlertMsg.Caption = (cAlertMsg) lblAlertMsg.Height = 76 lblAlertMsg.Left = 24 lblAlertMsg.Top = 12 lblAlertMsg.Width = 325 checkbox checkbox check1463 GJ??J cvtalertcat.-9 Top = 105 Left = 18 Height = 25 Width = 114 BackColor = 192,192,192 Caption = "Create \<log file" ControlSource = "lLog" Name = "check1" ]+++<M PROCEDURE Click THISFORM.txtLogFile.Enabled = THIS.value THISFORM.cmdLogFile.Enabled = THIS.value IF THIS.value AND EMPTY(m.cLogFile) THISFORM.cmd1.command1.Enabled = .F. THISFORM.cmdLogFile.Click THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC +*)('&% THISFORM TXTLOGFILE ENABLED VALUE CMDLOGFILE CLOGFILE COMMAND1 CLICK Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx screen. Printjobs cannot be nes textboxand failed. Printe textbox Invalid SET expre txtLogFilereate temporarj cvtalertcat. ControlSource = "m.cLogFile" Enabled = .F. Height = 25 Left = 156 ReadOnly = .T. Top = 97 Width = 170 Name = "txtLogFile" commandbutton commandbutton cmdLogFile cvtalertcat. dTop = 97 Left = 336 Height = 25 Width = 25 Caption = "..." Enabled = .F. Name = "cmdLogFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE C_LOGEXT "LOG" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 IF EMPTY(m.cLogFile) m.cLogFile = JUSTSTEM(m.cFileName) + "." + C_LOGEXT ENDIF cLogFile = LOWER(PUTFILE(C_SELLOGFILE_LOC,cLogFile,C_LOGEXT)) 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 Select the log file CLOGFILE JUSTSTEM CFILENAME THISFORM TXTLOGFILE REFRESH NOPTDEV CCODEFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx name. Incorrect colum cvtalertcat transaction t cvtalertscxnment level pr 4llegal call while execut Class() sequence. Illegal Pixelsecuting a SQLMORERE cvtalertscxal call while cvtalert.vcxS() sequence. forml while executing a S Pixels cvtalertcat Top = 125 Left = 133 Height = 230 Width = 375 Name = "cvtalertcat" optiongroup1.option1.Value = 1 optiongroup1.option1.Left = 5 optiongroup1.option1.Top = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Left = 5 optiongroup1.option2.Top = 25 optiongroup1.ControlSource = "nOptDev" optiongroup1.Left = 12 optiongroup1.Top = 124 cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.Left = 60 cmd1.Top = 184 txtCodeFile.Left = 156 txtCodeFile.Top = 148 cmdCodeFile.Top = 148 cmdCodeFile.Left = 336 lblAlertMsg.Caption = (cAlertMsg) lblAlertMsg.Height = 76 lblAlertMsg.Left = 24 lblAlertMsg.Top = 12 lblAlertMsg.Width = 325 checkbox 4SVWU checkboxD$ check1 cvtalertcat. D$ Pj Top = 105 Left = 18 Height = 25 Width = 114 BackColor = 192,192,192 Caption = "Create \<log file" ControlSource = "lLog" Name = "check1" PROCEDURE Click THISFORM.txtLogFile.Enabled = THIS.value THISFORM.cmdLogFile.Enabled = THIS.value IF THIS.value AND EMPTY(m.cLogFile) THISFORM.cmd1.command1.Enabled = .F. THISFORM.cmdLogFile.Click THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC THISFORM TXTLOGFILE ENABLED VALUE CMDLOGFILE CLOGFILE COMMAND1 CLICK Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx textbox textbox txtLogFile cvtalertcat.. ControlSource = "m.cLogFile" Enabled = .F. Height = 25 Left = 156 ReadOnly = .T. Top = 97 Width = 170 Name = "txtLogFile" commandbutton commandbutton cmdLogFile! cvtalertcat. dTop = 97 Left = 336 Height = 25 Width = 25 Caption = "..." Enabled = .F. Name = "cmdLogFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE C_LOGEXT "LOG" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 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,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 Select the log file COLDLOG CLOGFILE JUSTSTEM CFILENAME THISFORM TXTLOGFILE REFRESH NOPTDEV CCODEFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertcat SQRjBj cvtalertscxP Class Pixels cvtalertcat cvtalert.vcx^[ Pixels cvtalertpjx .Top = 113 Left = 133 Height = 255 Width = 375 Name = "cvtalertpjx" optiongroup1.option1.Value = 1 optiongroup1.option1.Left = 5 optiongroup1.option1.Top = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Left = 5 optiongroup1.option2.Top = 25 optiongroup1.Left = 12 optiongroup1.Top = 148 cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.ControlSource = "nCvt" cmd1.Left = 60 cmd1.Top = 208 txtCodeFile.Left = 156 txtCodeFile.Top = 172 cmdCodeFile.Top = 172 cmdCodeFile.Left = 336 lblAlertMsg.Caption = (cAlertMsg) lblAlertMsg.Height = 70 lblAlertMsg.Left = 24 lblAlertMsg.Top = 12 lblAlertMsg.Width = 325 check1.Top = 129 check1.Left = 24 txtLogFile.Left = 156 txtLogFile.Top = 121 cmdLogFile.Top = 121 cmdLogFile.Left = 336 PROCEDURE getbackdir #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 *---------------------------------- * FUNCTION GetBackDir *---------------------------------- PRIVATE cBackdef, nTmpCount, cTmpDir m.nTmpCount = 0 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.Click IF nCvt = 1 THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS NCVTC THISFORM GETBACKDIR getbackdir, cmd1.Clicke c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx *getbackdir Get a backupDir label-f label label1 cvtalertpjx. BackColor = 192,192,192 Caption = "Create backup directory here" Height = 38 Left = 21 Top = 89 Width = 133 WordWrap = .T. Name = "label1" textbox textbox txtBackDiru cvtalertpjx.kE*- FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 BackColor = 255,255,255 BorderStyle = 1 Value = ControlSource = "m.cBackDir" DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 Format = "" Height = 25 HelpContextID = 0 HideSelection = .T. InputMask = "" Left = 156 Margin = 2 MaxLength = 275 MousePointer = 0 ReadOnly = .F. SelLength = 0 SelStart = 0 SelText = "" SpecialEffect = 0 StatusBarText = "" TabIndex = 0 TabStop = .T. Tag = "" TerminateRead = .F. ToolTipText = "" Top = 89 Visible = .T. Width = 170 ReleaseErase = .T. DisabledForeColor = 128,128,128 DisabledBackColor = 255,255,255 SelectedForeColor = 255,255,255 SelectedBackColor = 0,0,192 ColorSource = 0 ColorScheme = 1 BaseClass = "Textbox" ParentClass = "" ClassLibrary = "" Class = "Textbox" Name = "txtBackDir" commandbuttonk commandbutton cmdBackDir cvtalertpjx. ^DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Top = 87 Left = 336 Height = 25 Width = 25 FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. AutoSize = .F. Picture = d:\temp\ DownPicture = d:\temp\ DisabledPicture = d:\temp\ Cancel = .F. Caption = "..." Value = 0 ControlSource = "" Default = .F. DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 HelpContextID = 0 MousePointer = 0 StatusBarText = "" Style = 0 TabIndex = 0 TabStop = .T. Tag = "" ToolTipText = "" TerminateRead = .F. Visible = .T. ReleaseErase = .T. DisabledForeColor = 128,128,128 ColorSource = 0 ColorScheme = 1 BaseClass = "Commandbutton" ParentClass = "" ClassLibrary = "" Class = "Commandbutton" Name = "cmdBackDir" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 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,m.cBackDir) THISFORM.txtBackDir.Refresh ENDPROC Select a backup directory: COLDDIR CBACKDIR THISFORM TXTBACKDIR REFRESH Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx k]n-Nk cvtalertpjx cvtalertcatt ClassE Pixels Pixels cvtalertscx ,ScaleMode = 3 Top = 84 Left = 126 Height = 180 Width = 375 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "Conversion Options" Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 DefButton = DefButton LockScreen = .F. Name = "cvtalertscx" 8PROCEDURE Init THIS.cmd1.command1.SetFocus ENDPROC COMMAND1 SETFOCUS Init, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx optiongroup optiongroup} optiongroup1 cvtalertscx. QButtonCount = 2 BackColor = 192,192,192 BorderStyle = 0 Caption = "Optiongroup1" Value = 1 ControlSource = "nOptDev" Height = 49 Left = 12 Top = 73 Width = 133 TabIndex = 1 Name = "optiongroup1" Option1.BackColor = 192,192,192 Option1.Caption = "\<Standard Mode" Option1.Value = 1 Option1.Height = 18 Option1.Left = 5 Option1.Top = 5 Option1.Width = 140 Option1.Name = "option1" Option2.BackColor = 192,192,192 Option2.Caption = "\<Developer Mode" Option2.Value = 0 Option2.Height = 18 Option2.Left = 5 Option2.Top = 25 Option2.Width = 140 Option2.Name = "option2" BPROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF THISFORM.cmdCodeFile.Enabled = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC NOPTDEV THISFORM CMDCODEFILE ENABLED CCODEFILE COMMAND1 LDEVMODE Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx commandgroup commandgroup cvtalertscx.j "ButtonCount = 2 BackColor = 192,192,192 BorderStyle = 0 Caption = "Commandgroup1" Value = 1 ControlSource = "m.nCvt" Height = 49 Left = 60 TerminateRead = .T. Top = 133 Width = 253 TabIndex = 3 Name = "cmd1" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.Caption = "Continue" Command1.Default = .T. Command1.Name = "command1" Command2.Top = 5 Command2.Left = 154 Command2.Height = 29 Command2.Width = 94 Command2.Cancel = .T. Command2.Caption = "Cancel" Command2.Name = "command2" PROCEDURE Click IF m.nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE command1.Click THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC THISFORM# THISFORM VALUE CLICK# THISFORM VALUE CLICK Click, command1.Clickf command2.Click c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx @3K XXX textboxXXXXXXXXXXXXXXXXXX textbox txtCodeFileu PP_^[ cvtalertscx.uE ControlSource = "m.cCodeFile" Enabled = .T. Height = 25 Left = 156 ReadOnly = .T. TabIndex = 0 TabStop = .F. Top = 97 Width = 170 Name = "txtCodeFile" commandbuttont| commandbutton\ cmdCodeFilet< cvtalertscx. sTop = 97 Left = 336 Height = 25 Width = 25 Caption = "..." Enabled = .F. TabIndex = 2 Name = "cmdCodeFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cCodeFile = LOWER(PUTFILE(C_SELCODEFILE_LOC,cCodeFile,"PRG")) THISFORM.txtCodeFile.Refresh IF !EMPTY(m.cCodeFile) AND ((m.llog AND !EMPTY(m.cLogFile)) OR !m.llog) THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC @*RVN Sa Select file for screen code: CCODEFILE THISFORM TXTCODEFILE REFRESH CLOGFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx label label lblAlertMsgP cvtalertscx.$ BackColor = 192,192,192 Caption = (cAlertMsg) Height = 61 Left = 24 Top = 12 Width = 325 WordWrap = .T. Name = "lblAlertMsg" cvtalertscx Class( ,Alert displayed when converting non-projectsP Pixelsu cvtscx.h cvtalertscx cvtalert.vcx| Pixels cvtalertcat Top = 44 Left = 108 Height = 230 Width = 375 Name = "cvtalertcat" optiongroup1.option1.Value = 1 optiongroup1.option1.Left = 5 optiongroup1.option1.Top = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Left = 5 optiongroup1.option2.Top = 25 optiongroup1.ControlSource = "nOptDev" optiongroup1.Left = 12 optiongroup1.Top = 124 optiongroup1.TabIndex = 3 cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.Left = 60 cmd1.Top = 184 cmd1.TabIndex = 5 txtCodeFile.Left = 156 txtCodeFile.TabIndex = 0 txtCodeFile.Top = 148 cmdCodeFile.Top = 148 cmdCodeFile.Left = 336 cmdCodeFile.TabIndex = 4 lblAlertMsg.Caption = (cAlertMsg) lblAlertMsg.Height = 76 lblAlertMsg.Left = 24 lblAlertMsg.Top = 12 lblAlertMsg.Width = 325 checkbox script generated checkboxge Wizard. Launch check1ally complete the m cvtalertcat. Applescript Top = 105 Left = 18 Height = 25 Width = 114 BackColor = 192,192,192 Caption = "Create \<log file" ControlSource = "lLog" TabIndex = 1 Name = "check1" il Merge Wizard ("&wzsmsg"). La PROCEDURE Click THISFORM.txtLogFile.Enabled = THIS.value THISFORM.cmdLogFile.Enabled = THIS.value IF THIS.value AND EMPTY(m.cLogFile) THISFORM.cmd1.command1.Enabled = .F. THISFORM.cmdLogFile.Click THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC THISFORM TXTLOGFILE ENABLED VALUE CMDLOGFILE CLOGFILE COMMAND1 CLICK Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx LEDGER textboxT PRESENT textbox EXECU txtLogFile SGETRST cvtalertcat. ControlSource = "m.cLogFile" Enabled = .F. Height = 25 Left = 156 ReadOnly = .T. TabIndex = 0 Top = 97 Width = 170 Name = "txtLogFile" commandbutton commandbutton1 cmdLogFile( cvtalertcat.VW rTop = 97 Left = 336 Height = 25 Width = 25 Caption = "..." Enabled = .F. TabIndex = 2 Name = "cmdLogFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE C_LOGEXT "LOG" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 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,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 Select the log file COLDLOG CLOGFILE JUSTSTEM CFILENAME THISFORM TXTLOGFILE REFRESH NOPTDEV CCODEFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertcat cvtalertscx Class Pixels cvtalertcat cvtalert.vcx Pixels cvtalertpjx Top = 113 Left = 133 Height = 255 Width = 375 Name = "cvtalertpjx" optiongroup1.option1.Value = 1 optiongroup1.option1.Left = 5 optiongroup1.option1.Top = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Left = 5 optiongroup1.option2.Top = 25 optiongroup1.Left = 12 optiongroup1.Top = 148 optiongroup1.TabIndex = 4 cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.ControlSource = "nCvt" cmd1.Left = 60 cmd1.Top = 208 cmd1.TabIndex = 6 txtCodeFile.Left = 156 txtCodeFile.TabIndex = 0 txtCodeFile.Top = 172 cmdCodeFile.Top = 172 cmdCodeFile.Left = 336 cmdCodeFile.TabIndex = 5 lblAlertMsg.Caption = (cAlertMsg) lblAlertMsg.Height = 70 lblAlertMsg.Left = 24 lblAlertMsg.Top = 12 lblAlertMsg.Width = 325 check1.Top = 129 check1.Left = 24 check1.TabIndex = 2 txtLogFile.Left = 156 txtLogFile.TabIndex = 0 txtLogFile.Top = 121 cmdLogFile.Top = 121 cmdLogFile.Left = 336 cmdLogFile.TabIndex = 3 PROCEDURE getbackdir #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 *---------------------------------- * FUNCTION GetBackDir *---------------------------------- PRIVATE cBackdef, nTmpCount, cTmpDir m.nTmpCount = 0 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.Click IF nCvt = 1 THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS NCVTC THISFORM GETBACKDIR getbackdir, cmd1.Clicke c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx *getbackdir Get a backupDir labelww label label1 cvtalertpjx. BackColor = 192,192,192 Caption = "Create backup directory here" Height = 38 Left = 21 Top = 89 Width = 133 WordWrap = .T. Name = "label1" textbox textbox txtBackDir cvtalertpjx. FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 BackColor = 255,255,255 BorderStyle = 1 Value = ControlSource = "m.cBackDir" DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 Format = "" Height = 25 HelpContextID = 0 HideSelection = .T. InputMask = "" Left = 156 Margin = 2 MaxLength = 275 MousePointer = 0 ReadOnly = .F. SelLength = 0 SelStart = 0 SelText = "" SpecialEffect = 0 StatusBarText = "" TabIndex = 0 TabStop = .T. Tag = "" TerminateRead = .F. ToolTipText = "" Top = 89 Visible = .T. Width = 170 ReleaseErase = .T. DisabledForeColor = 128,128,128 DisabledBackColor = 255,255,255 SelectedForeColor = 255,255,255 SelectedBackColor = 0,0,192 ColorSource = 0 ColorScheme = 1 BaseClass = "Textbox" ParentClass = "" ClassLibrary = "" Class = "Textbox" Name = "txtBackDir" commandbuttonww wwwxwxx commandbutton cmdBackDirww cvtalertpjx. ^DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Top = 87 Left = 336 Height = 25 Width = 25 FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. AutoSize = .F. Picture = d:\temp\ DownPicture = d:\temp\ DisabledPicture = d:\temp\ Cancel = .F. Caption = "..." Value = 0 ControlSource = "" Default = .F. DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 HelpContextID = 0 MousePointer = 0 StatusBarText = "" Style = 0 TabIndex = 1 TabStop = .T. Tag = "" ToolTipText = "" TerminateRead = .F. Visible = .T. ReleaseErase = .T. DisabledForeColor = 128,128,128 ColorSource = 0 ColorScheme = 1 BaseClass = "Commandbutton" ParentClass = "" ClassLibrary = "" Class = "Commandbutton" Name = "cmdBackDir" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 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,m.cBackDir) THISFORM.txtBackDir.Refresh ENDPROC Select a backup directory: COLDDIR CBACKDIR THISFORM TXTBACKDIR REFRESH Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertpjx cvtalertcat Class Pixels cvtalertcat cvtalert.vcx Pixels cvtalertpjx Top = 113 Left = 133 Height = 255 Width = 375 Name = "cvtalertpjx" optiongroup1.option1.Value = 1 optiongroup1.option1.Left = 5 optiongroup1.option1.Top = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Left = 5 optiongroup1.option2.Top = 25 optiongroup1.Left = 12 optiongroup1.Top = 148 optiongroup1.TabIndex = 4 cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.ControlSource = "nCvt" cmd1.Left = 60 cmd1.Top = 208 cmd1.TabIndex = 6 txtCodeFile.Left = 156 txtCodeFile.TabIndex = 0 txtCodeFile.Top = 172 cmdCodeFile.Top = 172 cmdCodeFile.Left = 336 cmdCodeFile.TabIndex = 5 lblAlertMsg.Caption = (cAlertMsg) lblAlertMsg.Height = 70 lblAlertMsg.Left = 24 lblAlertMsg.Top = 12 lblAlertMsg.Width = 325 check1.Top = 129 check1.Left = 24 check1.TabIndex = 2 txtLogFile.Left = 156 txtLogFile.TabIndex = 0 txtLogFile.Top = 121 cmdLogFile.Top = 121 cmdLogFile.Left = 336 cmdLogFile.TabIndex = 3 fffff PROCEDURE getbackdir #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 *---------------------------------- * FUNCTION GetBackDir *---------------------------------- PRIVATE cBackdef, nTmpCount, cTmpDir m.nTmpCount = 0 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.Click IF nCvt = 1 THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS NCVTC THISFORM GETBACKDIR getbackdir, cmd1.Clicke c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx *getbackdir Get a backupDir label label pwwwwxw label1 cvtalertpjx. BackColor = 192,192,192 Caption = "Create backup directory here" Height = 38 Left = 21 Top = 89 Width = 133 WordWrap = .T. Name = "label1" textbox textbox txtBackDir cvtalertpjx. FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 BackColor = 255,255,255 BorderStyle = 1 Value = ControlSource = "m.cBackDir" DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 Format = "" Height = 25 HelpContextID = 0 HideSelection = .T. InputMask = "" Left = 156 Margin = 2 MaxLength = 254 MousePointer = 0 ReadOnly = .F. SelLength = 0 SelStart = 0 SelText = "" SpecialEffect = 0 StatusBarText = "" TabIndex = 0 TabStop = .T. Tag = "" TerminateRead = .F. ToolTipText = "" Top = 89 Visible = .T. Width = 170 ReleaseErase = .T. DisabledForeColor = 128,128,128 DisabledBackColor = 255,255,255 SelectedForeColor = 255,255,255 SelectedBackColor = 0,0,192 ColorSource = 0 ColorScheme = 1 BaseClass = "Textbox" ParentClass = "" ClassLibrary = "" Class = "Textbox" Name = "txtBackDir" commandbutton commandbutton cmdBackDir cvtalertpjx. ^DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Top = 87 Left = 336 Height = 25 Width = 25 FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. AutoSize = .F. Picture = d:\temp\ DownPicture = d:\temp\ DisabledPicture = d:\temp\ Cancel = .F. Caption = "..." Value = 0 ControlSource = "" Default = .F. DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 HelpContextID = 0 MousePointer = 0 StatusBarText = "" Style = 0 TabIndex = 1 TabStop = .T. Tag = "" ToolTipText = "" TerminateRead = .F. Visible = .T. ReleaseErase = .T. DisabledForeColor = 128,128,128 ColorSource = 0 ColorScheme = 1 BaseClass = "Commandbutton" ParentClass = "" ClassLibrary = "" Class = "Commandbutton" Name = "cmdBackDir" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 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,m.cBackDir) THISFORM.txtBackDir.Refresh ENDPROC Select a backup directory: COLDDIR CBACKDIR THISFORM TXTBACKDIR REFRESH Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertpjx wvfffff cvtalertcat Class ffffff ffffff Pixels cvtalertcat cvtalert.vcx fffffhf Pixels cvtalertpjx Top = 113 Left = 133 Height = 255 Width = 375 Name = "cvtalertpjx" optiongroup1.option1.Value = 1 optiongroup1.option1.Left = 5 optiongroup1.option1.Top = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Left = 5 optiongroup1.option2.Top = 25 optiongroup1.Left = 12 optiongroup1.Top = 148 optiongroup1.TabIndex = 4 cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.ControlSource = "nCvt" cmd1.Left = 60 cmd1.Top = 208 cmd1.TabIndex = 6 txtCodeFile.Left = 156 txtCodeFile.TabIndex = 0 txtCodeFile.Top = 172 cmdCodeFile.Top = 172 cmdCodeFile.Left = 336 cmdCodeFile.TabIndex = 5 lblAlertMsg.Caption = (cAlertMsg) lblAlertMsg.Height = 70 lblAlertMsg.Left = 24 lblAlertMsg.Top = 12 lblAlertMsg.Width = 325 check1.Top = 129 check1.Left = 24 check1.TabIndex = 2 txtLogFile.Left = 156 txtLogFile.TabIndex = 0 txtLogFile.Top = 121 cmdLogFile.Top = 121 cmdLogFile.Left = 336 cmdLogFile.TabIndex = 3 PROCEDURE getbackdir #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 *---------------------------------- * FUNCTION GetBackDir *---------------------------------- PRIVATE cBackdef, nTmpCount, cTmpDir m.nTmpCount = 0 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.Click IF nCvt = 1 THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS NCVTC THISFORM GETBACKDIR getbackdir, cmd1.Clicke c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx *getbackdir Get a backupDir fffffffffff label label label1 fffffffff cvtalertpjx. BackColor = 192,192,192 Caption = "Create backup directory here" Height = 38 Left = 21 Top = 89 Width = 133 WordWrap = .T. Name = "label1" textbox textbox txtBackDir cvtalertpjx. FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 BackColor = 255,255,255 BorderStyle = 1 Value = ControlSource = "m.cBackDir" DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 Format = "" Height = 25 HelpContextID = 0 HideSelection = .T. InputMask = "" Left = 156 Margin = 2 MaxLength = 254 MousePointer = 0 ReadOnly = .F. SelLength = 0 SelStart = 0 SelText = "" SpecialEffect = 0 StatusBarText = "" TabIndex = 0 TabStop = .T. Tag = "" TerminateRead = .F. ToolTipText = "" Top = 89 Visible = .T. Width = 170 ReleaseErase = .T. DisabledForeColor = 128,128,128 DisabledBackColor = 255,255,255 SelectedForeColor = 255,255,255 SelectedBackColor = 0,0,192 ColorSource = 0 ColorScheme = 1 BaseClass = "Textbox" ParentClass = "" ClassLibrary = "" Class = "Textbox" Name = "txtBackDir" commandbuttonh commandbutton cmdBackDir cvtalertpjx. ^DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Top = 87 Left = 336 Height = 25 Width = 25 FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. AutoSize = .F. Picture = d:\temp\ DownPicture = d:\temp\ DisabledPicture = d:\temp\ Cancel = .F. Caption = "..." Value = 0 ControlSource = "" Default = .F. DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 HelpContextID = 0 MousePointer = 0 StatusBarText = "" Style = 0 TabIndex = 1 TabStop = .T. Tag = "" ToolTipText = "" TerminateRead = .F. Visible = .T. ReleaseErase = .T. DisabledForeColor = 128,128,128 ColorSource = 0 ColorScheme = 1 BaseClass = "Commandbutton" ParentClass = "" ClassLibrary = "" Class = "Commandbutton" Name = "cmdBackDir" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 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,m.cBackDir) THISFORM.txtBackDir.Refresh ENDPROC 80``g xp```p8? Select a backup directory: COLDDIR CBACKDIR THISFORM TXTBACKDIR REFRESH Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertpjx cvtalertcat 0!acccc!1 Class Pixels ``p08 ??00000??000000 Pixels cvtalertscx``p08 -ScaleMode = 3 Top = 150 Left = 133 Height = 180 Width = 390 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Caption = "Conversion Options" Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 DefButton = DefButton LockScreen = .F. Name = "cvtalertscx" 8PROCEDURE Init THIS.cmd1.command1.SetFocus ENDPROC COMMAND1 SETFOCUS Init, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx optiongroup optiongroup optiongroup1 cvtalertscx. XButtonCount = 2 BackColor = 192,192,192 BorderStyle = 0 Caption = "Optiongroup1" Value = 1 ControlSource = "nOptDev" Height = 49 Left = 12 Top = 73 Width = 148 TabIndex = 1 Name = "optiongroup1" Option1.BackColor = 192,192,192 Option1.Caption = "\<Full conversion" Option1.Value = 1 Option1.Height = 18 Option1.Left = 5 Option1.Top = 5 Option1.Width = 140 Option1.Name = "option1" Option2.BackColor = 192,192,192 Option2.Caption = "\<Visual Objects Only" Option2.Value = 0 Option2.Height = 18 Option2.Left = 5 Option2.Top = 25 Option2.Width = 140 Option2.Name = "option2" BPROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF THISFORM.cmdCodeFile.Enabled = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC NOPTDEV THISFORM CMDCODEFILE ENABLED CCODEFILE COMMAND1 LDEVMODE Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx commandgroupj commandgroup cvtalertscx.u + "ButtonCount = 2 BackColor = 192,192,192 BorderStyle = 0 Caption = "Commandgroup1" Value = 1 ControlSource = "m.nCvt" Height = 49 Left = 68 TerminateRead = .T. Top = 133 Width = 253 TabIndex = 3 Name = "cmd1" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.Caption = "Continue" Command1.Default = .T. Command1.Name = "command1" Command2.Top = 5 Command2.Left = 154 Command2.Height = 29 Command2.Width = 94 Command2.Cancel = .T. Command2.Caption = "Cancel" Command2.Name = "command2" PROCEDURE Click IF m.nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE command1.Click THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC THISFORM# THISFORM VALUE CLICK# THISFORM VALUE CLICK Click, command1.Clickf command2.Click c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx textbox textboxF txtCodeFile cvtalertscx. ControlSource = "m.cCodeFile" Enabled = .T. Height = 25 Left = 171 ReadOnly = .T. TabIndex = 0 TabStop = .F. Top = 97 Width = 170 Name = "txtCodeFile" commandbutton& commandbutton cmdCodeFile^ cvtalertscx. sTop = 97 Left = 351 Height = 25 Width = 25 Caption = "..." Enabled = .F. TabIndex = 2 Name = "cmdCodeFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cCodeFile = LOWER(PUTFILE(C_SELCODEFILE_LOC,cCodeFile,"PRG")) THISFORM.txtCodeFile.Refresh IF !EMPTY(m.cCodeFile) AND ((m.llog AND !EMPTY(m.cLogFile)) OR !m.llog) THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC Select file for screen code: CCODEFILE THISFORM TXTCODEFILE REFRESH CLOGFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx label label lblAlertMsg cvtalertscx. BackColor = 192,192,192 Caption = (cAlertMsg) Height = 61 Left = 24 Top = 12 Width = 340 WordWrap = .T. Name = "lblAlertMsg" cvtalertscx Class ,Alert displayed when converting non-projects Pixels cvtscx.h cvtalertscx cvtalert.vcx Pixels cvtalertcat Top = 45 Left = 116 Height = 230 Width = 375 Name = "cvtalertcat" optiongroup1.option1.Value = 1 optiongroup1.option1.Left = 5 optiongroup1.option1.Top = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Left = 5 optiongroup1.option2.Top = 25 optiongroup1.ControlSource = "nOptDev" optiongroup1.Left = 12 optiongroup1.Top = 124 optiongroup1.TabIndex = 3 cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.Left = 60 cmd1.Top = 184 cmd1.TabIndex = 5 txtCodeFile.Left = 171 txtCodeFile.TabIndex = 0 txtCodeFile.Top = 148 cmdCodeFile.Top = 148 cmdCodeFile.Left = 351 cmdCodeFile.TabIndex = 4 lblAlertMsg.Caption = (cAlertMsg) lblAlertMsg.Height = 76 lblAlertMsg.Left = 24 lblAlertMsg.Top = 12 lblAlertMsg.Width = 325 checkbox checkbox check1 cvtalertcat.? 4 Top = 105 Left = 18 Height = 25 Width = 114 BackColor = 192,192,192 Caption = "Create \<log file" ControlSource = "lLog" TabIndex = 1 Name = "check1" PROCEDURE Click THISFORM.txtLogFile.Enabled = THIS.value THISFORM.cmdLogFile.Enabled = THIS.value IF THIS.value AND EMPTY(m.cLogFile) THISFORM.cmd1.command1.Enabled = .F. THISFORM.cmdLogFile.Click THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC THISFORM TXTLOGFILE ENABLED VALUE CMDLOGFILE CLOGFILE COMMAND1 CLICK Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx LE Client. support (c) Copyrigh textboxp. 1990 - All Righ textboxENQUERYBOUNDS` txtLogFile cvtalertcat. ControlSource = "m.cLogFile" Enabled = .F. Height = 25 Left = 171 ReadOnly = .T. TabIndex = 0 Top = 97 Width = 170 Name = "txtLogFile" commandbutton commandbutton cmdLogFile cvtalertcat. rTop = 97 Left = 351 Height = 25 Width = 25 Caption = "..." Enabled = .F. TabIndex = 2 Name = "cmdLogFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE C_LOGEXT "LOG" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 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,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 tdFileEditing Select the log file COLDLOG CLOGFILE JUSTSTEM CFILENAME THISFORM TXTLOGFILE REFRESH NOPTDEV CCODEFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertcat cvtalertscx Class Pixelsrmat cvtalertscx cvtalert.vcx Pixels cvtalertcat Top = 45 Left = 116 Height = 230 Width = 390 Name = "cvtalertcat" optiongroup1.option1.Value = 1 optiongroup1.option1.Left = 5 optiongroup1.option1.Top = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Left = 5 optiongroup1.option2.Top = 25 optiongroup1.ControlSource = "nOptDev" optiongroup1.Left = 12 optiongroup1.Top = 124 optiongroup1.TabIndex = 3 cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.Left = 68 cmd1.Top = 184 cmd1.TabIndex = 5 txtCodeFile.Left = 171 txtCodeFile.TabIndex = 0 txtCodeFile.Top = 148 cmdCodeFile.Top = 148 cmdCodeFile.Left = 351 cmdCodeFile.TabIndex = 4 lblAlertMsg.Caption = (cAlertMsg) lblAlertMsg.Height = 76 lblAlertMsg.Left = 24 lblAlertMsg.Top = 12 lblAlertMsg.Width = 325 checkbox checkbox check1 cvtalertcat. Top = 105 Left = 18 Height = 25 Width = 114 BackColor = 192,192,192 Caption = "Create \<log file" ControlSource = "lLog" TabIndex = 1 Name = "check1" PROCEDURE Click THISFORM.txtLogFile.Enabled = THIS.value THISFORM.cmdLogFile.Enabled = THIS.value IF THIS.value AND EMPTY(m.cLogFile) THISFORM.cmd1.command1.Enabled = .F. THISFORM.cmdLogFile.Click THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC THISFORM TXTLOGFILE ENABLED VALUE CMDLOGFILE CLOGFILE COMMAND1 CLICK Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx textbox textbox txtLogFile cvtalertcat. ControlSource = "m.cLogFile" Enabled = .F. Height = 25 Left = 171 ReadOnly = .T. TabIndex = 0 Top = 97 Width = 170 Name = "txtLogFile" commandbutton commandbutton cmdLogFile cvtalertcat. rTop = 97 Left = 351 Height = 25 Width = 25 Caption = "..." Enabled = .F. TabIndex = 2 Name = "cmdLogFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE C_LOGEXT "LOG" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 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,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 Select the log file COLDLOG CLOGFILE JUSTSTEM CFILENAME THISFORM TXTLOGFILE REFRESH NOPTDEV CCODEFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertcatL cvtalertscx Class Pixels cvtalertcat cvtalert.vcx Pixels cvtalertpjx Top = 61 Left = 128 Height = 255 Width = 390 Name = "cvtalertpjx" optiongroup1.option1.Value = 1 optiongroup1.option1.Left = 5 optiongroup1.option1.Top = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Left = 5 optiongroup1.option2.Top = 25 optiongroup1.Left = 12 optiongroup1.Top = 148 optiongroup1.TabIndex = 4 cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.ControlSource = "nCvt" cmd1.Left = 68 cmd1.Top = 208 cmd1.TabIndex = 6 txtCodeFile.Left = 171 txtCodeFile.TabIndex = 0 txtCodeFile.Top = 172 cmdCodeFile.Top = 172 cmdCodeFile.Left = 351 cmdCodeFile.TabIndex = 5 lblAlertMsg.Caption = (cAlertMsg) lblAlertMsg.Height = 70 lblAlertMsg.Left = 24 lblAlertMsg.Top = 12 lblAlertMsg.Width = 340 check1.Top = 129 check1.Left = 24 check1.TabIndex = 2 txtLogFile.Left = 171 txtLogFile.TabIndex = 0 txtLogFile.Top = 121 cmdLogFile.Top = 121 cmdLogFile.Left = 351 cmdLogFile.TabIndex = 3 PROCEDURE getbackdir #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 *---------------------------------- * FUNCTION GetBackDir *---------------------------------- PRIVATE cBackdef, nTmpCount, cTmpDir m.nTmpCount = 0 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.Click IF nCvt = 1 THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS NCVTC THISFORM GETBACKDIR getbackdir, cmd1.Clicke c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx *getbackdir Get a backupDir labelf label label1 cvtalertpjx. BackColor = 192,192,192 Caption = "Create backup directory here" Height = 38 Left = 21 Top = 89 Width = 133 WordWrap = .T. Name = "label1" textbox textbox txtBackDir cvtalertpjx. FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 BackColor = 255,255,255 BorderStyle = 1 Value = ControlSource = "m.cBackDir" DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 Format = "" Height = 25 HelpContextID = 0 HideSelection = .T. InputMask = "" Left = 171 Margin = 2 MaxLength = 254 MousePointer = 0 ReadOnly = .F. SelLength = 0 SelStart = 0 SelText = "" SpecialEffect = 0 StatusBarText = "" TabIndex = 0 TabStop = .T. Tag = "" TerminateRead = .F. ToolTipText = "" Top = 89 Visible = .T. Width = 170 ReleaseErase = .T. DisabledForeColor = 128,128,128 DisabledBackColor = 255,255,255 SelectedForeColor = 255,255,255 SelectedBackColor = 0,0,192 ColorSource = 0 ColorScheme = 1 BaseClass = "Textbox" ParentClass = "" ClassLibrary = "" Class = "Textbox" Name = "txtBackDir" commandbuttongf commandbuttonPf cmdBackDir cvtalertpjx. ^DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Top = 87 Left = 351 Height = 25 Width = 25 FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. AutoSize = .F. Picture = d:\temp\ DownPicture = d:\temp\ DisabledPicture = d:\temp\ Cancel = .F. Caption = "..." Value = 0 ControlSource = "" Default = .F. DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 HelpContextID = 0 MousePointer = 0 StatusBarText = "" Style = 0 TabIndex = 1 TabStop = .T. Tag = "" ToolTipText = "" TerminateRead = .F. Visible = .T. ReleaseErase = .T. DisabledForeColor = 128,128,128 ColorSource = 0 ColorScheme = 1 BaseClass = "Commandbutton" ParentClass = "" ClassLibrary = "" Class = "Commandbutton" Name = "cmdBackDir" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 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,m.cBackDir) THISFORM.txtBackDir.Refresh ENDPROC Select a backup directory: COLDDIR CBACKDIR THISFORM TXTBACKDIR REFRESH Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertpjx cvtalertcat Class Pixels cvtalertscx cvtalert.vcx Pixels cvtalertcat Top = 125 Left = 125 Height = 230 Width = 390 Name = "cvtalertcat" optiongroup1.option1.Value = 1 optiongroup1.option1.Left = 5 optiongroup1.option1.Top = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Left = 5 optiongroup1.option2.Top = 25 optiongroup1.ControlSource = "nOptDev" optiongroup1.Left = 12 optiongroup1.Top = 124 optiongroup1.TabIndex = 3 cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.Left = 68 cmd1.Top = 184 cmd1.TabIndex = 5 txtCodeFile.Left = 171 txtCodeFile.TabIndex = 0 txtCodeFile.Top = 148 cmdCodeFile.Top = 148 cmdCodeFile.Left = 351 cmdCodeFile.TabIndex = 4 lblAlertMsg.Caption = (cAlertMsg) lblAlertMsg.Height = 76 lblAlertMsg.Left = 24 lblAlertMsg.Top = 12 lblAlertMsg.Width = 340 checkbox checkbox check1 cvtalertcat. Top = 105 Left = 18 Height = 25 Width = 114 BackColor = 192,192,192 Caption = "Create \<log file" ControlSource = "lLog" TabIndex = 1 Name = "check1" PROCEDURE Click THISFORM.txtLogFile.Enabled = THIS.value THISFORM.cmdLogFile.Enabled = THIS.value IF THIS.value AND EMPTY(m.cLogFile) THISFORM.cmd1.command1.Enabled = .F. THISFORM.cmdLogFile.Click THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC THISFORM TXTLOGFILE ENABLED VALUE CMDLOGFILE CLOGFILE COMMAND1 CLICK Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx textbox textbox txtLogFile cvtalertcat. ControlSource = "m.cLogFile" Enabled = .F. Height = 25 Left = 171 ReadOnly = .T. TabIndex = 0 Top = 97 Width = 170 Name = "txtLogFile" commandbutton commandbutton cmdLogFile cvtalertcat. rTop = 97 Left = 351 Height = 25 Width = 25 Caption = "..." Enabled = .F. TabIndex = 2 Name = "cmdLogFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE C_LOGEXT "LOG" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 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,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 Select the log file COLDLOG CLOGFILE JUSTSTEM CFILENAME THISFORM TXTLOGFILE REFRESH NOPTDEV CCODEFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertcatf cvtalertscxD ClassX PixelsF Pixels cvtalertscx -ScaleMode = 3 Caption = "Conversion Options" Top = 150 Left = 125 Height = 180 Width = 390 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 DefButton = DefButton LockScreen = .F. Name = "cvtalertscx" 8PROCEDURE Init THIS.cmd1.command1.SetFocus ENDPROC COMMAND1 SETFOCUS Init, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx optiongroup optiongroup optiongroup1 cvtalertscx. VButtonCount = 2 Caption = "Optiongroup1" Top = 73 Left = 12 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "nOptDev" Height = 49 Width = 148 TabIndex = 1 Name = "optiongroup1" Option1.Caption = "\<Full conversion" Option1.Top = 5 Option1.Left = 5 Option1.Height = 18 Option1.Width = 140 Option1.Value = 1 Option1.BackColor = 192,192,192 Option1.Name = "option1" Option2.Caption = "\<Visual Conversion" Option2.Top = 25 Option2.Left = 5 Option2.Height = 18 Option2.Width = 140 Option2.Value = 0 Option2.BackColor = 192,192,192 Option2.Name = "option2" BPROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF THISFORM.cmdCodeFile.Enabled = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC NOPTDEV THISFORM CMDCODEFILE ENABLED CCODEFILE COMMAND1 LDEVMODE Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx commandgroup commandgroupameter is inv cvtalertscx. "ButtonCount = 2 Caption = "Commandgroup1" Top = 133 Left = 68 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "m.nCvt" Height = 49 TerminateRead = .T. Width = 253 TabIndex = 3 Name = "cmd1" Command1.Caption = "Continue" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.Default = .T. Command1.Name = "command1" Command2.Caption = "Cancel" Command2.Top = 5 Command2.Left = 154 Command2.Height = 29 Command2.Width = 94 Command2.Cancel = .T. Command2.Name = "command2" PROCEDURE Click IF m.nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE command1.Click THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC THISFORM# THISFORM VALUE CLICK# THISFORM VALUE CLICK Click, command1.Clickf command2.Click c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx textbox textboxN txtCodeFile} cvtalertscx.M Top = 97 Left = 171 ControlSource = "m.cCodeFile" Enabled = .T. Height = 25 ReadOnly = .T. TabIndex = 0 TabStop = .F. Width = 170 Name = "txtCodeFile" commandbutton commandbutton cmdCodeFile cvtalertscx. sCaption = "..." Top = 97 Left = 351 Height = 25 Width = 25 Enabled = .F. TabIndex = 2 Name = "cmdCodeFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cCodeFile = LOWER(PUTFILE(C_SELCODEFILE_LOC,cCodeFile,"PRG")) THISFORM.txtCodeFile.Refresh IF !EMPTY(m.cCodeFile) AND ((m.llog AND !EMPTY(m.cLogFile)) OR !m.llog) THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC Select file for screen code: CCODEFILE THISFORM TXTCODEFILE REFRESH CLOGFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx label label lblAlertMsg cvtalertscx.dk.mvb Caption = (cAlertMsg) Top = 12 Left = 24 BackColor = 192,192,192 Height = 61 Width = 340 WordWrap = .T. Name = "lblAlertMsg" ment file not found. cvtalertscx msodk.mvb Class parameter. ,Alert displayed when converting non-projects Pixels msodk.mvb cvtscx.ht in NET/PO param Pixels msodk.mvb cvtalertscxvalid, unknown -ScaleMode = 3 Caption = "Conversion Options" Top = 102 Left = 122 Height = 180 Width = 390 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 DefButton = DefButton LockScreen = .F. Name = "cvtalertscx" PROCEDURE Init THIS.cmd1.command1.SetFocus IF m.cConvType = C_REPORTTYPEPARM THIS.optionGroup1.enabled = .F. THIS.optionGroup1.option1.enabled = .F. THIS.optionGroup1.option2.enabled = .F. ENDIF ENDPROC COMMAND1 SETFOCUS CCONVTYPE C_REPORTTYPEPARM OPTIONGROUP1 ENABLED OPTION1 OPTION2 Init, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx optiongroupL optiongroup optiongroup1 cvtalertscx. ButtonCount = 2 Caption = "Optiongroup1" Top = 73 Left = 12 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "nOptDev" Height = 49 Width = 148 TabIndex = 1 Name = "optiongroup1" Option1.Caption = "\<Full conversion" Option1.Top = 5 Option1.Left = 5 Option1.Height = 18 Option1.Width = 140 Option1.Value = 1 Option1.BackColor = 192,192,192 Option1.DisabledBackColor = 192,192,192 Option1.Name = "option1" Option2.Caption = "\<Visual Conversion" Option2.Top = 25 Option2.Left = 5 Option2.Height = 18 Option2.Width = 140 Option2.Value = 0 Option2.BackColor = 192,192,192 Option2.DisabledBackColor = 192,192,192 Option2.Name = "option2" BPROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF THISFORM.cmdCodeFile.Enabled = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC NOPTDEV THISFORM CMDCODEFILE ENABLED CCODEFILE COMMAND1 LDEVMODE Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx ice name. commandgroup commandgroupdk.mvb cmd1to locate network nam cvtalertscx. "ButtonCount = 2 Caption = "Commandgroup1" Top = 133 Left = 68 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "m.nCvt" Height = 49 TerminateRead = .T. Width = 253 TabIndex = 3 Name = "cmd1" Command1.Caption = "Continue" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.Default = .T. Command1.Name = "command1" Command2.Caption = "Cancel" Command2.Top = 5 Command2.Left = 154 Command2.Height = 29 Command2.Width = 94 Command2.Cancel = .T. Command2.Name = "command2" PROCEDURE Click IF m.nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE command1.Click THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC THISFORM# THISFORM VALUE CLICK# THISFORM VALUE CLICK Click, command1.Clickf command2.Click c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx textbox textbox txtCodeFile cvtalertscx. Top = 97 Left = 171 ControlSource = "m.cCodeFile" Enabled = .T. Height = 25 ReadOnly = .T. TabIndex = 0 TabStop = .F. Width = 170 Name = "txtCodeFile" Unable to partition line < commandbutton commandbutton cmdCodeFileodk.mvb cvtalertscx. > type < sCaption = "..." Top = 97 Left = 351 Height = 25 Width = 25 Enabled = .F. TabIndex = 2 Name = "cmdCodeFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cCodeFile = LOWER(PUTFILE(C_SELCODEFILE_LOC,cCodeFile,"PRG")) THISFORM.txtCodeFile.Refresh IF !EMPTY(m.cCodeFile) AND ((m.llog AND !EMPTY(m.cLogFile)) OR !m.llog) THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC Select file for screen code: CCODEFILE THISFORM TXTCODEFILE REFRESH CLOGFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx label labelB lblAlertMsgz cvtalertscx. Caption = (cAlertMsg) Top = 12 Left = 24 BackColor = 192,192,192 Height = 61 Width = 340 WordWrap = .T. Name = "lblAlertMsg" cvtalertscx Classp ,Alert displayed when converting non-projects Pixelsgj cvtscx.hc formE Pixels-w cvtalertscx76 x>1F@ ,ScaleMode = 3 Caption = "Conversion Options" Top = 83 Left = 116 Height = 180 Width = 390 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 DefButton = DefButton LockScreen = .F. Name = "cvtalertscx" PROCEDURE Init THIS.cmd1.command1.SetFocus IF m.cConvType = C_REPORTTYPEPARM THIS.optionGroup1.enabled = .F. THIS.optionGroup1.option1.enabled = .F. THIS.optionGroup1.option2.enabled = .F. ENDIF ENDPROC COMMAND1 SETFOCUS CCONVTYPE C_REPORTTYPEPARM OPTIONGROUP1 ENABLED OPTION1 OPTION2 Init, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx optiongroup optiongroup optiongroup1 cvtalertscx. ButtonCount = 2 Caption = "Optiongroup1" Top = 73 Left = 12 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "nOptDev" Height = 49 Width = 148 TabIndex = 1 Name = "optiongroup1" Option1.Caption = "\<Full conversion" Option1.Top = 5 Option1.Left = 5 Option1.Height = 18 Option1.Width = 140 Option1.Value = 1 Option1.BackColor = 192,192,192 Option1.DisabledBackColor = 192,192,192 Option1.Name = "option1" Option2.Caption = "\<Visual Conversion" Option2.Top = 25 Option2.Left = 5 Option2.Height = 18 Option2.Width = 140 Option2.Value = 0 Option2.BackColor = 192,192,192 Option2.DisabledBackColor = 192,192,192 Option2.Name = "option2" <PROCEDURE Click IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. THISFORM.cmdLogFile.Click IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF THISFORM.cmdCodeFile.Enabled = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC NOPTDEV THISFORM CMDCODEFILE ENABLED CMDLOGFILE CLICK CCODEFILE COMMAND1 LDEVMODE Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx commandgroupu commandgroupl cmd1l cvtalertscx. "ButtonCount = 2 Caption = "Commandgroup1" Top = 133 Left = 68 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "m.nCvt" Height = 49 TerminateRead = .T. Width = 253 TabIndex = 3 Name = "cmd1" Command1.Caption = "Continue" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.Default = .T. Command1.Name = "command1" Command2.Caption = "Cancel" Command2.Top = 5 Command2.Left = 154 Command2.Height = 29 Command2.Width = 94 Command2.Cancel = .T. Command2.Name = "command2" s as a PROCEDURE Click IF m.nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE command1.Click THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC ces spec THISFORM# THISFORM VALUE CLICK# THISFORM VALUE CLICK Click, command1.Clickf command2.Click c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx ing the current prog textbox+M Resumes running textboxspended program txtCodeFilecurrently runn cvtalertscx.... Compiles Top = 97 Left = 171 ControlSource = "m.cCodeFile" Enabled = .T. Height = 25 ReadOnly = .T. TabIndex = 0 TabStop = .F. Width = 170 Name = "txtCodeFile" commandbutton commandbutton cmdCodeFile cvtalertscx. sCaption = "..." Top = 97 Left = 351 Height = 25 Width = 25 Enabled = .F. TabIndex = 2 Name = "cmdCodeFile" ing tiles PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cCodeFile = LOWER(PUTFILE(C_SELCODEFILE_LOC,cCodeFile,"PRG")) THISFORM.txtCodeFile.Refresh IF !EMPTY(m.cCodeFile) AND ((m.llog AND !EMPTY(m.cLogFile)) OR !m.llog) THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC Select file for screen code: CCODEFILE THISFORM TXTCODEFILE REFRESH CLOGFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx labels various categories labelptions lblAlertMsg cvtalertscx. Caption = (cAlertMsg) Top = 12 Left = 24 BackColor = 192,192,192 Height = 61 Width = 340 WordWrap = .T. Name = "lblAlertMsg" cvtalertscx ClassS ,Alert displayed when converting non-projects PixelsTable wizard Query cvtscx.hizard Runs t formrds Report Runs the R forms Label Runs the Labe PixelsMerge Runs the Mail cvtalertscxTable Runs the -ScaleMode = 3 Caption = "Conversion Options" Top = 150 Left = 125 Height = 180 Width = 390 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 DefButton = DefButton LockScreen = .F. Name = "cvtalertscx" PROCEDURE Init THIS.cmd1.command1.SetFocus IF m.cConvType = C_REPORTTYPEPARM THIS.optionGroup1.enabled = .F. THIS.optionGroup1.option1.enabled = .F. THIS.optionGroup1.option2.enabled = .F. ENDIF ENDPROC REPORT COMMAND1 SETFOCUS CCONVTYPE OPTIONGROUP1 ENABLED OPTION1 OPTION2 Init, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx optiongroup optiongroup optiongroup1 cvtalertscx. ButtonCount = 2 Caption = "Optiongroup1" Top = 73 Left = 12 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "nOptDev" Height = 49 Width = 148 TabIndex = 1 Name = "optiongroup1" Option1.Caption = "\<Full conversion" Option1.Top = 5 Option1.Left = 5 Option1.Height = 18 Option1.Width = 140 Option1.Value = 1 Option1.BackColor = 192,192,192 Option1.DisabledBackColor = 192,192,192 Option1.Name = "option1" Option2.Caption = "\<Visual Conversion" Option2.Top = 25 Option2.Left = 5 Option2.Height = 18 Option2.Width = 140 Option2.Value = 0 Option2.BackColor = 192,192,192 Option2.DisabledBackColor = 192,192,192 Option2.Name = "option2" <PROCEDURE Click IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. THISFORM.cmdLogFile.Click IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF THISFORM.cmdCodeFile.Enabled = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC NOPTDEV THISFORM CMDCODEFILE ENABLED CMDLOGFILE CLICK CCODEFILE COMMAND1 LDEVMODE Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx commandgroup commandgroup cmd1F cvtalertscx. "ButtonCount = 2 Caption = "Commandgroup1" Top = 133 Left = 68 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "m.nCvt" Height = 49 TerminateRead = .T. Width = 253 TabIndex = 3 Name = "cmd1" Command1.Caption = "Continue" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.Default = .T. Command1.Name = "command1" Command2.Caption = "Cancel" Command2.Top = 5 Command2.Left = 154 Command2.Height = 29 Command2.Width = 94 Command2.Cancel = .T. Command2.Name = "command2" PROCEDURE Click IF m.nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE command1.Click THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC THISFORM# THISFORM VALUE CLICK# THISFORM VALUE CLICK Click, command1.Clickf command2.Click c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx textbox textbox txtCodeFileJ3 cvtalertscx. Top = 97 Left = 171 ControlSource = "m.cCodeFile" Enabled = .T. Height = 25 ReadOnly = .T. TabIndex = 0 TabStop = .F. Width = 170 Name = "txtCodeFile" commandbutton commandbuttonf cmdCodeFile cvtalertscx. sCaption = "..." Top = 97 Left = 351 Height = 25 Width = 25 Enabled = .F. TabIndex = 2 Name = "cmdCodeFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cCodeFile = LOWER(PUTFILE(C_SELCODEFILE_LOC,cCodeFile,"PRG")) THISFORM.txtCodeFile.Refresh IF !EMPTY(m.cCodeFile) AND ((m.llog AND !EMPTY(m.cLogFile)) OR !m.llog) THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC Select file for screen code: CCODEFILE THISFORM TXTCODEFILE REFRESH CLOGFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx label label lblAlertMsg| cvtalertscx. Caption = (cAlertMsg) Top = 12 Left = 24 BackColor = 192,192,192 Height = 61 Width = 340 WordWrap = .T. Name = "lblAlertMsg" cvtalertscx Classe v&,Y= ,Alert displayed when converting non-projects PixelsU5 cvtalert.h formk(% Pixels cvtalertscx -ScaleMode = 3 Caption = "Conversion Options" Top = 150 Left = 125 Height = 185 Width = 390 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 DefButton = DefButton LockScreen = .F. Name = "cvtalertscx" PROCEDURE Init THIS.cmd1.command1.SetFocus IF m.cConvType = C_REPORTTYPEPARM THIS.optionGroup1.enabled = .F. THIS.optionGroup1.option1.enabled = .F. THIS.optionGroup1.option2.enabled = .F. ENDIF ENDPROC REPORT COMMAND1 SETFOCUS CCONVTYPE OPTIONGROUP1 ENABLED OPTION1 OPTION2 Init, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx optiongroup optiongroup% optiongroup1 cvtalertscx. ButtonCount = 2 Caption = "Optiongroup1" Top = 85 Left = 12 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "nOptDev" Height = 49 Width = 148 TabIndex = 1 Name = "optiongroup1" Option1.Caption = "\<Full conversion" Option1.Top = 5 Option1.Left = 5 Option1.Height = 18 Option1.Width = 140 Option1.Value = 1 Option1.BackColor = 192,192,192 Option1.DisabledBackColor = 192,192,192 Option1.Name = "option1" Option2.Caption = "\<Visual Conversion" Option2.Top = 25 Option2.Left = 5 Option2.Height = 18 Option2.Width = 140 Option2.Value = 0 Option2.BackColor = 192,192,192 Option2.DisabledBackColor = 192,192,192 Option2.Name = "option2" <PROCEDURE Click IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. THISFORM.cmdLogFile.Click IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF THISFORM.cmdCodeFile.Enabled = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC NOPTDEV THISFORM CMDCODEFILE ENABLED CMDLOGFILE CLICK CCODEFILE COMMAND1 LDEVMODE Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx ControlBox = .F. MaxButt commandgroup= .F. Movabl commandgroupT. AlwaysOnT cmd1ercentage = (0) cvtalertscx.sk = ('')a "ButtonCount = 2 Caption = "Commandgroup1" Top = 138 Left = 68 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "m.nCvt" Height = 49 TerminateRead = .T. Width = 253 TabIndex = 3 Name = "cmd1" Command1.Caption = "Continue" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.Default = .T. Command1.Name = "command1" Command2.Caption = "Cancel" Command2.Top = 5 Command2.Left = 154 Command2.Height = 29 Command2.Width = 94 Command2.Cancel = .T. Command2.Name = "command2" BugBug: PROCEDURE Click IF m.nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE command1.Click THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC hem when THISFORM# THISFORM VALUE CLICK# THISFORM VALUE CLICK Click, command1.Clickf command2.Click c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx 0, this.iBasis, 100) textboxSeconds=seconds() textboxeconds() < m.iSeco txtCodeFile enddo cvtalertscx.f) m.cTherm Top = 102 Left = 171 ControlSource = "m.cCodeFile" Enabled = .T. Height = 25 ReadOnly = .T. TabIndex = 0 TabStop = .F. Width = 170 Name = "txtCodeFile" n m.iBasis value, is used to commandbuttontage * m.cT commandbuttonhe second li cmdCodeFile parameters m. cvtalertscx. if paramete tCaption = "..." Top = 102 Left = 351 Height = 25 Width = 25 Enabled = .F. TabIndex = 2 Name = "cmdCodeFile" ar the c PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cCodeFile = LOWER(PUTFILE(C_SELCODEFILE_LOC,cCodeFile,"PRG")) THISFORM.txtCodeFile.Refresh IF !EMPTY(m.cCodeFile) AND ((m.llog AND !EMPTY(m.cLogFile)) OR !m.llog) THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC (this.lbl Select file for screen code: CCODEFILE THISFORM TXTCODEFILE REFRESH CLOGFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx labelge = m.iPercentage labelmBar.Width = int((th lblAlertMsgdth)*this.iPer cvtalertscx.lblPercentag Caption = (cAlertMsg) Top = 12 Left = 24 BackColor = 192,192,192 Height = 66 Width = 340 WordWrap = .T. Name = "lblAlertMsg" cvtalertscx form1 ClassZB ,Alert displayed when converting non-projects Pixels cvtalert.h( form2[ Pixels cvtalertscx:m@ -ScaleMode = 3 Caption = "Conversion Options" Top = 148 Left = 126 Height = 185 Width = 390 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 DefButton = DefButton LockScreen = .F. Name = "cvtalertscx" PROCEDURE Init THIS.cmd1.command1.SetFocus IF m.cConvType = C_REPORTTYPEPARM THIS.optionGroup1.enabled = .F. THIS.optionGroup1.option1.enabled = .F. THIS.optionGroup1.option2.enabled = .F. ENDIF ENDPROC REPORT COMMAND1 SETFOCUS CCONVTYPE OPTIONGROUP1 ENABLED OPTION1 OPTION2 Init, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx &);6u optiongroup optiongroup optiongroup1 cvtalertscx.b3 r5AIT ButtonCount = 2 Caption = "Optiongroup1" Top = 85 Left = 12 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "nOptDev" Height = 49 Width = 148 TabIndex = 1 Name = "optiongroup1" Option1.Caption = "\<Full conversion" Option1.Top = 5 Option1.Left = 5 Option1.Height = 18 Option1.Width = 140 Option1.Value = 1 Option1.BackColor = 192,192,192 Option1.DisabledBackColor = 192,192,192 Option1.Name = "option1" Option2.Caption = "\<Visual conversion" Option2.Top = 25 Option2.Left = 5 Option2.Height = 18 Option2.Width = 140 Option2.Value = 0 Option2.BackColor = 192,192,192 Option2.DisabledBackColor = 192,192,192 Option2.Name = "option2" <PROCEDURE Click IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. THISFORM.cmdLogFile.Click IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF THISFORM.cmdCodeFile.Enabled = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC NOPTDEV THISFORM CMDCODEFILE ENABLED CMDLOGFILE CLICK CCODEFILE COMMAND1 LDEVMODE Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx commandgroup commandgroup cmd1`^a2 cvtalertscx.K "ButtonCount = 2 Caption = "Commandgroup1" Top = 138 Left = 68 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "m.nCvt" Height = 49 TerminateRead = .T. Width = 253 TabIndex = 3 Name = "cmd1" Command1.Caption = "Continue" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.Default = .T. Command1.Name = "command1" Command2.Caption = "Cancel" Command2.Top = 5 Command2.Left = 154 Command2.Height = 29 Command2.Width = 94 Command2.Cancel = .T. Command2.Name = "command2" PROCEDURE Click IF m.nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE command1.Click THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC THISFORM# THISFORM VALUE CLICK# THISFORM VALUE CLICK Click, command1.Clickf command2.Click c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx textbox O textbox= txtCodeFile cvtalertscx. Top = 102 Left = 171 ControlSource = "m.cCodeFile" Enabled = .T. Height = 25 ReadOnly = .T. TabIndex = 0 TabStop = .F. Width = 170 Name = "txtCodeFile" commandbutton$Y commandbutton cmdCodeFile cvtalertscx.@X tCaption = "..." Top = 102 Left = 351 Height = 25 Width = 25 Enabled = .F. TabIndex = 2 Name = "cmdCodeFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cCodeFile = LOWER(PUTFILE(C_SELCODEFILE_LOC,cCodeFile,"PRG")) THISFORM.txtCodeFile.Refresh IF !EMPTY(m.cCodeFile) AND ((m.llog AND !EMPTY(m.cLogFile)) OR !m.llog) THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC epared fo Select file for screen code: CCODEFILE THISFORM TXTCODEFILE REFRESH CLOGFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx labelve in search path labele FOR cannot be ne lblAlertMsg file error du cvtalertscx.o binary read Caption = (cAlertMsg) Top = 12 Left = 24 BackColor = 192,192,192 Height = 66 Width = 340 WordWrap = .T. Name = "lblAlertMsg" d-mm-yy yy-mm-dd %1 %2 cvtalertscxry already exi formes Total Class{ ,Alert displayed when converting non-projects Pixels[ C1SB`5( cvtalert.h form)e Pixels cvtalertscx&) -ScaleMode = 3 Caption = "Conversion Options" Top = 148 Left = 126 Height = 185 Width = 390 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 DefButton = DefButton LockScreen = .F. Name = "cvtalertscx" de page number. PROCEDURE Init THIS.cmd1.command1.SetFocus IF m.cConvType = C_REPORTTYPEPARM THIS.optionGroup1.enabled = .F. THIS.optionGroup1.option1.enabled = .F. THIS.optionGroup1.option2.enabled = .F. ENDIF ENDPROC ive:][p REPORT COMMAND1 SETFOCUS CCONVTYPE OPTIONGROUP1 ENABLED OPTION1 OPTION2 Init, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx ource optiongrouple or files to optiongroup Indic optiongroup1ile. v /B cvtalertscx. binary file. ButtonCount = 2 Caption = "Optiongroup1" Top = 85 Left = 12 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "nOptDev" Height = 49 Width = 148 TabIndex = 1 Name = "optiongroup1" Option1.Caption = "\<Full conversion" Option1.Top = 5 Option1.Left = 5 Option1.Height = 18 Option1.Width = 140 Option1.Value = 1 Option1.BackColor = 192,192,192 Option1.DisabledBackColor = 192,192,192 Option1.Name = "option1" Option2.Caption = "\<Visual conversion" Option2.Top = 25 Option2.Left = 5 Option2.Height = 18 Option2.Width = 140 Option2.Value = 0 Option2.BackColor = 192,192,192 Option2.DisabledBackColor = 192,192,192 Option2.Name = "option2" <PROCEDURE Click IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. THISFORM.cmdLogFile.Click IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF THISFORM.cmdCodeFile.Enabled = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC NOPTDEV THISFORM CMDCODEFILE ENABLED CMDLOGFILE CLICK CCODEFILE COMMAND1 LDEVMODE Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx commandgroup commandgroup cvtalertscx. "ButtonCount = 2 Caption = "Commandgroup1" Top = 138 Left = 68 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "m.nCvt" Height = 49 TerminateRead = .T. Width = 253 TabIndex = 3 Name = "cmd1" Command1.Caption = "Continue" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.Default = .T. Command1.Name = "command1" Command2.Caption = "Cancel" Command2.Top = 5 Command2.Left = 154 Command2.Height = 29 Command2.Width = 94 Command2.Cancel = .T. Command2.Name = "command2" use RAS PROCEDURE Click IF m.nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE command1.Click THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC THISFORM# THISFORM VALUE CLICK# THISFORM VALUE CLICK Click, command1.Clickf command2.Click c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx rosoft Windows(TM) textboxm ProductV textbox VarFileInfo txtCodeFile cvtalertscx. Top = 102 Left = 171 ControlSource = "m.cCodeFile" Enabled = .T. Height = 25 ReadOnly = .T. TabIndex = 0 TabStop = .F. Width = 170 Name = "txtCodeFile" commandbutton8 commandbutton cmdCodeFile cvtalertscx. tCaption = "..." Top = 102 Left = 351 Height = 25 Width = 25 Enabled = .F. TabIndex = 2 Name = "cmdCodeFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cCodeFile = LOWER(PUTFILE(C_SELCODEFILE_LOC,cCodeFile,"PRG")) THISFORM.txtCodeFile.Refresh IF !EMPTY(m.cCodeFile) AND ((m.llog AND !EMPTY(m.cLogFile)) OR !m.llog) THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC Select file for screen code: CCODEFILE THISFORM TXTCODEFILE REFRESH CLOGFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx label label Visua lblAlertMsgconvert\sprthe cvtalertscx.wing errors: Caption = (cAlertMsg) Top = 12 Left = 24 BackColor = 192,192,192 Height = 66 Width = 340 WordWrap = .T. Name = "lblAlertMsg" cvtalertscx formc Class ,Alert displayed when converting non-projects Pixels cvtalert.h9 ,j_i formj form, Pixels cvtalertscx -ScaleMode = 3 Caption = "Conversion Options" Top = 148 Left = 125 Height = 185 Width = 390 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 DefButton = DefButton LockScreen = .F. Name = "cvtalertscx" PROCEDURE Init THIS.cmd1.command1.SetFocus IF m.cConvType = C_REPORTTYPEPARM THIS.optionGroup1.enabled = .F. THIS.optionGroup1.option1.enabled = .F. THIS.optionGroup1.option2.enabled = .F. ENDIF ENDPROC REPORT COMMAND1 SETFOCUS CCONVTYPE OPTIONGROUP1 ENABLED OPTION1 OPTION2 Init, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx optiongroupp optiongroup optiongroup19"jdD cvtalertscx.# ButtonCount = 2 Caption = "Optiongroup1" Top = 87 Left = 12 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "nOptDev" Height = 49 Width = 148 TabIndex = 1 Name = "optiongroup1" Option1.Caption = "\<Full conversion" Option1.Top = 5 Option1.Left = 5 Option1.Height = 18 Option1.Width = 140 Option1.Value = 1 Option1.BackColor = 192,192,192 Option1.DisabledBackColor = 192,192,192 Option1.Name = "option1" Option2.Caption = "\<Visual conversion" Option2.Top = 25 Option2.Left = 5 Option2.Height = 18 Option2.Width = 140 Option2.Value = 0 Option2.BackColor = 192,192,192 Option2.DisabledBackColor = 192,192,192 Option2.Name = "option2" <PROCEDURE Click IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. THISFORM.cmdLogFile.Click IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF THISFORM.cmdCodeFile.Enabled = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC NOPTDEV THISFORM CMDCODEFILE ENABLED CMDLOGFILE CLICK CCODEFILE COMMAND1 LDEVMODE Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx commandgroup commandgroup[ cvtalertscx. "ButtonCount = 2 Caption = "Commandgroup1" Top = 138 Left = 68 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "m.nCvt" Height = 49 TerminateRead = .T. Width = 253 TabIndex = 3 Name = "cmd1" Command1.Caption = "Continue" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.Default = .T. Command1.Name = "command1" Command2.Caption = "Cancel" Command2.Top = 5 Command2.Left = 154 Command2.Height = 29 Command2.Width = 94 Command2.Cancel = .T. Command2.Name = "command2" PROCEDURE Click IF m.nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE command1.Click THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC THISFORM# THISFORM VALUE CLICK# THISFORM VALUE CLICK Click, command1.Clickf command2.Click c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx textbox * textbox txtCodeFile cvtalertscx.Windows Datab Top = 102 Left = 171 ControlSource = "m.cCodeFile" Enabled = .T. Height = 25 ReadOnly = .T. TabIndex = 0 TabStop = .F. Width = 170 Name = "txtCodeFile" IF USED("salesman commandbutton SET ORDE commandbutton ELSE cmdCodeFileFILE("salesman cvtalertscx.s salesman?") tCaption = "..." Top = 102 Left = 351 Height = 25 Width = 25 Enabled = .F. TabIndex = 2 Name = "cmdCodeFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cCodeFile = LOWER(PUTFILE(C_SELCODEFILE_LOC,cCodeFile,"PRG")) THISFORM.txtCodeFile.Refresh IF !EMPTY(m.cCodeFile) AND ((m.llog AND !EMPTY(m.cLogFile)) OR !m.llog) THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC OLOR RGB( Select file for screen code: CCODEFILE THISFORM TXTCODEFILE REFRESH CLOGFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx labelty, add a record?' labelITS 'Please finish lblAlertMsgFINE C_TOPFILE cvtalertscx.DEFINE C_ENDF Caption = (cAlertMsg) Top = 12 Left = 24 BackColor = 192,192,192 Height = 66 Width = 340 WordWrap = .T. Name = "lblAlertMsg" CANCEL ' cvtalertscx Class6 ,Alert displayed when converting non-projectsz Pixels" cvtalert.h cvtalertcat cvtalert.vcx6 forma lUgjy Pixelsy% cvtalertpjx \Top = 22 Left = 117 Height = 255 Width = 390 Name = "cvtalertpjx" optiongroup1.option1.Top = 5 optiongroup1.option1.Left = 5 optiongroup1.option1.Value = 1 optiongroup1.option1.Name = "option1" optiongroup1.option2.Top = 25 optiongroup1.option2.Left = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Name = "option2" optiongroup1.Top = 157 optiongroup1.Left = 12 optiongroup1.TabIndex = 4 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.command2.Name = "command2" cmd1.Top = 208 cmd1.Left = 68 cmd1.ControlSource = "nCvt" cmd1.TabIndex = 6 cmd1.Name = "cmd1" txtcodefile.Top = 172 txtcodefile.Left = 171 txtcodefile.TabIndex = 0 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 172 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 5 cmdcodefile.Name = "cmdcodefile" lblalertmsg.Top = 12 lblalertmsg.Left = 24 lblalertmsg.Height = 70 lblalertmsg.Width = 340 lblalertmsg.Caption = (cAlertMsg) lblalertmsg.Name = "lblalertmsg" check1.Top = 129 check1.Left = 24 check1.TabIndex = 2 check1.Name = "check1" txtlogfile.Top = 121 txtlogfile.Left = 171 txtlogfile.TabIndex = 0 txtlogfile.Name = "txtlogfile" cmdlogfile.Top = 121 cmdlogfile.Left = 351 cmdlogfile.TabIndex = 3 cmdlogfile.Name = "cmdlogfile" PROCEDURE getbackdir #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 *---------------------------------- * FUNCTION GetBackDir *---------------------------------- PRIVATE cBackdef, nTmpCount, cTmpDir m.nTmpCount = 0 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.Click IF nCvt = 1 THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC E\CATALOG\PARTS CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS NCVTC THISFORM GETBACKDIR getbackdir, cmd1.Clicke c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx l table - chisele *getbackdir Get a backupDir INVOICES.SCX labelVOICES.SCX label label1screen to view and cvtalertpjx. shadowed Caption = "Create backup directory here" Top = 89 Left = 21 BackColor = 192,192,192 Height = 38 Width = 133 WordWrap = .T. Name = "label1" and edit O textboxboxed textboxE\CATALOG\PARTS.SC txtBackDir cvtalertpjx. Top = 89 Left = 171 FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 BackColor = 255,255,255 BorderStyle = 1 Value = ControlSource = "m.cBackDir" DragIcon = ..\vfp\ DragMode = 0 Enabled = .T. ForeColor = 0,0,0 Format = "" Height = 25 HelpContextID = 0 HideSelection = .T. InputMask = "" Margin = 2 MaxLength = 254 MousePointer = 0 ReadOnly = .F. SelLength = 0 SelStart = 0 SelText = "" SpecialEffect = 0 StatusBarText = "" TabIndex = 0 TabStop = .T. Tag = "" TerminateRead = .F. ToolTipText = "" Visible = .T. Width = 170 ReleaseErase = .T. DisabledForeColor = 128,128,128 DisabledBackColor = 255,255,255 SelectedForeColor = 255,255,255 SelectedBackColor = 0,0,192 ColorSource = 0 ColorScheme = 1 BaseClass = "Textbox" ParentClass = "" ClassLibrary = "" Class = "Textbox" Name = "txtBackDir" \SAMPLE\CATALOG\SAMPLE1.QPR commandbutton commandbutton cmdBackDir Query cvtalertpjx.als eCaption = "..." Top = 87 Left = 351 DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Height = 25 Width = 25 FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. AutoSize = .F. Picture = d:\temp\ DownPicture = d:\temp\ DisabledPicture = d:\temp\ Cancel = .F. Value = 0 ControlSource = "" Default = .F. DragIcon = ..\vfp\ DragMode = 0 Enabled = .T. ForeColor = 0,0,0 HelpContextID = 0 MousePointer = 0 StatusBarText = "" Style = 0 TabIndex = 1 TabStop = .T. Tag = "" ToolTipText = "" TerminateRead = .F. Visible = .T. ReleaseErase = .T. DisabledForeColor = 128,128,128 ColorSource = 0 ColorScheme = 1 BaseClass = "Commandbutton" ParentClass = "" ClassLibrary = "" Class = "Commandbutton" Name = "cmdBackDir" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 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,m.cBackDir) THISFORM.txtBackDir.Refresh ENDPROC Select a backup directory: COLDDIR CBACKDIR THISFORM TXTBACKDIR REFRESH Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertpjx cvtalertcat 7'woo Class` Pixels cvtalertscx cvtalert.vcx Pixels cvtalertcat JTop = 35 Left = 102 Height = 230 Width = 390 Name = "cvtalertcat" optiongroup1.option1.Top = 5 optiongroup1.option1.Left = 5 optiongroup1.option1.Value = 1 optiongroup1.option1.Name = "option1" optiongroup1.option2.Top = 25 optiongroup1.option2.Left = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Name = "option2" optiongroup1.Top = 133 optiongroup1.Left = 12 optiongroup1.ControlSource = "nOptDev" optiongroup1.TabIndex = 3 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.command2.Name = "command2" cmd1.Top = 184 cmd1.Left = 68 cmd1.TabIndex = 5 cmd1.Name = "cmd1" txtcodefile.Top = 148 txtcodefile.Left = 171 txtcodefile.TabIndex = 0 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 148 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 4 cmdcodefile.Name = "cmdcodefile" lblalertmsg.Top = 12 lblalertmsg.Left = 24 lblalertmsg.Height = 76 lblalertmsg.Width = 340 lblalertmsg.Caption = (cAlertMsg) lblalertmsg.Name = "lblalertmsg" - Black and Whi checkboxtary" checkbox check1 F"DS - Digital cvtalertcat.Format Caption = "Create \<log file" Top = 110 Left = 18 Height = 25 Width = 114 BackColor = 192,192,192 ControlSource = "lLog" TabIndex = 1 Name = "check1" PROCEDURE Click THISFORM.txtLogFile.Enabled = THIS.value THISFORM.cmdLogFile.Enabled = THIS.value IF THIS.value AND EMPTY(m.cLogFile) THISFORM.cmd1.command1.Enabled = .F. THISFORM.cmdLogFile.Click THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC THISFORM TXTLOGFILE ENABLED VALUE CMDLOGFILE CLOGFILE COMMAND1 CLICK Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx textbox textbox txtLogFileFB\b cvtalertcat. Top = 102 Left = 171 ControlSource = "m.cLogFile" Enabled = .F. Height = 25 ReadOnly = .T. TabIndex = 0 Width = 170 Name = "txtLogFile" commandbuttonO commandbuttonJt cmdLogFile cvtalertcat. sCaption = "..." Top = 102 Left = 351 Height = 25 Width = 25 Enabled = .F. TabIndex = 2 Name = "cmdLogFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE C_LOGEXT "LOG" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 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,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 Select the log file COLDLOG CLOGFILE JUSTSTEM CFILENAME THISFORM TXTLOGFILE REFRESH NOPTDEV CCODEFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertcat T}~?y`} cvtalertscxsw Class Pixels cvtalertcat cvtalert.vcx{T Pixels6 cvtalertpjx \Top = 19 Left = 115 Height = 255 Width = 390 Name = "cvtalertpjx" optiongroup1.option1.Top = 5 optiongroup1.option1.Left = 5 optiongroup1.option1.Value = 1 optiongroup1.option1.Name = "option1" optiongroup1.option2.Top = 25 optiongroup1.option2.Left = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Name = "option2" optiongroup1.Top = 157 optiongroup1.Left = 12 optiongroup1.TabIndex = 4 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.command2.Name = "command2" cmd1.Top = 208 cmd1.Left = 68 cmd1.ControlSource = "nCvt" cmd1.TabIndex = 6 cmd1.Name = "cmd1" txtcodefile.Top = 172 txtcodefile.Left = 171 txtcodefile.TabIndex = 0 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 172 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 5 cmdcodefile.Name = "cmdcodefile" lblalertmsg.Top = 12 lblalertmsg.Left = 24 lblalertmsg.Height = 70 lblalertmsg.Width = 340 lblalertmsg.Caption = (cAlertMsg) lblalertmsg.Name = "lblalertmsg" check1.Top = 134 check1.Left = 24 check1.TabIndex = 2 check1.Name = "check1" txtlogfile.Top = 126 txtlogfile.Left = 171 txtlogfile.TabIndex = 0 txtlogfile.Name = "txtlogfile" cmdlogfile.Top = 126 cmdlogfile.Left = 351 cmdlogfile.TabIndex = 3 cmdlogfile.Name = "cmdlogfile" PROCEDURE getbackdir #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 *---------------------------------- * FUNCTION GetBackDir *---------------------------------- PRIVATE cBackdef, nTmpCount, cTmpDir m.nTmpCount = 0 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.Click IF nCvt = 1 THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS NCVTC THISFORM GETBACKDIR getbackdir, cmd1.Clicke c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx *getbackdir Get a backupDir label label label1 cvtalertpjx. Caption = "Create backup directory here" Top = 89 Left = 21 BackColor = 192,192,192 Height = 38 Width = 133 WordWrap = .T. Name = "label1" textbox textbox txtBackDir cvtalertpjx.& Top = 89 Left = 171 FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 BackColor = 255,255,255 BorderStyle = 1 Value = ControlSource = "m.cBackDir" DragIcon = ..\vfp\ DragMode = 0 Enabled = .T. ForeColor = 0,0,0 Format = "" Height = 25 HelpContextID = 0 HideSelection = .T. InputMask = "" Margin = 2 MaxLength = 254 MousePointer = 0 ReadOnly = .F. SelLength = 0 SelStart = 0 SelText = "" SpecialEffect = 0 StatusBarText = "" TabIndex = 0 TabStop = .T. Tag = "" TerminateRead = .F. ToolTipText = "" Visible = .T. Width = 170 ReleaseErase = .T. DisabledForeColor = 128,128,128 DisabledBackColor = 255,255,255 SelectedForeColor = 255,255,255 SelectedBackColor = 0,0,192 ColorSource = 0 ColorScheme = 1 BaseClass = "Textbox" ParentClass = "" ClassLibrary = "" Class = "Textbox" Name = "txtBackDir" commandbutton commandbutton cmdBackDir (~y~15 cvtalertpjx.( eCaption = "..." Top = 87 Left = 351 DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Height = 25 Width = 25 FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. AutoSize = .F. Picture = d:\temp\ DownPicture = d:\temp\ DisabledPicture = d:\temp\ Cancel = .F. Value = 0 ControlSource = "" Default = .F. DragIcon = ..\vfp\ DragMode = 0 Enabled = .T. ForeColor = 0,0,0 HelpContextID = 0 MousePointer = 0 StatusBarText = "" Style = 0 TabIndex = 1 TabStop = .T. Tag = "" ToolTipText = "" TerminateRead = .F. Visible = .T. ReleaseErase = .T. DisabledForeColor = 128,128,128 ColorSource = 0 ColorScheme = 1 BaseClass = "Commandbutton" ParentClass = "" ClassLibrary = "" Class = "Commandbutton" Name = "cmdBackDir" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 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,m.cBackDir) THISFORM.txtBackDir.Refresh ENDPROC Select a backup directory: COLDDIR CBACKDIR THISFORM TXTBACKDIR REFRESH Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertpjx3 cvtalertcatV`M ClassE.w Pixels@ cvtalertcat cvtalert.vcx Pixels]u cvtalertpjx \Top = 23 Left = 108 Height = 255 Width = 390 Name = "cvtalertpjx" optiongroup1.option1.Top = 5 optiongroup1.option1.Left = 5 optiongroup1.option1.Value = 1 optiongroup1.option1.Name = "option1" optiongroup1.option2.Top = 25 optiongroup1.option2.Left = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Name = "option2" optiongroup1.Top = 157 optiongroup1.Left = 12 optiongroup1.TabIndex = 4 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.command2.Name = "command2" cmd1.Top = 208 cmd1.Left = 68 cmd1.ControlSource = "nCvt" cmd1.TabIndex = 6 cmd1.Name = "cmd1" txtcodefile.Top = 172 txtcodefile.Left = 171 txtcodefile.TabIndex = 0 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 172 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 5 cmdcodefile.Name = "cmdcodefile" lblalertmsg.Top = 12 lblalertmsg.Left = 24 lblalertmsg.Height = 70 lblalertmsg.Width = 340 lblalertmsg.Caption = (cAlertMsg) lblalertmsg.Name = "lblalertmsg" check1.Top = 134 check1.Left = 24 check1.TabIndex = 2 check1.Name = "check1" txtlogfile.Top = 126 txtlogfile.Left = 171 txtlogfile.TabIndex = 0 txtlogfile.Name = "txtlogfile" cmdlogfile.Top = 126 cmdlogfile.Left = 351 cmdlogfile.TabIndex = 3 cmdlogfile.Name = "cmdlogfile" PROCEDURE getbackdir #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 *---------------------------------- * FUNCTION GetBackDir *---------------------------------- PRIVATE cBackdef, nTmpCount, cTmpDir m.nTmpCount = 0 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.Click IF nCvt = 1 THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS NCVTC THISFORM GETBACKDIR getbackdir, cmd1.Clicke c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx *getbackdir Get a backupDir label: label label1 cvtalertpjx. Caption = "Create backup directory here" Top = 94 Left = 21 BackColor = 192,192,192 Height = 38 Width = 133 WordWrap = .T. Name = "label1" textbox textbox txtBackDirM cvtalertpjx. Top = 94 Left = 171 FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 BackColor = 255,255,255 BorderStyle = 1 Value = ControlSource = "m.cBackDir" DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 Format = "" Height = 25 HelpContextID = 0 HideSelection = .T. InputMask = "" Margin = 2 MaxLength = 254 MousePointer = 0 ReadOnly = .F. SelLength = 0 SelStart = 0 SelText = "" SpecialEffect = 0 StatusBarText = "" TabIndex = 0 TabStop = .T. Tag = "" TerminateRead = .F. ToolTipText = "" Visible = .T. Width = 170 ReleaseErase = .T. DisabledForeColor = 128,128,128 DisabledBackColor = 255,255,255 SelectedForeColor = 255,255,255 SelectedBackColor = 0,0,192 ColorSource = 0 ColorScheme = 1 BaseClass = "Textbox" ParentClass = "" ClassLibrary = "" Class = "Textbox" Name = "txtBackDir" commandbuttonM commandbutton cmdBackDir cvtalertpjx. ^Caption = "..." Top = 92 Left = 351 DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Height = 25 Width = 25 FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. AutoSize = .F. Picture = d:\temp\ DownPicture = d:\temp\ DisabledPicture = d:\temp\ Cancel = .F. Value = 0 ControlSource = "" Default = .F. DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 HelpContextID = 0 MousePointer = 0 StatusBarText = "" Style = 0 TabIndex = 1 TabStop = .T. Tag = "" ToolTipText = "" TerminateRead = .F. Visible = .T. ReleaseErase = .T. DisabledForeColor = 128,128,128 ColorSource = 0 ColorScheme = 1 BaseClass = "Commandbutton" ParentClass = "" ClassLibrary = "" Class = "Commandbutton" Name = "cmdBackDir" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 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,m.cBackDir) THISFORM.txtBackDir.Refresh ENDPROC Select a backup directory: COLDDIR CBACKDIR THISFORM TXTBACKDIR REFRESH Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertpjx cvtalertcat} Class Pixels formset$?< formset cvtalertpjsM Name = "cvtalertpjs" Pixels form1 cvtalertpjs. 2ScaleMode = 3 Caption = "Form1" Name = "form1" cvtalertpjs formset report: Class labe cvtalertcatRB FILETYPE cvtalert.vcx Pixelseva cvtalertpjx ]Top = 113 Left = 125 Height = 255 Width = 390 Name = "cvtalertpjx" optiongroup1.option1.Top = 5 optiongroup1.option1.Left = 5 optiongroup1.option1.Value = 1 optiongroup1.option1.Name = "option1" optiongroup1.option2.Top = 25 optiongroup1.option2.Left = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Name = "option2" optiongroup1.Top = 157 optiongroup1.Left = 12 optiongroup1.TabIndex = 4 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.command2.Name = "command2" cmd1.Top = 208 cmd1.Left = 68 cmd1.ControlSource = "nCvt" cmd1.TabIndex = 6 cmd1.Name = "cmd1" txtcodefile.Top = 172 txtcodefile.Left = 171 txtcodefile.TabIndex = 0 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 172 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 5 cmdcodefile.Name = "cmdcodefile" lblalertmsg.Top = 12 lblalertmsg.Left = 24 lblalertmsg.Height = 70 lblalertmsg.Width = 340 lblalertmsg.Caption = (cAlertMsg) lblalertmsg.Name = "lblalertmsg" check1.Top = 134 check1.Left = 24 check1.TabIndex = 2 check1.Name = "check1" txtlogfile.Top = 126 txtlogfile.Left = 171 txtlogfile.TabIndex = 0 txtlogfile.Name = "txtlogfile" cmdlogfile.Top = 126 cmdlogfile.Left = 351 cmdlogfile.TabIndex = 3 cmdlogfile.Name = "cmdlogfile" PROCEDURE getbackdir #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 *---------------------------------- * FUNCTION GetBackDir *---------------------------------- PRIVATE cBackdef, nTmpCount, cTmpDir m.nTmpCount = 0 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.Click IF nCvt = 1 THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS NCVTC THISFORM GETBACKDIR getbackdir, cmd1.Clicke c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx *getbackdir Get a backupDir label label label1 cvtalertpjx. Caption = "Create backup directory here" Top = 94 Left = 21 BackColor = 192,192,192 Height = 38 Width = 133 WordWrap = .T. Name = "label1" cvtalertpjx cvtalertcatC: Class Pixels cvtalertcat cvtalert.vcxtscx Do you formvert the CCC Pixels label repor cvtalertpjx Visual FoxPro ]Top = 113 Left = 125 Height = 255 Width = 390 Name = "cvtalertpjx" optiongroup1.option1.Top = 5 optiongroup1.option1.Left = 5 optiongroup1.option1.Value = 1 optiongroup1.option1.Name = "option1" optiongroup1.option2.Top = 25 optiongroup1.option2.Left = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Name = "option2" optiongroup1.Top = 157 optiongroup1.Left = 12 optiongroup1.TabIndex = 4 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.command2.Name = "command2" cmd1.Top = 208 cmd1.Left = 68 cmd1.ControlSource = "nCvt" cmd1.TabIndex = 6 cmd1.Name = "cmd1" txtcodefile.Top = 172 txtcodefile.Left = 171 txtcodefile.TabIndex = 0 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 172 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 5 cmdcodefile.Name = "cmdcodefile" lblalertmsg.Top = 12 lblalertmsg.Left = 24 lblalertmsg.Height = 70 lblalertmsg.Width = 340 lblalertmsg.Caption = (cAlertMsg) lblalertmsg.Name = "lblalertmsg" check1.Top = 134 check1.Left = 24 check1.TabIndex = 2 check1.Name = "check1" txtlogfile.Top = 126 txtlogfile.Left = 171 txtlogfile.TabIndex = 0 txtlogfile.Name = "txtlogfile" cmdlogfile.Top = 126 cmdlogfile.Left = 351 cmdlogfile.TabIndex = 3 cmdlogfile.Name = "cmdlogfile" TERCL PROCEDURE getbackdir #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 *---------------------------------- * FUNCTION GetBackDir *---------------------------------- PRIVATE cBackdef, nTmpCount, cTmpDir m.nTmpCount = 0 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.Click IF nCvt = 1 THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS NCVTC THISFORM GETBACKDIR getbackdir, cmd1.Clicke c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx *getbackdir Get a backupDir FillColor DisabledFo labelabledBackColor labelItemBackColor label1lor DisabledItemB cvtalertpjx.temBackColor Caption = "Create backup directory here" Top = 89 Left = 21 BackColor = 192,192,192 Height = 38 Width = 133 WordWrap = .T. Name = "label1" textbox: textbox txtBackDir CursorSource cvtalertpjx. Top = 91 Left = 171 FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 BackColor = 255,255,255 BorderStyle = 1 Value = ControlSource = "m.cBackDir" DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 Format = "" Height = 25 HelpContextID = 0 HideSelection = .T. InputMask = "" Margin = 2 MaxLength = 254 MousePointer = 0 ReadOnly = .F. SelLength = 0 SelStart = 0 SelText = "" SpecialEffect = 0 StatusBarText = "" TabIndex = 0 TabStop = .T. Tag = "" TerminateRead = .F. ToolTipText = "" Visible = .T. Width = 170 ReleaseErase = .T. DisabledForeColor = 128,128,128 DisabledBackColor = 255,255,255 SelectedForeColor = 255,255,255 SelectedBackColor = 0,0,192 ColorSource = 0 ColorScheme = 1 BaseClass = "Textbox" ParentClass = "" ClassLibrary = "" Class = "Textbox" Name = "txtBackDir" commandbutton commandbuttonz cmdBackDir cvtalertpjx. ^Caption = "..." Top = 89 Left = 351 DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Height = 25 Width = 25 FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. AutoSize = .F. Picture = d:\temp\ DownPicture = d:\temp\ DisabledPicture = d:\temp\ Cancel = .F. Value = 0 ControlSource = "" Default = .F. DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 HelpContextID = 0 MousePointer = 0 StatusBarText = "" Style = 0 TabIndex = 1 TabStop = .T. Tag = "" ToolTipText = "" TerminateRead = .F. Visible = .T. ReleaseErase = .T. DisabledForeColor = 128,128,128 ColorSource = 0 ColorScheme = 1 BaseClass = "Commandbutton" ParentClass = "" ClassLibrary = "" Class = "Commandbutton" Name = "cmdBackDir" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 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,m.cBackDir) THISFORM.txtBackDir.Refresh ENDPROC Select a backup directory: COLDDIR CBACKDIR THISFORM TXTBACKDIR REFRESH Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertpjxf cvtalertcat Class Pixels cvtalertcat cvtalert.vcxu PixelsRESERVED2 cvtalertpjxUG LENCRYPT ]Top = 113 Left = 125 Height = 255 Width = 390 Name = "cvtalertpjx" optiongroup1.option1.Top = 5 optiongroup1.option1.Left = 5 optiongroup1.option1.Value = 1 optiongroup1.option1.Name = "option1" optiongroup1.option2.Top = 25 optiongroup1.option2.Left = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Name = "option2" optiongroup1.Top = 157 optiongroup1.Left = 12 optiongroup1.TabIndex = 4 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.command2.Name = "command2" cmd1.Top = 208 cmd1.Left = 68 cmd1.ControlSource = "nCvt" cmd1.TabIndex = 6 cmd1.Name = "cmd1" txtcodefile.Top = 172 txtcodefile.Left = 171 txtcodefile.TabIndex = 0 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 172 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 5 cmdcodefile.Name = "cmdcodefile" lblalertmsg.Top = 12 lblalertmsg.Left = 24 lblalertmsg.Height = 70 lblalertmsg.Width = 340 lblalertmsg.Caption = (cAlertMsg) lblalertmsg.Name = "lblalertmsg" check1.Top = 134 check1.Left = 24 check1.TabIndex = 2 check1.Name = "check1" txtlogfile.Top = 126 txtlogfile.Left = 171 txtlogfile.TabIndex = 0 txtlogfile.Name = "txtlogfile" cmdlogfile.Top = 126 cmdlogfile.Left = 351 cmdlogfile.TabIndex = 3 cmdlogfile.Name = "cmdlogfile" PROCEDURE getbackdir #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 *---------------------------------- * FUNCTION GetBackDir *---------------------------------- PRIVATE cBackdef, nTmpCount, cTmpDir m.nTmpCount = 0 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.Click IF nCvt = 1 THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS NCVTC THISFORM GETBACKDIR getbackdir, cmd1.Clicke c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx *getbackdir Get a backupDir label label label1 cvtalertpjx.~] Caption = "Create backup directory here" Top = 89 Left = 21 BackColor = 192,192,192 Height = 38 Width = 133 WordWrap = .T. Name = "label1" textbox textbox txtBackDir cvtalertpjx. Top = 144 Left = 24 FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Alignment = 0 BackColor = 255,255,255 BorderStyle = 1 Value = ControlSource = "m.cBackDir" DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 Format = "" Height = 25 HelpContextID = 0 HideSelection = .T. InputMask = "" Margin = 2 MaxLength = 254 MousePointer = 0 ReadOnly = .F. SelLength = 0 SelStart = 0 SelText = "" SpecialEffect = 0 StatusBarText = "" TabIndex = 0 TabStop = .T. Tag = "" TerminateRead = .F. ToolTipText = "" Visible = .T. Width = 170 ReleaseErase = .T. DisabledForeColor = 128,128,128 DisabledBackColor = 255,255,255 SelectedForeColor = 255,255,255 SelectedBackColor = 0,0,192 ColorSource = 0 ColorScheme = 1 BaseClass = "Textbox" ParentClass = "" ClassLibrary = "" Class = "Textbox" Name = "txtBackDir" commandbutton commandbutton* cmdBackDir cvtalertpjx. _Caption = "..." Top = 142 Left = 204 DefTop = DefTop DefLeft = DefLeft DefHeight = DefHeight DefWidth = DefWidth Height = 25 Width = 25 FontBold = .T. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 10 FontStrikethru = .F. FontUnderline = .F. AutoSize = .F. Picture = d:\temp\ DownPicture = d:\temp\ DisabledPicture = d:\temp\ Cancel = .F. Value = 0 ControlSource = "" Default = .F. DragIcon = DragMode = 0 Enabled = .T. ForeColor = 0,0,0 HelpContextID = 0 MousePointer = 0 StatusBarText = "" Style = 0 TabIndex = 1 TabStop = .T. Tag = "" ToolTipText = "" TerminateRead = .F. Visible = .T. ReleaseErase = .T. DisabledForeColor = 128,128,128 ColorSource = 0 ColorScheme = 1 BaseClass = "Commandbutton" ParentClass = "" ClassLibrary = "" Class = "Commandbutton" Name = "cmdBackDir" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 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,m.cBackDir) THISFORM.txtBackDir.Refresh ENDPROC Select a backup directory: COLDDIR CBACKDIR THISFORM TXTBACKDIR REFRESH Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertpjx cvtalertcat> Class$7N~bE Pixels cvtalertcat cvtalert.vcx Pixels cvtalertpjx ]Top = 113 Left = 125 Height = 255 Width = 390 Name = "cvtalertpjx" optiongroup1.option1.Top = 5 optiongroup1.option1.Left = 5 optiongroup1.option1.Value = 1 optiongroup1.option1.Name = "option1" optiongroup1.option2.Top = 25 optiongroup1.option2.Left = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Name = "option2" optiongroup1.Top = 157 optiongroup1.Left = 12 optiongroup1.TabIndex = 4 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.command2.Name = "command2" cmd1.Top = 208 cmd1.Left = 68 cmd1.ControlSource = "nCvt" cmd1.TabIndex = 6 cmd1.Name = "cmd1" txtcodefile.Top = 172 txtcodefile.Left = 171 txtcodefile.TabIndex = 0 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 172 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 5 cmdcodefile.Name = "cmdcodefile" lblalertmsg.Top = 12 lblalertmsg.Left = 24 lblalertmsg.Height = 70 lblalertmsg.Width = 340 lblalertmsg.Caption = (cAlertMsg) lblalertmsg.Name = "lblalertmsg" check1.Top = 134 check1.Left = 24 check1.TabIndex = 2 check1.Name = "check1" txtlogfile.Top = 126 txtlogfile.Left = 171 txtlogfile.TabIndex = 0 txtlogfile.Name = "txtlogfile" cmdlogfile.Top = 126 cmdlogfile.Left = 351 cmdlogfile.TabIndex = 3 cmdlogfile.Name = "cmdlogfile" PROCEDURE getbackdir #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 *---------------------------------- * FUNCTION GetBackDir *---------------------------------- PRIVATE cBackdef, nTmpCount, cTmpDir m.nTmpCount = 0 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.Click IF nCvt = 1 THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC CTMPDIR CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS NCVTC THISFORM GETBACKDIR getbackdir, cmd1.Clicke c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx *--------------- *getbackdir Get a backupDir f, nTmpCount, cTmpDir label NSCREENSETS labelE2 VISIBLE ADDBS label1PATH BACKFILES cvtalertpjx. Caption = "Create backup directory here" Top = 89 Left = 21 BackColor = 192,192,192 Height = 38 Width = 133 WordWrap = .T. Name = "label1" cvtalertpjx cvtalertcat Class Pixels cvtalertcat cvtalert.vcx Pixels cvtalertpjx [Top = 19 Left = 90 Height = 255 Width = 390 Name = "cvtalertpjx" optiongroup1.option1.Top = 5 optiongroup1.option1.Left = 5 optiongroup1.option1.Value = 1 optiongroup1.option1.Name = "option1" optiongroup1.option2.Top = 25 optiongroup1.option2.Left = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Name = "option2" optiongroup1.Top = 157 optiongroup1.Left = 12 optiongroup1.TabIndex = 4 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.command2.Name = "command2" cmd1.Top = 208 cmd1.Left = 68 cmd1.ControlSource = "nCvt" cmd1.TabIndex = 6 cmd1.Name = "cmd1" txtcodefile.Top = 172 txtcodefile.Left = 171 txtcodefile.TabIndex = 0 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 172 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 5 cmdcodefile.Name = "cmdcodefile" lblalertmsg.Top = 12 lblalertmsg.Left = 24 lblalertmsg.Height = 70 lblalertmsg.Width = 340 lblalertmsg.Caption = (cAlertMsg) lblalertmsg.Name = "lblalertmsg" check1.Top = 134 check1.Left = 24 check1.TabIndex = 2 check1.Name = "check1" txtlogfile.Top = 126 txtlogfile.Left = 171 txtlogfile.TabIndex = 0 txtlogfile.Name = "txtlogfile" cmdlogfile.Top = 126 cmdlogfile.Left = 351 cmdlogfile.TabIndex = 3 cmdlogfile.Name = "cmdlogfile" ory:" PROCEDURE getbackdir #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 *---------------------------------- * FUNCTION GetBackDir *---------------------------------- PRIVATE cBackdef, nTmpCount, cTmpDir m.nTmpCount = 0 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.Click IF nCvt = 1 THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC textbo CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS NCVTC THISFORM GETBACKDIR getbackdir, cmd1.Clicke c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx ption1.Left = 5 *getbackdir Get a backupDir ngroup1.option1.Name = "optio labeloup1.option2.Top = 2 labelp1.option2.Left = 5 label1option2.Value = 0 cvtalertpjx..Name = "opti Caption = "Create backup directory here" Top = 89 Left = 21 BackColor = 192,192,192 Height = 38 Width = 133 WordWrap = .T. Name = "label1" eft = 5 textboxme = "command1" textboxp = 5 cmd1.comman text1 cmd1.command2.Name cvtalertpjx.Top = 208 @Top = 95 Left = 171 Height = 25 Width = 169 Name = "text1" = "cmd1" txtcodefile.Top = commandbuttont = 171 commandbutton txtcodefil command1efile" cmdcodefi cvtalertpjx.efile.Left = XCaption = "Command1" Top = 95 Left = 349 Height = 25 Width = 28 Name = "command1" cvtalertpjxmsg.Height = 7 cvtalertcat Class from C Pixels cvtalertcatBACKUP OPJX cvtalert.vcxNVFORM PROJC formE CCODEFILE PixelsEADS CBACKDIR cvtalertpjx A_S3FILES ]Top = 113 Left = 125 Height = 255 Width = 390 Name = "cvtalertpjx" optiongroup1.option1.Top = 5 optiongroup1.option1.Left = 5 optiongroup1.option1.Value = 1 optiongroup1.option1.Name = "option1" optiongroup1.option2.Top = 25 optiongroup1.option2.Left = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Name = "option2" optiongroup1.Top = 157 optiongroup1.Left = 12 optiongroup1.TabIndex = 4 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.command2.Name = "command2" cmd1.Top = 208 cmd1.Left = 68 cmd1.ControlSource = "nCvt" cmd1.TabIndex = 6 cmd1.Name = "cmd1" txtcodefile.Top = 172 txtcodefile.Left = 171 txtcodefile.TabIndex = 0 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 172 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 5 cmdcodefile.Name = "cmdcodefile" lblalertmsg.Top = 12 lblalertmsg.Left = 24 lblalertmsg.Height = 70 lblalertmsg.Width = 340 lblalertmsg.Caption = (cAlertMsg) lblalertmsg.Name = "lblalertmsg" check1.Top = 134 check1.Left = 24 check1.TabIndex = 2 check1.Name = "check1" txtlogfile.Top = 126 txtlogfile.Left = 171 txtlogfile.TabIndex = 0 txtlogfile.Name = "txtlogfile" cmdlogfile.Top = 126 cmdlogfile.Left = 351 cmdlogfile.TabIndex = 3 cmdlogfile.Name = "cmdlogfile" PROCEDURE getbackdir #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 *---------------------------------- * FUNCTION GetBackDir *---------------------------------- PRIVATE cBackdef, nTmpCount, cTmpDir m.nTmpCount = 0 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.Click IF nCvt = 1 THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS NCVTC THISFORM GETBACKDIR getbackdir, cmd1.Clicke c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx *getbackdir Get a backupDir labelM label label1 cvtalertpjx. Caption = "Create backup directory here" Top = 89 Left = 21 BackColor = 192,192,192 Height = 38 Width = 133 WordWrap = .T. Name = "label1" textbox textboxC txtBackDirC cvtalertpjx.) > 0 tTop = 94 Left = 171 Height = 25 Width = 170 ControlSource = "m.cBackDir" MaxLength = 254 Name = "txtBackDir" 2 TO PAR commandbutton commandbuttonmstr + [,] + cmdBackDir cvtalertpjx. ENDIF UCaption = "..." Top = 95 Left = 351 Height = 25 Width = 25 Name = "cmdBackDir" 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,m.cBackDir) THISFORM.txtBackDir.Refresh ENDPROC COLDDIR CBACKDIR C_SELBACKDIR_LOC THISFORM TXTBACKDIR REFRESH Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertpjx cvtalertcat Class Pixels cvtalertcat cvtalert.vcx] Pixels cvtalertpjx ]Top = 113 Left = 125 Height = 255 Width = 390 Name = "cvtalertpjx" optiongroup1.option1.Top = 5 optiongroup1.option1.Left = 5 optiongroup1.option1.Value = 1 optiongroup1.option1.Name = "option1" optiongroup1.option2.Top = 25 optiongroup1.option2.Left = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Name = "option2" optiongroup1.Top = 157 optiongroup1.Left = 12 optiongroup1.TabIndex = 4 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.command2.Name = "command2" cmd1.Top = 208 cmd1.Left = 68 cmd1.ControlSource = "nCvt" cmd1.TabIndex = 6 cmd1.Name = "cmd1" txtcodefile.Top = 172 txtcodefile.Left = 171 txtcodefile.TabIndex = 0 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 172 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 5 cmdcodefile.Name = "cmdcodefile" lblalertmsg.Top = 12 lblalertmsg.Left = 24 lblalertmsg.Height = 70 lblalertmsg.Width = 340 lblalertmsg.Caption = (cAlertMsg) lblalertmsg.Name = "lblalertmsg" check1.Top = 134 check1.Left = 24 check1.TabIndex = 2 check1.Name = "check1" txtlogfile.Top = 126 txtlogfile.Left = 171 txtlogfile.TabIndex = 0 txtlogfile.Name = "txtlogfile" cmdlogfile.Top = 126 cmdlogfile.Left = 351 cmdlogfile.TabIndex = 3 cmdlogfile.Name = "cmdlogfile" PROCEDURE getbackdir #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 *---------------------------------- * FUNCTION GetBackDir *---------------------------------- PRIVATE cBackdef, nTmpCount, cTmpDir m.nTmpCount = 0 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.Click IF nCvt = 1 THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC to Height cvtalertcat cvtalert.vcx PixelsckC cvtalertpjx ]Top = 113 Left = 125 Height = 255 Width = 390 Name = "cvtalertpjx" optiongroup1.option1.Top = 5 optiongroup1.option1.Left = 5 optiongroup1.option1.Value = 1 optiongroup1.option1.Name = "option1" optiongroup1.option2.Top = 25 optiongroup1.option2.Left = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Name = "option2" optiongroup1.Top = 157 optiongroup1.Left = 12 optiongroup1.TabIndex = 4 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.command2.Name = "command2" cmd1.Top = 208 cmd1.Left = 68 cmd1.ControlSource = "nCvt" cmd1.TabIndex = 6 cmd1.Name = "cmd1" txtcodefile.Top = 172 txtcodefile.Left = 171 txtcodefile.TabIndex = 0 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 172 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 5 cmdcodefile.Name = "cmdcodefile" lblalertmsg.Top = 12 lblalertmsg.Left = 24 lblalertmsg.Height = 70 lblalertmsg.Width = 340 lblalertmsg.Caption = (cAlertMsg) lblalertmsg.Name = "lblalertmsg" check1.Top = 134 check1.Left = 24 check1.TabIndex = 2 check1.Name = "check1" txtlogfile.Top = 126 txtlogfile.Left = 171 txtlogfile.TabIndex = 0 txtlogfile.Name = "txtlogfile" cmdlogfile.Top = 126 cmdlogfile.Left = 351 cmdlogfile.TabIndex = 3 cmdlogfile.Name = "cmdlogfile" PROCEDURE getbackdir #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 *---------------------------------- * FUNCTION GetBackDir *---------------------------------- PRIVATE cBackdef, nTmpCount, cTmpDir m.nTmpCount = 0 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.Click IF nCvt = 1 THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS NCVTC THISFORM GETBACKDIR getbackdir, cmd1.Clicke c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx *getbackdir Get a backupDir *WINDOWS _QVZ label884 168 label 166 165 label1 129 cvtalertpjx. Caption = "Create backup directory here" Top = 89 Left = 21 BackColor = 192,192,192 Height = 38 Width = 133 WordWrap = .T. Name = "label1" textbox111 110 textbox 90 txtBackDir cvtalertpjx. tTop = 94 Left = 171 Height = 25 Width = 170 ControlSource = "m.cBackDir" MaxLength = 254 Name = "txtBackDir" commandbutton77 72 commandbutton cmdBackDir cvtalertpjx. UCaption = "..." Top = 95 Left = 351 Height = 25 Width = 25 Name = "cmdBackDir" 593788 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,m.cBackDir) THISFORM.txtBackDir.Refresh ENDPROC 37885 Select a backup directory: COLDDIR CBACKDIR THISFORM TXTBACKDIR REFRESH Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertpjx cvtalertcat *WINDOWS _ 4 505589841 791 Class792 793 Pixels 800 cvtalert.h cvtalertscx cvtalert.vcx A_PJXSETS NOREADPLA PixelsEXPR GETFIRSTLINE cvtalertcat MERGEMETHODS KTop = 125 Left = 125 Height = 230 Width = 390 Name = "cvtalertcat" optiongroup1.option1.Top = 5 optiongroup1.option1.Left = 5 optiongroup1.option1.Value = 1 optiongroup1.option1.Name = "option1" optiongroup1.option2.Top = 25 optiongroup1.option2.Left = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Name = "option2" optiongroup1.Top = 133 optiongroup1.Left = 12 optiongroup1.ControlSource = "nOptDev" optiongroup1.TabIndex = 3 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.command2.Name = "command2" cmd1.Top = 184 cmd1.Left = 68 cmd1.TabIndex = 5 cmd1.Name = "cmd1" txtcodefile.Top = 148 txtcodefile.Left = 171 txtcodefile.TabIndex = 0 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 148 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 4 cmdcodefile.Name = "cmdcodefile" lblalertmsg.Top = 12 lblalertmsg.Left = 24 lblalertmsg.Height = 76 lblalertmsg.Width = 340 lblalertmsg.Caption = (cAlertMsg) lblalertmsg.Name = "lblalertmsg" checkbox checkbox check1 cvtalertcat. *WINDOW Caption = "Create \<log file" Top = 110 Left = 18 Height = 25 Width = 114 BackColor = 192,192,192 ControlSource = "lLog" TabIndex = 1 Name = "check1" PROCEDURE Click THISFORM.txtLogFile.Enabled = THIS.value THISFORM.cmdLogFile.Enabled = THIS.value IF THIS.value AND EMPTY(m.cLogFile) THISFORM.cmd1.command1.Enabled = .F. THISFORM.cmdLogFile.Click THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC TMPCNT TOTRE THISFORM TXTLOGFILE ENABLED VALUE CMDLOGFILE CLOGFILE COMMAND1 CLICK Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx textbox textbox txtLogFile cvtalertcat. Top = 102 Left = 171 ControlSource = "m.cLogFile" Enabled = .F. Height = 25 ReadOnly = .T. TabIndex = 0 Width = 170 Name = "txtLogFile" commandbutton commandbutton cmdLogFile *W cvtalertcat.5630186 sCaption = "..." Top = 102 Left = 351 Height = 25 Width = 25 Enabled = .F. TabIndex = 2 Name = "cmdLogFile" 3 24 PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE C_LOGEXT "LOG" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 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,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 2416 Select the log file: COLDLOG CLOGFILE JUSTSTEM CFILENAME THISFORM TXTLOGFILE REFRESH NOPTDEV CCODEFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertcat *WIN cvtalertscx630429 25 4 25oup Class Pixelsbox cvtalert.h cvtalertcatox cvtalert.vcx textbox Pixels cvtalertpjx editbox ]Top = 113 Left = 125 Height = 255 Width = 390 Name = "cvtalertpjx" optiongroup1.option1.Top = 5 optiongroup1.option1.Left = 5 optiongroup1.option1.Value = 1 optiongroup1.option1.Name = "option1" optiongroup1.option2.Top = 25 optiongroup1.option2.Left = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Name = "option2" optiongroup1.Top = 157 optiongroup1.Left = 12 optiongroup1.TabIndex = 4 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.command2.Name = "command2" cmd1.Top = 208 cmd1.Left = 68 cmd1.ControlSource = "nCvt" cmd1.TabIndex = 6 cmd1.Name = "cmd1" txtcodefile.Top = 172 txtcodefile.Left = 171 txtcodefile.TabIndex = 0 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 172 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 5 cmdcodefile.Name = "cmdcodefile" lblalertmsg.Top = 12 lblalertmsg.Left = 24 lblalertmsg.Height = 70 lblalertmsg.Width = 340 lblalertmsg.Caption = (cAlertMsg) lblalertmsg.Name = "lblalertmsg" check1.Top = 134 check1.Left = 24 check1.TabIndex = 2 check1.Name = "check1" txtlogfile.Top = 126 txtlogfile.Left = 171 txtlogfile.TabIndex = 0 txtlogfile.Name = "txtlogfile" cmdlogfile.Top = 126 cmdlogfile.Left = 351 cmdlogfile.TabIndex = 3 cmdlogfile.Name = "cmdlogfile" gFile 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.Click IF nCvt = 1 THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS NCVTC THISFORM GETBACKDIR getbackdir, cmd1.Clickx c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx #DEFINE N_DEVMODE 2 *getbackdir Get a backupDir m.cOldLog = "" m.cLo labelTEM(m.cFileName) + " label m.cOldLog= label1DIF cLogFile = LOW cvtalertpjx.ILE_LOC,m.cLo Caption = "Create backup directory here" Top = 89 Left = 21 BackColor = 192,192,192 Height = 38 Width = 133 WordWrap = .T. Name = "label1" .Refresh textboxgFile) AND ((m.nOp textboxE AND !EMPTY(m.cCo txtBackDirDev = N_STDMODE cvtalertpjx.mmand1.Enable tTop = 94 Left = 171 Height = 25 Width = 170 ControlSource = "m.cBackDir" MaxLength = 254 Name = "txtBackDir" commandbutton commandbutton cmdBackDir cvtalertpjx. UCaption = "..." Top = 95 Left = 351 Height = 25 Width = 25 Name = "cmdBackDir" 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,m.cBackDir) THISFORM.txtBackDir.Refresh ENDPROC Select a backup directory: COLDDIR CBACKDIR THISFORM TXTBACKDIR REFRESH Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertpjxh cvtalertcat 4ft = 115 Height = 255 ClassName = "cvtalertpjx" Pixels.option1.Top = 5 cvtalert.h1.Left = 5 cvtalertcatalue = 1 cvtalert.vcxe = "option1" formp1.option2.Top = 25 Pixelsption2.Left = 5 cvtalertpjxValue [Top = 19 Left = 74 Height = 255 Width = 390 Name = "cvtalertpjx" optiongroup1.option1.Top = 5 optiongroup1.option1.Left = 5 optiongroup1.option1.Value = 1 optiongroup1.option1.Name = "option1" optiongroup1.option2.Top = 25 optiongroup1.option2.Left = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Name = "option2" optiongroup1.Top = 157 optiongroup1.Left = 12 optiongroup1.TabIndex = 6 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.command2.Name = "command2" cmd1.Top = 208 cmd1.Left = 68 cmd1.ControlSource = "nCvt" cmd1.TabIndex = 1 cmd1.Name = "cmd1" txtcodefile.Top = 172 txtcodefile.Left = 171 txtcodefile.TabIndex = 0 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 172 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 7 cmdcodefile.Name = "cmdcodefile" lblalertmsg.Top = 12 lblalertmsg.Left = 24 lblalertmsg.Height = 70 lblalertmsg.Width = 340 lblalertmsg.Caption = (cAlertMsg) lblalertmsg.Name = "lblalertmsg" check1.Top = 134 check1.Left = 24 check1.TabIndex = 4 check1.Name = "check1" txtlogfile.Top = 126 txtlogfile.Left = 171 txtlogfile.TabIndex = 0 txtlogfile.Name = "txtlogfile" cmdlogfile.Top = 126 cmdlogfile.Left = 351 cmdlogfile.TabIndex = 5 cmdlogfile.Name = "cmdlogfile" 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.Click IF nCvt = 1 THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS NCVTC THISFORM GETBACKDIR getbackdir, cmd1.Clickx c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx *getbackdir Get a backupDir label label( label1 CPICT cvtalertpjx. TMPCNT Caption = "Create backup directory here" Top = 89 Left = 21 BackColor = 192,192,192 Height = 38 Width = 133 WordWrap = .T. Name = "label1" textbox textbox txtBackDir cvtalertpjx. Top = 94 Left = 171 Height = 25 Width = 170 ControlSource = "m.cBackDir" MaxLength = 254 TabIndex = 2 Name = "txtBackDir" commandbutton commandbutton cmdBackDirIS FORMREF cvtalertpjx.PLATFORM cCaption = "..." Top = 95 Left = 351 Height = 25 Width = 25 TabIndex = 3 Name = "cmdBackDir" FP3CLASS FP3BASE 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,m.cBackDir) THISFORM.txtBackDir.Refresh ENDPROC Select a backup directory: COLDDIR CBACKDIR THISFORM TXTBACKDIR REFRESH Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertpjxf cvtalertcat$ FontSi Class Pixels cvtalert.h cvtalertscx cvtalert.vcx formA_SCX2FLD Pixels FP3FSTYLE GETSTYL cvtalertcatT5 FP3FONT6 KTop = 125 Left = 125 Height = 230 Width = 390 Name = "cvtalertcat" optiongroup1.option1.Top = 5 optiongroup1.option1.Left = 5 optiongroup1.option1.Value = 1 optiongroup1.option1.Name = "option1" optiongroup1.option2.Top = 25 optiongroup1.option2.Left = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Name = "option2" optiongroup1.Top = 133 optiongroup1.Left = 12 optiongroup1.ControlSource = "nOptDev" optiongroup1.TabIndex = 4 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.command2.Name = "command2" cmd1.Top = 184 cmd1.Left = 68 cmd1.TabIndex = 1 cmd1.Name = "cmd1" txtcodefile.Top = 148 txtcodefile.Left = 171 txtcodefile.TabIndex = 0 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 148 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 5 cmdcodefile.Name = "cmdcodefile" lblalertmsg.Top = 12 lblalertmsg.Left = 24 lblalertmsg.Height = 76 lblalertmsg.Width = 340 lblalertmsg.Caption = (cAlertMsg) lblalertmsg.Name = "lblalertmsg" checkbox checkbox check1 cvtalertcat. Caption = "Create \<log file" Top = 110 Left = 18 Height = 25 Width = 114 BackColor = 192,192,192 ControlSource = "lLog" TabIndex = 2 Name = "check1" PROCEDURE Click THISFORM.txtLogFile.Enabled = THIS.value THISFORM.cmdLogFile.Enabled = THIS.value IF THIS.value AND EMPTY(m.cLogFile) THISFORM.cmd1.command1.Enabled = .F. THISFORM.cmdLogFile.Click THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC THISFORM TXTLOGFILE ENABLED VALUE CMDLOGFILE CLOGFILE COMMAND1 CLICK Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx textbox textboxhenCC txtLogFile ValidCC cvtalertcat. Top = 102 Left = 171 ControlSource = "m.cLogFile" Enabled = .F. Height = 25 ReadOnly = .T. TabIndex = 0 Width = 170 Name = "txtLogFile" GETNEWNAM commandbutton A_SCX2FLD commandbuttonXPR ADDMETH cmdLogFileTPICPART ADDPR cvtalertcat. EnabledC sCaption = "..." Top = 102 Left = 351 Height = 25 Width = 25 Enabled = .F. TabIndex = 3 Name = "cmdLogFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE C_LOGEXT "LOG" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 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,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 Select the log file: COLDLOG CLOGFILE JUSTSTEM CFILENAME THISFORM TXTLOGFILE REFRESH NOPTDEV CCODEFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx cvtalertcatm cvtalertscx Class Pixels cvtalert.h Pixels cvtalertscx ,ScaleMode = 3 Caption = "Conversion Options" Top = 84 Left = 106 Height = 185 Width = 390 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 DefButton = DefButton LockScreen = .F. Name = "cvtalertscx" PROCEDURE Init THIS.cmd1.command1.SetFocus IF m.cConvType = C_REPORTTYPEPARM THIS.optionGroup1.enabled = .F. THIS.optionGroup1.option1.enabled = .F. THIS.optionGroup1.option2.enabled = .F. ENDIF ENDPROC REPORT COMMAND1 SETFOCUS CCONVTYPE OPTIONGROUP1 ENABLED OPTION1 OPTION2 Init, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx d Usersi optiongroup optiongroup optiongroup1 cvtalertscx. ButtonCount = 2 Caption = "Optiongroup1" Top = 87 Left = 12 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "nOptDev" Height = 49 Width = 148 TabIndex = 2 Name = "optiongroup1" Option1.Caption = "\<Full conversion" Option1.Top = 5 Option1.Left = 5 Option1.Height = 18 Option1.Width = 140 Option1.Value = 1 Option1.BackColor = 192,192,192 Option1.DisabledBackColor = 192,192,192 Option1.Name = "option1" Option2.Caption = "\<Visual conversion" Option2.Top = 25 Option2.Left = 5 Option2.Height = 18 Option2.Width = 140 Option2.Value = 0 Option2.BackColor = 192,192,192 Option2.DisabledBackColor = 192,192,192 Option2.Name = "option2" <PROCEDURE Click IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. THISFORM.cmdLogFile.Click IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF THISFORM.cmdCodeFile.Enabled = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC NOPTDEV THISFORM CMDCODEFILE ENABLED CMDLOGFILE CLICK CCODEFILE COMMAND1 LDEVMODE Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx commandgroup commandgroup cvtalertscx. "ButtonCount = 2 Caption = "Commandgroup1" Top = 138 Left = 68 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "m.nCvt" Height = 49 TerminateRead = .T. Width = 253 TabIndex = 1 Name = "cmd1" Command1.Caption = "Continue" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.Default = .T. Command1.Name = "command1" Command2.Caption = "Cancel" Command2.Top = 5 Command2.Left = 154 Command2.Height = 29 Command2.Width = 94 Command2.Cancel = .T. Command2.Name = "command2" PROCEDURE Click IF m.nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE command1.Click THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC THISFORM# THISFORM VALUE CLICK# THISFORM VALUE CLICK Click, command1.Clickf command2.Click c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx ADDVALUE textbox textbox LeftC txtCodeFile cvtalertscx. Top = 102 Left = 171 ControlSource = "m.cCodeFile" Enabled = .T. Height = 25 ReadOnly = .T. TabIndex = 0 TabStop = .F. Width = 170 Name = "txtCodeFile" ScrollBars commandbuttonedC commandbuttonbsC cmdCodeFilegthC cvtalertscx.yleC tCaption = "..." Top = 102 Left = 351 Height = 25 Width = 25 Enabled = .F. TabIndex = 3 Name = "cmdCodeFile" PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cCodeFile = LOWER(PUTFILE(C_SELCODEFILE_LOC,cCodeFile,"PRG")) THISFORM.txtCodeFile.Refresh IF !EMPTY(m.cCodeFile) AND ((m.llog AND !EMPTY(m.cLogFile)) OR !m.llog) THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC Select file for screen code: CCODEFILE THISFORM TXTCODEFILE REFRESH CLOGFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx label label lblAlertMsg cvtalertscx. Caption = (cAlertMsg) Top = 12 Left = 24 BackColor = 192,192,192 Height = 66 Width = 340 WordWrap = .T. Name = "lblAlertMsg" cvtalertscx Class ,Alert displayed when converting non-projects PixelsC cvtalert.h cvtalertscxgZ cvtalert.vcx Pixels Value cvtalertcatCTEMPVAL KTop = 125 Left = 125 Height = 230 Width = 390 Name = "cvtalertcat" optiongroup1.option1.Top = 5 optiongroup1.option1.Left = 5 optiongroup1.option1.Value = 1 optiongroup1.option1.Name = "option1" optiongroup1.option2.Top = 25 optiongroup1.option2.Left = 5 optiongroup1.option2.Value = 0 optiongroup1.option2.Name = "option2" optiongroup1.Top = 133 optiongroup1.Left = 12 optiongroup1.ControlSource = "nOptDev" optiongroup1.TabIndex = 4 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 154 cmd1.command2.Name = "command2" cmd1.Top = 184 cmd1.Left = 68 cmd1.TabIndex = 1 cmd1.Name = "cmd1" txtcodefile.Top = 148 txtcodefile.Left = 171 txtcodefile.TabIndex = 0 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 148 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 5 cmdcodefile.Name = "cmdcodefile" lblalertmsg.Top = 12 lblalertmsg.Left = 24 lblalertmsg.Height = 76 lblalertmsg.Width = 340 lblalertmsg.Caption = (cAlertMsg) lblalertmsg.Name = "lblalertmsg" ring to determi checkboxriver is installe checkboxnew, upgraded dri check1d ; !!! with this cvtalertcat. ; !!!!!!!!!! Caption = "Create \<log file" Top = 110 Left = 18 Height = 25 Width = 114 BackColor = 192,192,192 ControlSource = "lLog" TabIndex = 2 Name = "check1" 286gr,logo code, VDD, PROCEDURE Click THISFORM.txtLogFile.Enabled = THIS.value THISFORM.cmdLogFile.Enabled = THIS.value IF THIS.value AND EMPTY(m.cLogFile) THISFORM.cmd1.command1.Enabled = .F. THISFORM.cmdLogFile.Click THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC 514/a (small fonts)", THISFORM TXTLOGFILE ENABLED VALUE CMDLOGFILE CLOGFILE COMMAND1 CLICK Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx 2:supervga.drv, "Super VGA (800 textbox)", textbox !oForm.lConverted txtLogFileert the unconve cvtalertcat.erter TH Top = 102 Left = 171 ControlSource = "m.cLogFile" Enabled = .F. Height = 25 ReadOnly = .T. TabIndex = 0 Width = 170 TabStop = .F. Name = "txtLogFile" e = "S" IF FOUND() commandbutton from the st commandbuttonHIS.cStubFil cmdLogFileIM(SUBSTR(outfi cvtalertcat.le)-1)),THIS. sCaption = "..." Top = 102 Left = 351 Height = 25 Width = 25 Enabled = .F. TabIndex = 3 Name = "cmdLogFile" 2:vddsvga PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select the file in which to store your screen code" #DEFINE C_BACKDIR "OLD" #DEFINE C_LOGEXT "LOG" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 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,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 ogo.rle, v7d Select the log file: COLDLOG CLOGFILE JUSTSTEM CFILENAME THISFORM TXTLOGFILE REFRESH NOPTDEV CCODEFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx xgalg = 2:x cvtalertcatlarge fonts)", cvtalertscx "100 4, , 2:vgalogo.lgo, 2:v Class2:v7vga.3gr,, Pixels.rle, xgalg xgalo cvtalert.h "XGA (640x48 forms)", form96", , 2:vgalogo.lg Pixels386, 2:v7vga.3gr, cvtalertscxogo.rle, xgalo ,ScaleMode = 3 Caption = "Conversion Options" Top = 33 Left = 106 Height = 185 Width = 390 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 DefButton = DefButton LockScreen = .F. Name = "cvtalertscx" PROCEDURE Init THIS.cmd1.command1.SetFocus IF m.cConvType = C_REPORTTYPEPARM THIS.optionGroup1.enabled = .F. THIS.optionGroup1.option1.enabled = .F. THIS.optionGroup1.option2.enabled = .F. ENDIF ENDPROC REPORT COMMAND1 SETFOCUS CCONVTYPE OPTIONGROUP1 ENABLED OPTION1 OPTION2 Init, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx optiongroup optiongroupgf optiongroup1D cvtalertscx.(?) THIS. ButtonCount = 2 Caption = "Optiongroup1" Top = 87 Left = 12 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "nOptDev" Height = 49 Width = 148 TabIndex = 2 Name = "optiongroup1" Option1.Caption = "\<Full conversion" Option1.Top = 5 Option1.Left = 5 Option1.Height = 18 Option1.Width = 140 Option1.Value = 1 Option1.BackColor = 192,192,192 Option1.DisabledBackColor = 192,192,192 Option1.Name = "option1" Option2.Caption = "\<Visual conversion" Option2.Top = 25 Option2.Left = 5 Option2.Height = 18 Option2.Width = 140 Option2.Value = 0 Option2.BackColor = 192,192,192 Option2.DisabledBackColor = 192,192,192 Option2.Name = "option2" =PROCEDURE Click IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. THISFORM.cmdCodeFile.Click IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF THISFORM.cmdCodeFile.Enabled = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC NOPTDEV THISFORM CMDCODEFILE ENABLED CLICK CCODEFILE COMMAND1 LDEVMODE Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx commandgroup commandgroup9 cvtalertscx. "ButtonCount = 2 Caption = "Commandgroup1" Top = 138 Left = 68 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "m.nCvt" Height = 49 TerminateRead = .T. Width = 253 TabIndex = 1 Name = "cmd1" Command1.Caption = "Continue" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.Default = .T. Command1.Name = "command1" Command2.Caption = "Cancel" Command2.Top = 5 Command2.Left = 154 Command2.Height = 29 Command2.Width = 94 Command2.Cancel = .T. Command2.Name = "command2" PROCEDURE Click IF m.nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE command1.Click THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC THISFORM# THISFORM VALUE CLICK# THISFORM VALUE CLICK Click, command1.Clickf command2.Click c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx textboxY. textbox IIF(AT(CHR(0),tmp txtCodeFile SUBSTR(tmp cvtalertscx.0),tmparr[m.i Top = 102 Left = 171 ControlSource = "m.cCodeFile" Enabled = .T. Height = 25 ReadOnly = .T. TabIndex = 0 TabStop = .F. Width = 170 Name = "txtCodeFile" ENDFOR *- Get outp commandbuttonscreen set s commandbuttonsetid = m.pS cmdCodeFile IF FOUND() cvtalertscx.FULLPATH(ALLT tCaption = "..." Top = 102 Left = 351 Height = 25 Width = 25 Enabled = .F. TabIndex = 3 Name = "cmdCodeFile" e = THIS PROCEDURE Click #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Select the log file:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Select file for screen code:" #DEFINE C_BACKDIR "OLD" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 cCodeFile = LOWER(PUTFILE(C_SELCODEFILE_LOC,cCodeFile,"PRG")) THISFORM.txtCodeFile.Refresh IF !EMPTY(m.cCodeFile) AND ((m.llog AND !EMPTY(m.cLogFile)) OR !m.llog) THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC THIS.a_ Select file for screen code: CCODEFILE THISFORM TXTCODEFILE REFRESH CLOGFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx label THIS.oTherm.Update labelenCtr/(THIS.nScreenS lblAlertMsgX + (1 - N_THE cvtalertscx. account for Caption = (cAlertMsg) Top = 12 Left = 24 BackColor = 192,192,192 Height = 66 Width = 340 WordWrap = .T. Name = "lblAlertMsg" does last one cvtalertscxNDDEFINE PJXCo form********************* 6************* DEFINE CLA Classer AS PJXConverterBa ,Alert displayed when converting non-projects- class for co Pixelsatalog Files (FPC f cvtalert.hfile structure forms *- files are conve formually -- just as if s Pixelsach one by one cvtalertscxROCEDURE Init -ScaleMode = 3 Caption = "Conversion Options" Top = 148 Left = 125 Height = 185 Width = 390 AutoCenter = .T. BackColor = 192,192,192 BorderStyle = 2 Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 DefButton = DefButton LockScreen = .F. Name = "cvtalertscx" THIS.oTherm = m.o PROCEDURE Init THIS.cmd1.command1.SetFocus IF m.cConvType = C_REPORTTYPEPARM THIS.optionGroup1.enabled = .F. THIS.optionGroup1.option1.enabled = .F. THIS.optionGroup1.option2.enabled = .F. ENDIF ENDPROC jx25Ali REPORT COMMAND1 SETFOCUS CCONVTYPE OPTIONGROUP1 ENABLED OPTION1 OPTION2 Init, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx ScreenSet optiongroup 0 THIS.oTh optiongroupKFILES_LOC) optiongroup1le = .T. cvtalertscx.(THIS.cBackDi ButtonCount = 2 Caption = "Optiongroup1" Top = 87 Left = 12 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "nOptDev" Height = 49 Width = 148 TabIndex = 2 Name = "optiongroup1" Option1.Caption = "\<Full conversion" Option1.Top = 5 Option1.Left = 5 Option1.Height = 18 Option1.Width = 140 Option1.Value = 1 Option1.BackColor = 192,192,192 Option1.DisabledBackColor = 192,192,192 Option1.Name = "option1" Option2.Caption = "\<Visual conversion" Option2.Top = 25 Option2.Left = 5 Option2.Height = 18 Option2.Width = 140 Option2.Value = 0 Option2.BackColor = 192,192,192 Option2.DisabledBackColor = 192,192,192 Option2.Name = "option2" HIS.o =PROCEDURE Click IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. THISFORM.cmdCodeFile.Click IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF THISFORM.cmdCodeFile.Enabled = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC NOPTDEV THISFORM CMDCODEFILE ENABLED CLICK CCODEFILE COMMAND1 LDEVMODE Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx commandgroup commandgroup cvtalertscx. "ButtonCount = 2 Caption = "Commandgroup1" Top = 138 Left = 68 BackColor = 192,192,192 BorderStyle = 0 Value = 1 ControlSource = "m.nCvt" Height = 49 TerminateRead = .T. Width = 253 TabIndex = 1 Name = "cmd1" Command1.Caption = "Continue" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.Default = .T. Command1.Name = "command1" Command2.Caption = "Cancel" Command2.Top = 5 Command2.Left = 154 Command2.Height = 29 Command2.Width = 94 Command2.Cancel = .T. Command2.Name = "command2" PROCEDURE Click IF m.nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE command1.Click THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC THISFORM# THISFORM VALUE CLICK# THISFORM VALUE CLICK Click, command1.Clickf command2.Click c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx textbox textbox txtCodeFile cvtalertscx. Top = 102 Left = 171 ControlSource = "m.cCodeFile" Enabled = .T. Height = 25 ReadOnly = .T. TabIndex = 0 TabStop = .F. Width = 170 Name = "txtCodeFile" commandbutton commandbutton cmdCodeFile cvtalertscx. tCaption = "..." Top = 102 Left = 351 Height = 25 Width = 25 Enabled = .F. TabIndex = 3 Name = "cmdCodeFile" PROCEDURE Click cCodeFile = LOWER(PUTFILE(C_SELCODEFILE_LOC,cCodeFile,"PRG")) THISFORM.txtCodeFile.Refresh IF !EMPTY(m.cCodeFile) AND ((m.llog AND !EMPTY(m.cLogFile)) OR !m.llog) THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC Select file for code: CCODEFILE THISFORM TXTCODEFILE REFRESH CLOGFILE COMMAND1 ENABLED Click, c:\convert\ cvtalert.vcx c:\convert\cvtalert.vcx m.c labelL(cOld + '.path') labelEVAL(cOld + '.type') lblAlertMsg(m.cType = C_F cvtalertscx. IIF(m.cT Caption = (cAlertMsg) Top = 12 Left = 24 BackColor = 192,192,192 Height = 66 Width = 340 WordWrap = .T. Name = "lblAlertMsg" EPORTTYPE,"R",; cvtalertscxCLABELTYPE,"B" formIIF(m.cType = C_FPCAP 6,"x"))))) INSERT IN Class0alias) ; (nam ,Alert displayed when converting non-projects m.cType,; Pixels UPPER(LEFT(JUST cvtalert.hEN(key)))) 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 autoname.prg autoname.fxp migdb4.prg migdb4.fxp fpcnew.prg fpcnew.fxp formparm.prg formparm.fxp putname.prg putname.fxp mignavpr.txt locword.prg locword.fxp cvtalert.vcx cvtalert.vct