0baa321224
- Reactivada recompilación por defecto para poder ver siempre los métodos, si no algunos no se ven
192 lines
8.5 KiB
Plaintext
192 lines
8.5 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡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ú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ú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
|