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

Changeset: 183 fdbozzo - 03/03/2014 20:20:31:

Browse Source 
v1.19.15
- Arreglo bug información OLE que se borra cuando se procesa un TX2 legacy
This commit is contained in:
fdbozzo
2014-03-04 22:54:36 +01:00
parent e764eef719
commit 0940d4a8bd
5 changed files with 14 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Convert_VFP9_PRG_2_BIN.vbs
View File

@@ -66,10 +66,17 @@ Else
scanDirs( WScript.Arguments(i) ) scanDirs( WScript.Arguments(i) )
Next Next
If WScript.Arguments.Count = 1 AND FileSystemObject.FolderExists( WScript.Arguments(0) ) Then
'-- Es un solo directorio. Lo tomo como origen de compilaci<63>n
cFlagRecompile = "'" & WScript.Arguments(0) & "'"
Else
cFlagRecompile = "'1'"
End If
cFlagGenerateLog = "'0'" cFlagGenerateLog = "'0'"
cFlagDontShowErrMsg = "'0'" cFlagDontShowErrMsg = "'0'"
cFlagShowCall = "'0'" cFlagShowCall = "'0'"
cFlagRecompile = "'1'" 'cFlagRecompile = "'1'"
If GetBit(nDebug, 1) Then If GetBit(nDebug, 1) Then
cFlagGenerateLog = "'1'" cFlagGenerateLog = "'1'"

6
foxbin2prg.pj2
View File

@@ -26,7 +26,7 @@ _LegalTrademark = "Open Source"
_ProductName = " FOXBIN2PRG" _ProductName = " FOXBIN2PRG"
_MajorVer = "1" _MajorVer = "1"
_MinorVer = "19" _MinorVer = "19"
_Revision = " 286" _Revision = " 287"
_LanguageID = "1034" _LanguageID = "1034"
_AutoIncrement = "1" _AutoIncrement = "1"
*</DevInfo> *</DevInfo>
@@ -50,8 +50,8 @@ MODIFY PROJECT 'foxbin2prg.pjx' NOWAIT NOSHOW NOPROJECTHOOK
loProject = _VFP.Projects('foxbin2prg.pjx') loProject = _VFP.Projects('foxbin2prg.pjx')
WITH loProject.FILES WITH loProject.FILES
.ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> .ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="1132857145" ID="0" ObjRev="0" />
.ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" /> .ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="1147432576" ID="0" ObjRev="544" />
*</BuildProj> *</BuildProj>
.ITEM('__newproject.f2b').Remove() .ITEM('__newproject.f2b').Remove()

BIN
foxbin2prg.pjt
View File

Binary file not shown.

BIN
foxbin2prg.pjx
View File

Binary file not shown.

4
foxbin2prg.prg
View File

@@ -4347,7 +4347,9 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
toClase._ProjectClassIcon = .get_ValueByName_FromListNamesWithValues( 'ProjectClassIcon', 'C', @laPropsAndValues ) toClase._ProjectClassIcon = .get_ValueByName_FromListNamesWithValues( 'ProjectClassIcon', 'C', @laPropsAndValues )
toClase._ClassIcon = .get_ValueByName_FromListNamesWithValues( 'ClassIcon', 'C', @laPropsAndValues ) toClase._ClassIcon = .get_ValueByName_FromListNamesWithValues( 'ClassIcon', 'C', @laPropsAndValues )
toClase._Ole2 = .get_ValueByName_FromListNamesWithValues( 'OLEObject', 'C', @laPropsAndValues ) toClase._Ole2 = .get_ValueByName_FromListNamesWithValues( 'OLEObject', 'C', @laPropsAndValues )
toClase._Ole = STRCONV( .get_ValueByName_FromListNamesWithValues( 'Value', 'C', @laPropsAndValues ), 14 ) IF EMPTY(toClase._Ole)
toClase._Ole = STRCONV( .get_ValueByName_FromListNamesWithValues( 'Value', 'C', @laPropsAndValues ), 14 )
ENDIF
ENDWITH && THIS ENDWITH && THIS
IF NOT EMPTY( toClase._Ole2 ) && Le agrego "OLEObject = " delante IF NOT EMPTY( toClase._Ole2 ) && Le agrego "OLEObject = " delante