Changeset: 528 fdbozzo - 29/11/2014 16:20:40:

- Quitada la línea vacía e la cabecera cuando el form tiene objetos OLE (bug del antiguo manejo de OLE en cabecera, antes de encapsularlo en el objeto mismo)

foxbin2prg.prg

@@ -10902,21 +10902,24 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 
 		*!*				ENDSCAN
 
-		SELECT COUNT(*) FROM TABLABIN WHERE TABLABIN.PLATFORM = "WINDOWS" AND BASECLASS == 'olecontrol' INTO ARRAY laOLE
+		*-- LO QUE SIGUE LO COMENT<4E> PORQUE POR CADA OBJETO OLE SE AGREGABA UNA L<>NEA VAC<41>A QUE QUEDA MUY MAL Y ES INNECESARIA.
+		*-- COMO CONSECUENCIA, LOS FORMS O CLASES CON OBJETOS OLE DAR<41>N DIFERENCIA POR <20>NICA VEZ EN LA CABECERA. - fdbozzo. 29/11/2014 (v1.19.37)
+		*
+		*SELECT COUNT(*) FROM TABLABIN WHERE TABLABIN.PLATFORM = "WINDOWS" AND BASECLASS == 'olecontrol' INTO ARRAY laOLE
 		
-		IF laOLE(1) > 0 THEN
+		*IF laOLE(1) > 0 THEN
-			*-- Lo del <<>> para crear una l<>nea vac<61>a es solamente por compatibilidad con lo antiguo,
+		*	*-- Lo del <<>> para crear una l<>nea vac<61>a es solamente por compatibilidad con lo antiguo,
-			*-- donde se creaba esta l<>nea cuando el form o clase ten<65>a al menos un objeto OLE.
+		*	*-- donde se creaba esta l<>nea cuando el form o clase ten<65>a al menos un objeto OLE.
-			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
+		*	TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
-				<<>>
+		*		<<>>
-				*
+		*		*
-			ENDTEXT
+		*	ENDTEXT
-		ELSE
+		*ELSE
 
 			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
 				*
 			ENDTEXT
-		ENDIF
+		*ENDIF
 
 		*!*			CATCH TO loEx
 		*!*				IF THIS.l_Debug AND _VFP.STARTMODE = 0