From fe40d8dd833ec298c297bda65fb2760354bfe1be Mon Sep 17 00:00:00 2001 From: fdbozzo Date: Sat, 29 Nov 2014 16:39:19 +0100 Subject: [PATCH] =?UTF-8?q?Changeset:=20528=20fdbozzo=20-=2029/11/2014=201?= =?UTF-8?q?6:20:40:=20-=20Quitada=20la=20l=C3=ADnea=20vac=C3=ADa=20e=20la?= =?UTF-8?q?=20cabecera=20cuando=20el=20form=20tiene=20objetos=20OLE=20(bug?= =?UTF-8?q?=20del=20antiguo=20manejo=20de=20OLE=20en=20cabecera,=20antes?= =?UTF-8?q?=20de=20encapsularlo=20en=20el=20objeto=20mismo)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- foxbin2prg.prg | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) diff --git a/foxbin2prg.prg b/foxbin2prg.prg index 53bb96b..aa8b9c6 100644 --- a/foxbin2prg.prg +++ b/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É PORQUE POR CADA OBJETO OLE SE AGREGABA UNA LÍNEA VACÍA QUE QUEDA MUY MAL Y ES INNECESARIA. + *-- COMO CONSECUENCIA, LOS FORMS O CLASES CON OBJETOS OLE DARÁN DIFERENCIA POR Ú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 - *-- 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 + *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 + *ENDIF *!* CATCH TO loEx *!* IF THIS.l_Debug AND _VFP.STARTMODE = 0