removed binary sources (FoxBin2Prg)
This commit is contained in:
Lutz
@@ -4,200 +4,9 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.19" SourceFile="form1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
|
||||
*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
|
||||
*< EXTERNAL_CLASS: Name="frm_form1" Baseclass="form" />
|
||||
|
||||
*
|
||||
#INCLUDE "include\keycodes.h"
|
||||
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Cursor1" UniqueID="" Timestamp="" />
|
||||
|
||||
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" />
|
||||
|
||||
PROCEDURE BeforeOpenTables
|
||||
*-- Dataenvironment.BeforeOpenTables()
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cursor1.Init
|
||||
*-- Dataenvironment.Cursor1.Init()
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_form1 AS form
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cnt_controles1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cnt_controles1.Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Olecontrol1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<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, ;
|
||||
Check2.Alignment = 0, ;
|
||||
Check2.Name = "Check2", ;
|
||||
Check2.TabIndex = 2, ;
|
||||
Check2.ZOrderSet = 1, ;
|
||||
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, ;
|
||||
Check1.Alignment = 0, ;
|
||||
Check1.Name = "Check1", ;
|
||||
Check1.TabIndex = 1, ;
|
||||
Check1.ZOrderSet = 0, ;
|
||||
Check3.Alignment = 0, ;
|
||||
Check3.Name = "Check3", ;
|
||||
Check3.TabIndex = 4, ;
|
||||
Check3.ZOrderSet = 4
|
||||
*< END OBJECT: ClassLib="bca.vcx" BaseClass="container" />
|
||||
|
||||
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" />
|
||||
|
||||
ADD OBJECT 'Command1' AS commandbutton WITH ;
|
||||
Caption = "Command1", ;
|
||||
Height = 27, ;
|
||||
Left = 28, ;
|
||||
Name = "Command1", ;
|
||||
TabIndex = 1, ;
|
||||
Top = 20, ;
|
||||
Width = 84
|
||||
*< END OBJECT: BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Command2' AS commandbutton WITH ;
|
||||
Caption = "Command1", ;
|
||||
Height = 27, ;
|
||||
Left = 132, ;
|
||||
Name = "Command2", ;
|
||||
TabIndex = 2, ;
|
||||
Top = 20, ;
|
||||
Width = 84
|
||||
*< END OBJECT: BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Olecontrol1' AS olecontrol WITH ;
|
||||
Height = 157, ;
|
||||
Left = 328, ;
|
||||
Name = "Olecontrol1", ;
|
||||
Top = 72, ;
|
||||
Width = 133
|
||||
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOBWdmE47c4BAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAEoAAAAAAAAABQAAAAIAAAD+////BAAAAP7///8GAAAABwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAAC/DQAAOhAAACFDNBIBAAYArAAAAAAA//8AAP//AQAAAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAFJpZ2h0TWFyZ2luABEAAABODQAAAAcAAAAAAAAAAAAAAAUAAABUZXh0ABQAAABIAAAAAAsAAABPbGVjb250cm9sMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAACAAAAAAAAAAQAAAAEAAQACAAgAAAB7XHJ0ZjFcYW5zaVxhbnNpY3BnMTI1MlxkZWZmMHtcZm9udHRibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
|
||||
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user