Changeset: 149 - Arreglo regeneración de dataenvironment en form cuando hay clases con nombre menor a 'd'
- Reactivada recompilación por defecto para poder ver siempre los métodos, si no algunos no se ven
This commit is contained in:
fernando
BIN
TESTS/DATOS_READONLY/encuestas.dbf
Normal file
BIN
TESTS/DATOS_READONLY/encuestas.dbf
Normal file
Binary file not shown.
@@ -4,10 +4,10 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\fb2p_frm_1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*< OLE: Nombre="Cl_form1.Cl_olecontrol1" Parent="Cl_form1" ObjName="Cl_olecontrol1" OLEObject="C:\Windows\system32\richtx32.ocx" Checksum="1767681336" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHCT7i+++c4BAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAOAAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAAIAAAABwAAAP7///8JAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP////8AAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACACwAAAEFwcGVhcmFuY2UACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsZQAJAAAASQoAAAABAAAADQAAAAAAAAUAAIAAAAAAAAABAAAAAAABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dABCdWxsZXRJbmRlbnQAEQAAAE4NAAAABwAAAAAAAAAAAAAAEAAAAERpc2FibGVOb1Njcm9sbAAFAAAATAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABSaWdodE1hcmdpbgARAAAATg0AAAAHAAAAAAAAAAAAAAAFAAAAVGV4dAAUAAAASAAAAAALAAAAT2xlY29udHJvbDENAAAAQXV0b1ZlcmJNZW51AAUAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />
|
||||
*< OLE: Nombre="Cl_form1.Cl_olecontrol1" Parent="Cl_form1" ObjName="Cl_olecontrol1" OLEObject="C:\Windows\system32\richtx32.ocx" Checksum="617849590" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFBjW5n1Hc8BAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAOAAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAAIAAAABwAAAP7///8JAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP////8AAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACACwAAAEFwcGVhcmFuY2UACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsZQAJAAAASQoAAAABAAAADQAAAAAAAAUAAIAAAAAAAAABAAAAAAABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dABCdWxsZXRJbmRlbnQAEQAAAE4NAAAABwAAAAAAAAAAAAAAEAAAAERpc2FibGVOb1Njcm9sbAAFAAAATAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABSaWdodE1hcmdpbgARAAAATg0AAAAHAAAAAAAAAAAAAAAFAAAAVGV4dAAUAAAASAAAAAALAAAAT2xlY29udHJvbDENAAAAQXV0b1ZlcmJNZW51AAUAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />
|
||||
*
|
||||
DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="2013/12/15 18:50:25" Scale="" Uniqueid="_3XW0B1R2O" />
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="2014/01/30 20:58:05" Scale="" Uniqueid="_3XW0B1R2O" />
|
||||
AllowOutput = .T.
|
||||
AlwaysOnBottom = .F.
|
||||
AlwaysOnTop = .F.
|
||||
@@ -133,7 +133,7 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
|
||||
Name = "Cl_olecontrol1", ;
|
||||
Top = 256, ;
|
||||
Width = 131
|
||||
*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="olecontrol" UniqueID="_3XW0BXGCR" Timestamp="2013/12/03 20:18:24" ZOrder="2900" OLEObject="C:\Windows\system32\richtx32.ocx" CheckSum="1767681336" />
|
||||
*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="olecontrol" UniqueID="_3XW0BXGCR" Timestamp="2013/12/03 20:18:24" ZOrder="2900" OLEObject="C:\Windows\system32\richtx32.ocx" CheckSum="617849590" />
|
||||
|
||||
ADD OBJECT 'Commandgroup1' AS commandgroup WITH ;
|
||||
BackColor = 255,128,255, ;
|
||||
@@ -483,7 +483,7 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS Dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="2013/12/15 18:50:25" Scale="" Uniqueid="_3XW0B1R2N" ClassIcon="1" />
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="2014/01/30 20:58:05" Scale="" Uniqueid="_3XW0B1R2N" ClassIcon="1" />
|
||||
AutoCloseTables = .T.
|
||||
AutoOpenTables = .T.
|
||||
Comment = ""
|
||||
@@ -515,6 +515,16 @@ DEFINE CLASS Dataenvironment AS dataenvironment
|
||||
Tag = "", ;
|
||||
Top = 20, ;
|
||||
Width = 102
|
||||
*< END OBJECT: BaseClass="cursor" UniqueID="_3XW0B58OZ" Timestamp="2013/12/15 18:50:25" ZOrder="300" />
|
||||
*< END OBJECT: BaseClass="cursor" UniqueID="_3XW0B58OZ" Timestamp="2014/01/30 20:58:05" ZOrder="300" />
|
||||
|
||||
PROCEDURE BeforeOpenTables
|
||||
*-- Comentario en m<>todo [Dataenvironment.BeforeOpenTables]
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cursor1.Init
|
||||
*-- Comentario en m<>todo [Dataenvironment.Cursor1.Init]
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
Binary file not shown.
Binary file not shown.
191
TESTS/DATOS_READONLY/form1.sc2
Normal file
191
TESTS/DATOS_READONLY/form1.sc2
Normal file
@@ -0,0 +1,191 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\TEST\VARIOS\vcx2xml\form1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*< OLE: Nombre="frm_Form1.Olecontrol1" Parent="frm_Form1" ObjName="Olecontrol1" OLEObject="C:\Windows\system32\richtx32.ocx" Checksum="238423585" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOBWdmE47c4BAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAEoAAAAAAAAABQAAAAIAAAD+////BAAAAP7///8GAAAABwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAAC/DQAAOhAAACFDNBIBAAYArAAAAAAA//8AAP//AQAAAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAFJpZ2h0TWFyZ2luABEAAABODQAAAAcAAAAAAAAAAAAAAAUAAABUZXh0ABQAAABIAAAAAAsAAABPbGVjb250cm9sMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAACAAAAAAAAAAQAAAAEAAQACAAgAAAB7XHJ0ZjFcYW5zaVxhbnNpY3BnMTI1MlxkZWZmMHtcZm9udHRibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
|
||||
*
|
||||
#INCLUDE "include\keycodes.h"
|
||||
|
||||
DEFINE CLASS Dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="2013/11/19 01:01:01" Scale="" Uniqueid="_3WJ0JJNQE" ClassIcon="1" />
|
||||
DataSource = .NULL.
|
||||
Height = 200
|
||||
Left = 1
|
||||
Name = "Dataenvironment"
|
||||
Top = 220
|
||||
Width = 520
|
||||
|
||||
ADD OBJECT 'Cursor1' AS cursor WITH ;
|
||||
Alias = "foxuser_fdbozzo", ;
|
||||
CursorSource = foxuser_fdbozzo.dbf, ;
|
||||
Height = 90, ;
|
||||
Left = 10, ;
|
||||
Name = "Cursor1", ;
|
||||
Top = 20, ;
|
||||
Width = 90
|
||||
*< END OBJECT: BaseClass="cursor" UniqueID="_3XH1EYNDL" Timestamp="2013/11/29 20:22:23" ZOrder="300" />
|
||||
|
||||
PROCEDURE BeforeOpenTables
|
||||
*-- Dataenvironment.BeforeOpenTables()
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cursor1.Init
|
||||
*-- Dataenvironment.Cursor1.Init()
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_Form1 AS form
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="2013/11/29 20:22:23" Scale="" Uniqueid="_3WJ0JJNQF" />
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: *metodo_comun && M<>todo com<6F>n
|
||||
*</DefinedPropArrayMethod>
|
||||
Caption = "Form1"
|
||||
DoCreate = .T.
|
||||
Height = 250
|
||||
Icon = container.ico
|
||||
Left = 0
|
||||
Name = "frm_Form1"
|
||||
Top = 0
|
||||
Width = 470
|
||||
WindowType = 1
|
||||
|
||||
ADD OBJECT 'Cnt_controles1' AS cnt_controles WITH ;
|
||||
Left = 28, ;
|
||||
Name = "Cnt_controles1", ;
|
||||
TabIndex = 3, ;
|
||||
Top = 72, ;
|
||||
Check1.Alignment = 0, ;
|
||||
Check1.Name = "Check1", ;
|
||||
Check1.TabIndex = 1, ;
|
||||
Check1.ZOrderSet = 0, ;
|
||||
Check2.Alignment = 0, ;
|
||||
Check2.Name = "Check2", ;
|
||||
Check2.TabIndex = 2, ;
|
||||
Check2.ZOrderSet = 1, ;
|
||||
Check3.Alignment = 0, ;
|
||||
Check3.Name = "Check3", ;
|
||||
Check3.TabIndex = 4, ;
|
||||
Check3.ZOrderSet = 4, ;
|
||||
Check4.Alignment = 0, ;
|
||||
Check4.Name = "Check4", ;
|
||||
Check4.TabIndex = 5, ;
|
||||
Check4.ZOrderSet = 5, ;
|
||||
Label_h.Name = "Label_h", ;
|
||||
Label_h.TabIndex = 6, ;
|
||||
Label_h.ZOrderSet = 2, ;
|
||||
Textbox_h.Name = "Textbox_h", ;
|
||||
Textbox_h.TabIndex = 3, ;
|
||||
Textbox_h.ZOrderSet = 3
|
||||
*< END OBJECT: ClassLib="bca.vcx" BaseClass="container" UniqueID="_3XH0XA3XD" Timestamp="2013/11/19 01:01:01" ZOrder="700" />
|
||||
|
||||
ADD OBJECT 'Cnt_controles1.Label1' AS label WITH ;
|
||||
Caption = "Label1", ;
|
||||
Height = 17, ;
|
||||
Left = 24, ;
|
||||
Name = "Label1", ;
|
||||
TabIndex = 7, ;
|
||||
Top = 84, ;
|
||||
Width = 64
|
||||
*< END OBJECT: BaseClass="label" UniqueID="_3XH1DGY07" Timestamp="2013/11/19 01:01:01" ZOrder="800" />
|
||||
|
||||
ADD OBJECT 'Command1' AS commandbutton WITH ;
|
||||
Caption = "Command1", ;
|
||||
Height = 27, ;
|
||||
Left = 28, ;
|
||||
Name = "Command1", ;
|
||||
TabIndex = 1, ;
|
||||
Top = 20, ;
|
||||
Width = 84
|
||||
*< END OBJECT: BaseClass="commandbutton" UniqueID="_3WJ0JJNQG" Timestamp="2013/11/23 14:11:05" ZOrder="500" />
|
||||
|
||||
ADD OBJECT 'Command2' AS commandbutton WITH ;
|
||||
Caption = "Command1", ;
|
||||
Height = 27, ;
|
||||
Left = 132, ;
|
||||
Name = "Command2", ;
|
||||
TabIndex = 2, ;
|
||||
Top = 20, ;
|
||||
Width = 84
|
||||
*< END OBJECT: BaseClass="commandbutton" UniqueID="_3WJ0JJNQH" Timestamp="2013/11/23 13:58:05" ZOrder="600" />
|
||||
|
||||
ADD OBJECT 'Olecontrol1' AS olecontrol WITH ;
|
||||
Height = 157, ;
|
||||
Left = 328, ;
|
||||
Name = "Olecontrol1", ;
|
||||
Top = 72, ;
|
||||
Width = 133
|
||||
*< END OBJECT: BaseClass="olecontrol" UniqueID="_3XI026DCE" Timestamp="2013/11/19 01:01:01" ZOrder="900" OLEObject="C:\Windows\system32\richtx32.ocx" CheckSum="238423585" />
|
||||
|
||||
PROCEDURE Load
|
||||
*-- Form 1 LOAD()
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE metodo_comun && M<>todo com<6F>n
|
||||
*-- frm_Form1.metodo_comun()
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Unload
|
||||
*-- Form1.Unload()
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cnt_controles1.Check1.Click
|
||||
*-- Form1.Cnt_controles1.Check1.Click()
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cnt_controles1.Check2.Click
|
||||
*-- Form1.Cnt_controles1.Check2.Click()
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cnt_controles1.Check3.Click
|
||||
*-- Form1.Cnt_controles1.Check3.Click()
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cnt_controles1.Check4.Click
|
||||
*-- Form1.Cnt_controles1.Check4.Click()
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cnt_controles1.Init
|
||||
*-- Form1.Command1.Cnt_controles1.Init()
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cnt_controles1.Label1.Click
|
||||
*-- Form1.Cnt_controles1.Label1.Click() ==> No hereda, es nuevo!
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Command1.Click
|
||||
*-- Form1.Command1.Click()
|
||||
PUBLIC ;
|
||||
glEnabled_Opc_A_2_Sub_2 ;
|
||||
, glEnabled_Opc_A_2_Sub_3 ;
|
||||
, glEnabled_Opc_B
|
||||
|
||||
STORE .T. TO ;
|
||||
glEnabled_Opc_A_2_Sub_2 ;
|
||||
, glEnabled_Opc_A_2_Sub_3 ;
|
||||
, glEnabled_Opc_B
|
||||
|
||||
DO MENU1.MPR
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Command2.Click
|
||||
*-- Form1.Command2.Click()
|
||||
QUIT
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
BIN
TESTS/DATOS_READONLY/form1.sct
Normal file
BIN
TESTS/DATOS_READONLY/form1.sct
Normal file
Binary file not shown.
BIN
TESTS/DATOS_READONLY/form1.scx
Normal file
BIN
TESTS/DATOS_READONLY/form1.scx
Normal file
Binary file not shown.
@@ -26,7 +26,7 @@ _LegalTrademark = "Open Source"
|
||||
_ProductName = " FOXBIN2PRG"
|
||||
_MajorVer = "1"
|
||||
_MinorVer = "19"
|
||||
_Revision = " 216"
|
||||
_Revision = " 219"
|
||||
_LanguageID = "1034"
|
||||
_AutoIncrement = "1"
|
||||
*</DevInfo>
|
||||
@@ -51,7 +51,7 @@ loProject = _VFP.Projects('foxbin2prg.pjx')
|
||||
|
||||
WITH loProject.FILES
|
||||
.ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="1132857145" ID="1131721714" ObjRev="0" />
|
||||
.ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="1144955831" ID="1130644423" ObjRev="544" />
|
||||
.ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="1144982028" ID="1130644423" ObjRev="544" />
|
||||
*</BuildProj>
|
||||
|
||||
.ITEM('__newproject.f2b').Remove()
|
||||
|
||||
BIN
foxbin2prg.pjt
BIN
foxbin2prg.pjt
Binary file not shown.
BIN
foxbin2prg.pjx
BIN
foxbin2prg.pjx
Binary file not shown.
@@ -314,9 +314,11 @@ LOCAL lnResp, loEx as Exception
|
||||
|
||||
*SYS(2030,1)
|
||||
*SYS(2335,0)
|
||||
*IF PCOUNT() > 1
|
||||
*IF PCOUNT() > 1 && Saltear las querys de SourceSafe sobre soporte de archivos
|
||||
* SET STEP ON
|
||||
* MESSAGEBOX( SYS(5)+CURDIR(),64+4096,PROGRAM(),5000)
|
||||
*ENDIF
|
||||
|
||||
loCnv = CREATEOBJECT("c_foxbin2prg")
|
||||
loEx = NULL
|
||||
lnResp = loCnv.ejecutar( tc_InputFile, tcType, tcTextName, tlGenText, tcDontShowErrors, tcDebug ;
|
||||
@@ -690,6 +692,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
|
||||
, loFSO AS Scripting.FileSystemObject
|
||||
|
||||
lnCodError = 0
|
||||
tcRecompile = EVL(tcRecompile,'')
|
||||
|
||||
*SET DELETED ON
|
||||
*SET DATE YMD
|
||||
@@ -719,7 +722,8 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
|
||||
*-- Ejecuci<63>n normal
|
||||
THIS.l_ShowProgress = NOT (TRANSFORM(tcDontShowProgress)=='1')
|
||||
THIS.l_ShowErrors = NOT (TRANSFORM(tcDontShowErrors) == '1')
|
||||
THIS.l_Recompile = (NOT EMPTY(tcRecompile) AND (TRANSFORM(tcRecompile) == '1' OR DIRECTORY(tcRecompile)))
|
||||
*THIS.l_Recompile = (NOT EMPTY(tcRecompile) AND (TRANSFORM(tcRecompile) == '1' OR DIRECTORY(tcRecompile)))
|
||||
THIS.l_Recompile = (EMPTY(tcRecompile) OR TRANSFORM(tcRecompile) == '1' OR DIRECTORY(tcRecompile))
|
||||
THIS.l_Debug = (TRANSFORM(tcDebug)=='1' OR FILE(FORCEEXT(THIS.c_Foxbin2prg_FullPath,'LOG')))
|
||||
|
||||
IF THIS.l_ShowProgress
|
||||
@@ -762,7 +766,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
|
||||
IF THIS.l_Recompile AND LEN(tcRecompile) > 3 AND DIRECTORY(tcRecompile)
|
||||
CD (tcRecompile)
|
||||
ELSE
|
||||
CD (JUSTPATH(lcFileSpec))
|
||||
*CD (JUSTPATH(lcFileSpec))
|
||||
ENDIF
|
||||
THIS.c_LogFile = ADDBS( JUSTPATH( lcFileSpec ) ) + STRTRAN( JUSTFNAME( lcFileSpec ), '*', '_ALL' ) + '.LOG'
|
||||
|
||||
@@ -818,7 +822,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
|
||||
IF THIS.l_Recompile AND LEN(tcRecompile) > 3 AND DIRECTORY(tcRecompile)
|
||||
CD (tcRecompile)
|
||||
ELSE
|
||||
CD (JUSTPATH(tc_InputFile))
|
||||
*CD (JUSTPATH(tc_InputFile))
|
||||
ENDIF
|
||||
|
||||
THIS.c_LogFile = tc_InputFile + '.LOG'
|
||||
@@ -833,6 +837,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
|
||||
*-- para se debe regenerar el binario (tlGenText=.F.) se debe usar como
|
||||
*-- archivo de entrada tcTextName en su lugar. Aqu<71> los intercambio.
|
||||
tc_InputFile = tcTextName
|
||||
THIS.l_Recompile = .T.
|
||||
ENDIF
|
||||
ENDIF
|
||||
|
||||
@@ -4402,10 +4407,17 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
|
||||
|
||||
|
||||
*-- Recorro las CLASES
|
||||
FOR X = 1 TO 2
|
||||
FOR I = 1 TO toModulo._Clases_Count
|
||||
|
||||
loClase = toModulo._Clases(I)
|
||||
|
||||
*-- El dataenvironment debe estar primero, luego lo dem<65>s.
|
||||
IF X = 1 AND NOT loClase._baseclass == 'dataenvironment' ;
|
||||
OR X = 2 AND loClase._baseclass == 'dataenvironment'
|
||||
LOOP
|
||||
ENDIF
|
||||
|
||||
*-- Inserto la clase
|
||||
INSERT INTO TABLABIN ;
|
||||
( PLATFORM ;
|
||||
@@ -4507,6 +4519,7 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
|
||||
, '' )
|
||||
|
||||
ENDFOR && I = 1 TO toModulo._Clases_Count
|
||||
ENDFOR && X = 1 TO 2
|
||||
|
||||
USE IN (SELECT("TABLABIN"))
|
||||
|
||||
@@ -4671,7 +4684,7 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin
|
||||
#ENDIF
|
||||
|
||||
TRY
|
||||
LOCAL lcObjName, lnCodError, loEx AS EXCEPTION ;
|
||||
LOCAL lcObjName, lnCodError, I, X, loEx AS EXCEPTION ;
|
||||
, loClase AS CL_CLASE OF 'FOXBIN2PRG.PRG' ;
|
||||
, loObjeto AS CL_OBJETO OF 'FOXBIN2PRG.PRG'
|
||||
|
||||
@@ -4685,10 +4698,17 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin
|
||||
|
||||
|
||||
*-- Recorro las CLASES
|
||||
FOR X = 1 TO 2
|
||||
FOR I = 1 TO toModulo._Clases_Count
|
||||
|
||||
loClase = toModulo._Clases(I)
|
||||
|
||||
*-- El dataenvironment debe estar primero, luego lo dem<65>s.
|
||||
IF X = 1 AND NOT loClase._baseclass == 'dataenvironment' ;
|
||||
OR X = 2 AND loClase._baseclass == 'dataenvironment'
|
||||
LOOP
|
||||
ENDIF
|
||||
|
||||
*-- Inserto la clase
|
||||
INSERT INTO TABLABIN ;
|
||||
( PLATFORM ;
|
||||
@@ -4741,6 +4761,7 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin
|
||||
THIS.insert_AllObjects( @loClase )
|
||||
|
||||
ENDFOR && I = 1 TO toModulo._Clases_Count
|
||||
ENDFOR && X = 1 TO 2
|
||||
|
||||
*-- Inserto el COMMENT final
|
||||
INSERT INTO TABLABIN ;
|
||||
|
||||
Reference in New Issue
Block a user