romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changeset: 34 Changeset: 34

Browse Source
This commit is contained in:
fernando
2013-12-06 05:28:27 +01:00
parent bb03864b4a
commit ee38eef771
3 changed files with 651 additions and 2247 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg
View File

@@ -17,6 +17,8 @@ DEFINE CLASS CL_FXU_CONFIG AS CUSTOM
+ [<memberdata name="copiararchivosparatest" display="copiarArchivosParaTest"/>] ;
+ [<memberdata name="csetdate" display="cSetDate"/>] ;
+ [<memberdata name="mejorarpresentacioncaracteresespeciales" display="mejorarPresentacionCaracteresEspeciales"/>] ;
+ [<memberdata name="prepararobjetoreg_scx" display="prepararObjetoReg_SCX"/>] ;
+ [<memberdata name="prepararobjetoreg_vcx" display="prepararObjetoReg_VCX"/>] ;
+ [</VFPData>]
@@ -86,4 +88,48 @@ DEFINE CLASS CL_FXU_CONFIG AS CUSTOM
ENDFUNC
*----------------------------------------------------------------------------------------
PROCEDURE prepararObjetoReg_SCX
LPARAMETERS toReg, tcClass, tcParent, tcObjName
toReg = CREATEOBJECT("EMPTY")
ADDPROPERTY( toReg, 'Class', tcClass )
ADDPROPERTY( toReg, 'Parent', tcParent )
ADDPROPERTY( toReg, 'objName', tcObjName )
ADDPROPERTY( toReg, 'Reserved1', '' )
ADDPROPERTY( toReg, 'Reserved2', '' )
ADDPROPERTY( toReg, 'Reserved3', '' )
ADDPROPERTY( toReg, 'Reserved4', '' )
ADDPROPERTY( toReg, 'Reserved5', '' )
ADDPROPERTY( toReg, 'Reserved6', '' )
ADDPROPERTY( toReg, 'Reserved7', '' )
ADDPROPERTY( toReg, 'Reserved8', '' )
ADDPROPERTY( toReg, 'Properties', '' )
ADDPROPERTY( toReg, 'Protected', '' )
ADDPROPERTY( toReg, 'Methods', '' )
ENDPROC
*----------------------------------------------------------------------------------------
PROCEDURE prepararObjetoReg_VCX
LPARAMETERS toReg, tcClass, tcParent, tcObjName
toReg = CREATEOBJECT("EMPTY")
ADDPROPERTY( toReg, 'Class', tcClass )
ADDPROPERTY( toReg, 'Parent', tcParent )
ADDPROPERTY( toReg, 'objName', tcObjName )
ADDPROPERTY( toReg, 'Reserved1', '' )
ADDPROPERTY( toReg, 'Reserved2', '' )
ADDPROPERTY( toReg, 'Reserved3', '' )
ADDPROPERTY( toReg, 'Reserved4', '' )
ADDPROPERTY( toReg, 'Reserved5', '' )
ADDPROPERTY( toReg, 'Reserved6', '' )
ADDPROPERTY( toReg, 'Reserved7', '' )
ADDPROPERTY( toReg, 'Reserved8', '' )
ADDPROPERTY( toReg, 'Properties', '' )
ADDPROPERTY( toReg, 'Protected', '' )
ADDPROPERTY( toReg, 'Methods', '' )
ENDPROC
ENDDEFINE

2850
TESTS/ut__foxbin2prg.prg
View File

File diff suppressed because it is too large Load Diff