47 lines
1.8 KiB
Plaintext
47 lines
1.8 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.20" SourceFile="fb2p_test_bug_estructural.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
DEFINE CLASS cl_form AS form
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
Caption = "Form"
|
|
DoCreate = .T.
|
|
Name = "cl_form"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Command1' AS commandbutton WITH ;
|
|
Caption = "Command1", ;
|
|
Height = 27, ;
|
|
Left = 36, ;
|
|
Name = "Command1", ;
|
|
Top = 32, ;
|
|
Width = 84
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
PROCEDURE Load
|
|
TEXT && COMPROBACIÓN DE CIERRE DE ESTRUCTURA "ENDPROC"
|
|
|
|
*-- Dejando la últim línea sin ENTER se comprueba si el ENDPROC
|
|
*-- se queda pegado a la misma o no por faltar un CR+LF antes del mismo.
|
|
|
|
ENDTEXT && Esto termina sin ENTER.
|
|
ENDPROC
|
|
|
|
PROCEDURE Command1.Click
|
|
TEXT && COMPROBACIÓN DE CIERRE DE ESTRUCTURA "ENDPROC"
|
|
|
|
*-- Dejando la últim línea sin ENTER se comprueba si el ENDPROC
|
|
*-- se queda pegado a la misma o no por faltar un CR+LF antes del mismo.
|
|
|
|
ENDTEXT && Esto termina sin ENTER.
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|