home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
fox
/
foxpaint
/
foxpaint.fxp
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1991-09-19
|
39KB
|
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