From 3300547d7f5fce5e626e206cb0b7d6fe26c813c2 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Sun, 23 Nov 2014 19:23:15 +0100
Subject: [PATCH] =?UTF-8?q?Changeset:=20520=20fdbozzo=20-=2023/11/2014=201?=
 =?UTF-8?q?9:16:28:=20-=20Arreglo=20bug=20introducido=20en=20el=20desarrol?=
 =?UTF-8?q?lo=20respecto=20de=20la=20l=C3=ADnea=20vac=C3=ADa=20en=20cabece?=
 =?UTF-8?q?ra=20que=20solo=20debe=20crearse=20cuando=20hay=20OLE=20(por=20?=
 =?UTF-8?q?compatibilidad)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 foxbin2prg.prg | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index c59e524..782b822 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -10300,6 +10300,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 		*-- Crea la definición del tag *< OLE: /> con la información de todos los objetos OLE
 		LPARAMETERS toFoxBin2Prg
 
+		LOCAL laOLE(1)
 		*!*			LOCAL lnOLECount, lcOLEChecksum, llOleExistente, loReg
 
 		*!*			#IF .F.
@@ -10339,10 +10340,21 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 
 		*!*				ENDSCAN
 
-		TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
-			<<>>
-			*
-		ENDTEXT
+		SELECT COUNT(*) FROM TABLABIN WHERE TABLABIN.PLATFORM = "WINDOWS" AND BASECLASS == 'olecontrol' INTO ARRAY laOLE
+		
+		IF laOLE(1) > 0 THEN
+			*-- Lo del <<>> para crear una línea vacía es solamente por compatibilidad con lo antiguo,
+			*-- donde se creaba esta línea cuando el form o clase tenía al menos un objeto OLE.
+			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
+				<<>>
+				*
+			ENDTEXT
+		ELSE
+
+			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
+				*
+			ENDTEXT
+		ENDIF
 
 		*!*			CATCH TO loEx
 		*!*				IF THIS.l_Debug AND _VFP.STARTMODE = 0