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="copiararchivosparatest" display="copiarArchivosParaTest"/>] ;
+ [<memberdata name="csetdate" display="cSetDate"/>] ; + [<memberdata name="csetdate" display="cSetDate"/>] ;
+ [<memberdata name="mejorarpresentacioncaracteresespeciales" display="mejorarPresentacionCaracteresEspeciales"/>] ; + [<memberdata name="mejorarpresentacioncaracteresespeciales" display="mejorarPresentacionCaracteresEspeciales"/>] ;
+ [<memberdata name="prepararobjetoreg_scx" display="prepararObjetoReg_SCX"/>] ;
+ [<memberdata name="prepararobjetoreg_vcx" display="prepararObjetoReg_VCX"/>] ;
+ [</VFPData>] + [</VFPData>]
@@ -86,4 +88,48 @@ DEFINE CLASS CL_FXU_CONFIG AS CUSTOM
ENDFUNC 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 ENDDEFINE

2850
TESTS/ut__foxbin2prg.prg
View File

File diff suppressed because it is too large Load Diff

2
foxbin2prg.prg
View File

@@ -2975,7 +2975,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
toClase._PROTECTED = THIS.hiddenAndProtected_PAM( toClase ) toClase._PROTECTED = THIS.hiddenAndProtected_PAM( toClase )
toClase._METHODS = THIS.classMethods2Memo( toClase ) toClase._METHODS = THIS.classMethods2Memo( toClase )
*toClase._RESERVED1 = IIF( THIS.c_Type = 'SCX', 'Screen', 'Class' ) *toClase._RESERVED1 = IIF( THIS.c_Type = 'SCX', 'Screen', 'Class' )
toClase._RESERVED2 = TRANSFORM( toClase._AddObject_Count + 1 ) toClase._RESERVED2 = IIF( THIS.c_Type = 'VCX' OR toClase._Nombre == 'Dataenvironment', TRANSFORM( toClase._AddObject_Count + 1 ), '' )
toClase._RESERVED3 = THIS.defined_PAM2Memo( toClase ) toClase._RESERVED3 = THIS.defined_PAM2Memo( toClase )
toClase._RESERVED4 = toClase._ClassIcon toClase._RESERVED4 = toClase._ClassIcon
toClase._RESERVED5 = toClase._ProjectClassIcon toClase._RESERVED5 = toClase._ProjectClassIcon