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

Changeset: 173 fernando - 23/02/2014 16:41:18:

Browse Source 
- Mejora estética presentación TX2
This commit is contained in:
fernando
2014-02-23 16:42:45 +01:00
parent f378b64024
commit 54cb0d4a9b
4 changed files with 27 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
foxbin2prg.pj2
View File

@@ -26,7 +26,7 @@ _LegalTrademark = "Open Source"
_ProductName = " FOXBIN2PRG" _ProductName = " FOXBIN2PRG"
_MajorVer = "1" _MajorVer = "1"
_MinorVer = "19" _MinorVer = "19"
_Revision = " 270" _Revision = " 277"
_LanguageID = "1034" _LanguageID = "1034"
_AutoIncrement = "1" _AutoIncrement = "1"
*</DevInfo> *</DevInfo>

BIN
foxbin2prg.pjt
View File

Binary file not shown.

BIN
foxbin2prg.pjx
View File

Binary file not shown.

32
foxbin2prg.prg
View File

@@ -7863,6 +7863,8 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
<<>> <<C_DEFINED_PAM_F>> <<>> <<C_DEFINED_PAM_F>>
ENDTEXT ENDTEXT
C_FB2PRG_CODE = C_FB2PRG_CODE + CR_LF
ENDIF ENDIF
ENDPROC ENDPROC
@@ -7966,6 +7968,8 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
<<C_CLASSDATA_F>> <<C_CLASSDATA_F>>
ENDTEXT ENDTEXT
C_FB2PRG_CODE = C_FB2PRG_CODE + CR_LF
ENDPROC ENDPROC
@@ -7981,10 +7985,10 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
IF '.' $ toRegObj.PARENT IF '.' $ toRegObj.PARENT
*-- Este caso: clase.objeto.objeto ==> se quita clase *-- Este caso: clase.objeto.objeto ==> se quita clase
lcNombre = SUBSTR(toRegObj.Parent, AT('.', toRegObj.Parent)+1) + '.' + toRegObj.objName lcNombre = SUBSTR(toRegObj.PARENT, AT('.', toRegObj.PARENT)+1) + '.' + toRegObj.OBJNAME
ELSE ELSE
*-- Este caso: objeto *-- Este caso: objeto
lcNombre = toRegObj.objName lcNombre = toRegObj.OBJNAME
ENDIF ENDIF
TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2+4+8 TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2+4+8
@@ -8595,9 +8599,15 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg
GOTO RECORD (lnRecno) GOTO RECORD (lnRecno)
ASORT(laObjs, 2, -1, 0, 0) && Orden por ZOrder ASORT(laObjs, 2, -1, 0, 0) && Orden por ZOrder
FOR I = 1 TO lnObjCount IF lnObjCount > 0
.write_OBJECTMETADATA( laObjs(I,1) ) C_FB2PRG_CODE = C_FB2PRG_CODE + CR_LF + ' *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder '
ENDFOR
FOR I = 1 TO lnObjCount
.write_OBJECTMETADATA( laObjs(I,1) )
ENDFOR
C_FB2PRG_CODE = C_FB2PRG_CODE + CR_LF
ENDIF
.write_INCLUDE( @loRegClass ) .write_INCLUDE( @loRegClass )
@@ -8806,9 +8816,15 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg
GOTO RECORD (lnRecno) GOTO RECORD (lnRecno)
ASORT(laObjs, 2, -1, 0, 0) && Orden por ZOrder ASORT(laObjs, 2, -1, 0, 0) && Orden por ZOrder
FOR I = 1 TO lnObjCount IF lnObjCount > 0
.write_OBJECTMETADATA( laObjs(I,1) ) C_FB2PRG_CODE = C_FB2PRG_CODE + CR_LF + ' *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder '
ENDFOR
FOR I = 1 TO lnObjCount
.write_OBJECTMETADATA( laObjs(I,1) )
ENDFOR
C_FB2PRG_CODE = C_FB2PRG_CODE + CR_LF
ENDIF
.write_INCLUDE( @loRegClass ) .write_INCLUDE( @loRegClass )