Liren Large Software Subsidy 5

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

/ Liren Large Software Subsidy 5 / 05.iso / a / a095 / 1.ddi / FOXPAINT.FXP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1991-09-19 | 37.8 KB | 877 lines

TEMPLATE Demonstration Copy ..... Do you want to complete an order form (Y/N) ? TEMPLATE MSCRNNM ASTEMPLATE MJUNK ORDER RAMSMSCREEN MBLNKPG SMADDED MSELDBF *MPAGENO MNOPAGES FMREBUILD NORMGET NORMSAY BORDCOL BIT_IMAGE MMODSTRU MCURSCOL MSEQBY MALSNAME MEXIT MOLDPAG BOXCOLO MWRITE MOBJMOVE MSCRDBF *MSCRFPT MSCRIDX MISPAINT MFLDNAM MBLANK MOLDROW -MOLDCOL MFLDROW MFLDCOL MFLDWID %MFLDDEC DEMFLDATR MUNDCOL FDEF_COLOR SCH_DEF FLDNAM f SFLDVAL opeFLDINI FLDCAL MTOPREC MCROW MCCOL PAINT /SCR_MENU REL_VARS DO HELP WITH PROGRAM(),VARREAD() MBARROW ASMBARCOL MISPAINT RAMSM_CHC PB_MAIN SDO_IT PROMPT Enter Screen Name: Already Exists. Overwrite (Y/N) ? Select Screen: MPOPUP ASMSCREEN RETKEY RETVAL AMSMESSAGE MCHKFILE SMOVWRT MCHKFPT *MCHKIDX SCR_NAME FPAINT DO HELP WITH 'PAINT','SEQUENCE' [ DEFINE OBJECT SEQUENCE ] Sequence by (R)ow / (C)olumn / or (P)age Only ?: NOWAIT Rebuilding Screen Index ... CLEAR DO HELP WITH 'PAINT','STRUCTURE' NOWAIT Comparing Database Structure to Screen ... Please Wait - Now a Database Field ... (D)elete or (M)ake Real ? is No Longer a Database Field ... (D)elete or (M)ake Symbolic ? CLEAR CLOCKz M_CHOICE SEDIT_HDR HOICE TEMPLATE SMOLDSEQ MSEQBY SSCH_DEF SEQ_WIND *NORMGET MESSAGE FFLDPAG FLDROW FLDCOL MSCRIDX MREBUILD MOBJMOVE MALSNAME MMODSTRU MTEMPALS FLDNAM MDBFCNT MTHERE MDBFNO MFTYPE MFSIZE *FLDTYP FLDINI FLDWID SYMBOLIC MACTION -EDIT_FDT FLDGET EDIT_SYM MIS_MEMO %MEM_NAME EMNO_FLDS MCHK_FLD FEDIT_FKEY REQUIRED NOWAIT Initializing New Screen ... Please Wait MASTER.SCR MASTER.FPT Unable to Locate Master Template Files ! CLEARK CLEAR NOWAIT Making Backup of Screen ... Please Wait A Backup of F Already Exists ... Overwrite (Y/N) ? STR(FLDPAG,2)+STR(FLDROW,2)+STR(FLDCOL,2) STR(FLDPAG,2)+STR(FLDCOL,2)+STR(FLDROW,2) NOWAIT Building Screen Index ... Please Wait CLEAR STR(FLDPAG,2)+STR(FLDROW,2)+STR(FLDCOL,2) STR(FLDPAG,2)+STR(FLDCOL,2)+STR(FLDROW,2) PAINT Screen Changes Will be Lost ... Are You Sure (Y/N) ? NOWAIT Please Wait ... TEMPLATE CLEAR TEMPLATE MAT_DOT SMSCREEN MSCRDBF MSCRFPT SMSCRIDX SMESSAGE MTMDBF *MTMFPT MJUNK FTEMPLATE EDIT_HDR MWRITE MOLD_DBF MOLD_FPT MSYS14 MSEQBY FLDPAG FLDROW FLDCOL MALSNAME FLDNAM REQUIRED MCHKDBF MPAGENO *MCROW MCCOL MMODSTRU MBLNKPG MNOPAGES MREBUILD -MADDED DEF_COLOR MTOPREC MCURPG %MSTRPG EDISP_IMG DEFINE_FLDBIT_IMAGE MCURSCOL MEXIT SMIKEY opeHELP SAVE_IMG NEXT_OBJ PREV_OBJ MOBJMOVE MSURE /MOLD_IDX REBUILD EDIT_OBJ @DEL_OBJ TAG_OBJ TEDIT_BOX COLORS NORMSAY BLOCK_OP M_CHC PB_SCRN DO_IT2 TEMPLATE SMBLNKPG MSEQBY MTOPREC SMPAGENO FLDROW SMCROW FLDCOL *MCCOL FLDPAG TEMPLATE SMBLNKPG MSEQBY MTOPREC SMPAGENO FLDROW SMCROW FLDCOL *MCCOL FLDPAG MSTRPG SMPAGENO MOBJMOVE TEMPLATE SMBLNKPG MTOPREC SFLDROW MCROW *FLDCOL MCCOL FFLDPAG BIT_IMAGE DRAW_OBJ SAVE_IMG CLEAR_OBJ PICTURE "F COLOR @mfldrow,mfldcol GET &mfldnam &msaystr PAINT TEMPLATE SMBLNKPG JMOVE MTOPREC SMPAGENO FLDROW SMCROW FLDCOL *MCCOL MRECNO FMFLDNAM FLDNAM MFLDATR FLDATR NORMGET MFLDROW MFLDCOL MSAYSTR FLDPIC CLEAR_OBJ MSAVE_IMG MIKEY DRAW_OBJ SAVE_IMG *MREBUILD MOBJMOVE PICTURE "F COLOR @mfldrow,mfldcol GET &mfldnam &msaystr MFLDROW SFLDROW MFLDCOL FLDCOL SMFLDATR FLDATR SNORMGET MFLDNAM *FLDNAM MSAYSTR FFLDPIC DO HELP WITH 'PAINT','EDIT_OBJ' Database Field Symbolic Field [ SELECT TYPE ] Field Attributes Field Look-up Function Function Key Routines Pre-Field Calculation Post-Field Subroutines Impacted Fields \Impacted Fields 8 Field Help Message \Field Help Message 8 DO HELP WITH 'PAINT','EDIT_OPT' [ EDIT OPTIONS ] MOLDFLD SMSTRPG MPAGENO TEMPLATE SMTMPREC MOBTP MTPCHC *EDIT_FDT EDIT_SYM FMEDOPT SYMBOLIC FLDGET MEDCHC EDIT_LKP EDIT_FKEY EDIT_PRE EDIT_POST EDIT_IMP EDIT_HLP DO HELP WITH 'EDIT_FDT',VARREAD() [ FIELD DATA ATTRIBUTES ] Field Name: Field No: Field Type: Field Width: Field Decimals: Field Action: (0 = Data Entry 1 = Display Only) 'Get' Condition: Required Entry ?: Validation Clause: Message: Field Data Color: Field Picture/Function: Field Default Value: DO FLD_HLP WITH VARREAD() Invalid Field Name or Type ! DO ATTR_HLP WITH VARREAD() MNEWFIELD MADDED TEMPLATE PLATE SFLDROW MCROW SFLDCOL MCCOL *FLDPAG MPAGENO FMRECNO MOLDATR FLDATR MOLDPIC FLDPIC MOLDWID FLDWID MOLDTYP FLDTYP MOLDDEC FLDDEC SCH_DEF FLD_WIND _WIND MFLDNAM *FLDNAM ISVALFLD NORMGET MALSNAME MFCNT MCFNO -FLDGET FLDWHN REQUIRED FLDVAL %FLDMSG EFLDINI MOBJMOVE DMMODSTRU MBLNKPG MREBUILD SBIT_IMAGE CLEAR_OBJ MNOPAGES DEFINE_FLDDRAW_OBJ SAVE_IMG DO HELP WITH 'EDIT_SYM',VARREAD() [ SYMBOLIC FIELD ATTRIBUTES ] Field Name: Type: Width: Decimals: Data Color: Picture: [ Calculation Formula ] CNDLM Field Name is Already Defined in Screen ! Type Must Be (C)haracter, (N)umeric, (D)ate, or (L)ogical! DO ATTR_HLP WITH VARREAD() MNEWFIELD MADDED TEMPLATE PLATE SFLDROW MCROW SFLDCOL MCCOL *FLDPAG MPAGENO FMOLDATR FLDATR MOLDPIC FLDPIC MOLDWID FLDWID MOLDTYP FLDTYP MOLDDEC FLDDEC MRECNO SYMBOLIC FLDGET FLDVAL FLDWHN *FLDMSG FLDINI SCH_DEF FLD_WIND NORMSAY MFLDNAM -FLDNAM ISVALFLD ISNOWSYM NORMGET _WIND EFLDCAL MOBJMOVE DMMODSTRU MREBUILD MBLNKPG SCLEAR_OBJ MNOPAGES DEFINE_FLDDRAW_OBJ DSAVE_IMG 1jdFF MCHKFLD MTYPSTR MVALFLD MALSNAME SMFLDCOUNT MCOUNTNO SMFLDTYPE MCHKFLD TEMPLATE MGOTEMP FLDNAM SMISPREV Single Line Double Line Panel Custom Character PAINT EDIT_BOX [ SELECT BORDER ] PROMPT Character: MULROW MCROW MULCOL MCCOL SMLRROW MLRCOL SMBX_COLO BOXCOLO *MBORD_TYP BIT_IMAGE MBX_CHC RETKEY RETVAL MESSAGE COLORS SAVE_IMG MOBJMOVE DEF_COLOR DO HELP WITH 'PAINT','EDIT_PRE' [ PRE-FIELD SUBROUTINE ] Subroutine Name: TEMPLATE SCH_DEF CAL_WIND SNORMGET FLDCAL SMOBJMOVE DO HELP WITH 'EDIT_POST',IIF(LEFT(VARREAD(),3) $ 'PFS PAR',LEFT(VARREAD(),3),VARREAD()) [ POST-FIELD SUBROUTINE(S) ] Program: Parameters: ======== ================================================== DO PARSE_PFS WITH &mpost_ln TEMPLATE SCH_DEF PST_WIND SMLN_CNT SPARS FLDSUBS *MPOST_LN MT_FILE MHNDL MCHK_SUB MLINE DO HELP WITH 'PAINT',IIF(m_global,'EDIT_GKEY','EDIT_FKEY') FLDHLP FKEY_OPTS8 IF .NOT. mfline > MEMLINES(&mkey_fld) IF .NOT. TRIM(MLINE(&mkey_fld,mfline)) == '' mfparstr = TRIM(MLINE(&mkey_fld,mfline)) DO FPARSE WITH &mfparstr [ GLOBAL FUNCTION KEY OPTIONS ] [ FUNCTION KEY OPTIONS ]8 Message: -------------------- Program Called: -------------------- Parameters: -------------------- [F1]: (Reserved for Help) [F2]: [F3]: [F4]: [F5]: (Reserved for Look-ups) [F6]: [F7]: [F8]: [F9]: REPLACE &mkey_fld WITH mfkeystr M_GLOBAL PLATE TEMPLATE MFLINE SMFMSG MFPRG SMFPAR MKEY_FLD *M_TITLE SCH_DEF FKEY_WIND MARRIDX MGETROW NORMGET MFKEYSTR MOBJMOVE MENDCHR DO HELP WITH 'PAINT','EDIT_LKP' DO FPARSE WITH &mfparstr [ FIELD LOOK-UP ] Message: -------------------- Function Called: ---------------------------------------- [F5]: "","","" LOBAL TEMPLATE MLKPTYPE FLDTYP SMLKPNAME FLDNAM SMFLINE MFMSG *MFPRG MFPAR FKEY_OPTS MFPARSTR SCH_DEF FKEY_WIND NORMGET MFKEYSTR MENDCHR MOBJMOVE MFKEYMSG MFKEYPRG MFKEYPAR MFMSG SMFLINE MFPRG SMFPAR DO HELP WITH 'PAINT','EDIT_HLP' [Ctrl-F7/F8/F10]:Move/Size/Zoom [Esc]:Exit [ HELP ] [ HELP ] PAINT EDIT_HLP MKEYLABEL EYPRG HLP_FROW HLP_TROW SHLP_FCOL HLP_TCOL SMHFROMROW MHFROMCOL MHLPTOROW MHLPTOCOL SCH_DEF MFOOTER FHLP_WDO FLDHLP MNOROWS MNOCOLS MIKEY MOBJMOVE TEMPLATE DO HELP WITH 'EDIT_HDR',IIF(LEFT(VARREAD(),3) $ 'PFS PAR',LEFT(VARREAD(),3),VARREAD()) DO PARSE_PFS WITH &msub_ln [ SCREEN HEADER DEFINITION ] Master Database File Name: Setup Program: Pre-file Validation Function: Screen Security Timeout: [ POST-FILE SUBROUTINES ] Program: ======== Parameters: ================================================== Database Name Must Be Specified ! YLABEL MLN_CNT STEMPLATE MNO_SUBS SFLDSUBS MSUB_LN SCH_DEF SCRN_HDR NORMGET MDBFNM FLDNAM MPREFL FLDVAL FLDPIC FLDDEC MCHKDBF MWRITE MOBJMOVE MT_FILE MHNDL MCHK_SUB MLINE MPARS_PRG MPARS_PAR MLN_CNT SPARS TEMPLATE At Least One Database Field Must be Defined ! NOWAIT Rebuilding Template Database ... Please Wait Error During Rebuild ! Error During Rebuild ! Error During Rebuild ! CLEAR RS_PRG TEMPLATE MNOT_DEL MJUNK SMNOPAGES FLDPAG MESSAGE MALSNAME MFLD_CNT MIS_MEMO MEM_FLD MFLD_NO SYMBOLIC FLDINI MPGCNT MPGSTR MPGNO MSUCC MTOP_REC IMAGE M_FOUND M_IMG FLDCAL MTMP_BASE MTMP_DBF MTMP_FPT FLDNAM MOBJMOVE DO SYMB_MENU DO HELP WITH 'PAINT','EDIT_IMP' [ IMPACTED FIELDS ] RS_PRG PLATE SCH_DEF IMP_FLDS STEMPLATE IMPACTS MOBJMOVE PAINT BLOCK_OP PAINT BLOCK_MV MBLK_LRR MCROW MBLK_LRC MCCOL SBIT_IMAGE MIKEY MBLK_ULR MBLK_ULC MTMP_IMG MSCL_ULR MSCL_ULC MSCL_LRR MSCL_LRC MR_SHIFT MC_SHIFT MS_KEY TEMPLATE MTOPREC MPAGENO FLDROW FLDCOL FLDPAG MREBUILD CLEAR_OBJ DRAW_OBJ SAVE_IMG MOBJMOVE MFLDNAM CNDL/ &mcurfld = mclrval MCURFLD MCLRVAL FLD_MENU MALSNAME FLDATR &mcurfld = mclrval MCURFLD MCLRVAL COLORS [ SELECT FIELD] TEMPLATE MRECNO MNORECS MSYMS SMSYM_NO FLDCAL FLDNAM MSYM_CHC [ Select an Option ] [F1]:Help [Esc]:Exit "* \<Create New Screen;\<Modify an Existing Screen" @ 1, 2 GET mpb_no FUNCTION &mfunc_code SIZE 1,28,1 PBUTTONS MFUNC_CODEMPB_NO Edit Screen \<Header; Define Field \<Sequence; Modify \<Database Structure; Define \<Global Softkeys; CLOCKz Turn \<Clock Off" Turn \<Clock On"8 @ 0, 2 GET mpb_no FUNCTION &mfunc_code SIZE 1,28,1 PBUTTONS MFUNC_CODEMPB_NO MDRAW_PG TEMPLATE EMBLNKPG EMTOPREC SIMAGE BIT_IMAGE TEMPLATE MFLDNAM EFLDNAM EMFLDROW SFLDROW MFLDCOL FLDCOL MFLDWID FLDPIC FLDWID FLDTYP NORMSAY bit_image* BIT_IMAGE MPAGENO ETEMPLATE EIMAGE SMTOPREC DISP_IMG RELEASE &mfldnam PUBLIC &mfldnam &mfldnam = SPACE(FLDWID) &mfldnam = { / / } &mfldnam = 0 &mfldnam = .F. TEMPLATE MFLDNAM EFLDNAM EFLDTYP MSCREEN MBLNKPG EMADDED EMSELDBF SMPAGENO MNOPAGES MREBUILD MWRITE BIT_IMAGE MSCRNOBOX MMODSTRU MCURSCOL MSEQBY MALSNAME MEXIT MOLDPAG MOBJMOVE MSCRDBF MSCRFPT MSCRIDX MISPAINT MFLDNAM MBLANK MOLDROW MOLDCOL MFLDROW MFLDCOL MFLDWID MFLDDEC MFLDATR MUNDCOL -DEF_COLOR FLDNAM FLDVAL FLDINI %FLDCAL ESCR_MENU DO_IT DO_IT2 PAINT NEXT_OBJ PREV_OBJ DEL_OBJ TAG_OBJ DRAW_OBJ EDIT_OBJ EDIT_FDT EDIT_SYM ISVALFLD ISNOWSYM EDIT_BOX EDIT_PRE EDIT_POST EDIT_FKEY EDIT_LKP FPARSE EDIT_HLP EDIT_HDR PARSE_PFS REBUILD EDIT_IMP BLOCK_OP FLD_HLP ATTR_HLP SYMB_MENU PB_MAIN PB_SCRN DISP_IMG CLEAR_OBJ SAVE_IMG DEFINE_FLD REL_VARS C:\FOXPAINT\ FOXPAINT.FXP