removed binary sources (FoxBin2Prg)
This commit is contained in:
Lutz
@@ -4,561 +4,9 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_frm_1.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="cl_form1" Baseclass="form" />
|
||||
*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
|
||||
|
||||
*
|
||||
#INCLUDE "..\..\include\principal.h"
|
||||
|
||||
DEFINE CLASS cl_form1 AS cl_form OF "fb2p_test.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtPromotor" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblPromotor" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtIdenc" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblIdenc" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtCalific" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblCalific" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtFecha" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblFecha" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtResultado" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblResultado" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdEncuestas" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdEncuestas.Column1.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdEncuestas.Column1.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdEncuestas.Column2.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdEncuestas.Column2.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdEncuestas.Column3.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdEncuestas.Column3.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdEncuestas.Column4.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdEncuestas.Column4.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdEncuestas.Column5.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdEncuestas.Column5.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Commandgroup1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cl_olecontrol1" UniqueID="" Timestamp="" />
|
||||
|
||||
AllowOutput = .T.
|
||||
AlwaysOnBottom = .F.
|
||||
AlwaysOnTop = .T.
|
||||
AutoCenter = .T.
|
||||
BackColor = 240,240,240
|
||||
BindControls = .T.
|
||||
BorderStyle = 3
|
||||
BufferMode = 0
|
||||
Caption = "Form"
|
||||
ClipControls = .T.
|
||||
Closable = .T.
|
||||
ColorSource = 4
|
||||
Comment = ""
|
||||
ContinuousScroll = .T.
|
||||
ControlBox = .T.
|
||||
DataSession = 1
|
||||
DefOleLCID = 0
|
||||
Desktop = .F.
|
||||
Dockable = 0
|
||||
DoCreate = .T.
|
||||
DrawMode = 13
|
||||
DrawStyle = 0
|
||||
DrawWidth = 1
|
||||
Enabled = .T.
|
||||
FillColor = 0,0,0
|
||||
FillStyle = 1
|
||||
FontBold = .F.
|
||||
FontCharSet = 0
|
||||
FontCondense = .F.
|
||||
FontExtend = .F.
|
||||
FontItalic = .F.
|
||||
FontName = "Arial"
|
||||
FontOutline = .F.
|
||||
FontShadow = .F.
|
||||
FontSize = 9
|
||||
FontStrikethru = .F.
|
||||
FontUnderline = .F.
|
||||
ForeColor = 0,0,0
|
||||
HalfHeightCaption = .F.
|
||||
Height = 346
|
||||
HelpContextID = 0
|
||||
HScrollSmallChange = 10
|
||||
Icon = ..\..\
|
||||
KeyPreview = .F.
|
||||
LockScreen = .F.
|
||||
MacDesktop = 0
|
||||
MaxButton = .T.
|
||||
MaxHeight = -1
|
||||
MaxLeft = -1
|
||||
MaxTop = -1
|
||||
MaxWidth = -1
|
||||
MDIForm = .F.
|
||||
MinButton = .T.
|
||||
MinHeight = -1
|
||||
MinWidth = -1
|
||||
MouseIcon = ..\..\
|
||||
MousePointer = 0
|
||||
Movable = .T.
|
||||
Name = "cl_form1"
|
||||
OLEDragMode = 0
|
||||
OLEDragPicture = ..\..\
|
||||
OLEDropEffects = 3
|
||||
OLEDropMode = 0
|
||||
Picture = bmps\fondogris.bmp
|
||||
RightToLeft = .F.
|
||||
ScaleMode = 3
|
||||
ScrollBars = 0
|
||||
ShowInTaskBar = .T.
|
||||
ShowTips = .F.
|
||||
ShowWindow = 0
|
||||
SizeBox = .F.
|
||||
TabIndex = 1
|
||||
TabStop = .T.
|
||||
Tag = ""
|
||||
Themes = .T.
|
||||
TitleBar = 1
|
||||
Visible = .T.
|
||||
VScrollSmallChange = 10
|
||||
WhatsThisButton = .F.
|
||||
WhatsThisHelp = .F.
|
||||
WhatsThisHelpID = -1
|
||||
Width = 648
|
||||
WindowState = 0
|
||||
WindowType = 0
|
||||
ZoomBox = .F.
|
||||
Cl_commandgroup1.Command1.Left = 8
|
||||
Cl_commandgroup1.Command1.Name = "Command1"
|
||||
Cl_commandgroup1.Command1.RightToLeft = .F.
|
||||
Cl_commandgroup1.Command1.Top = 4
|
||||
Cl_commandgroup1.Command2.Left = 124
|
||||
Cl_commandgroup1.Command2.Name = "Command2"
|
||||
Cl_commandgroup1.Command2.RightToLeft = .F.
|
||||
Cl_commandgroup1.Command2.Top = 4
|
||||
Cl_commandgroup1.Name = "Cl_commandgroup1"
|
||||
Cl_commandgroup1.una_prop_cmgroup = Ahora tiene valor
|
||||
Cl_commandgroup1.ZOrderSet = 2
|
||||
Cl_imagen1.Left = 268
|
||||
Cl_imagen1.Name = "Cl_imagen1"
|
||||
Cl_imagen1.Top = 292
|
||||
Cl_imagen1.ZOrderSet = 3
|
||||
Cl_imagen2.Left = 316
|
||||
Cl_imagen2.Name = "Cl_imagen2"
|
||||
Cl_imagen2.Top = 292
|
||||
Cl_imagen2.ZOrderSet = 4
|
||||
Cl_optiongroup1.Name = "Cl_optiongroup1"
|
||||
Cl_optiongroup1.Option1.Left = 8
|
||||
Cl_optiongroup1.Option1.Name = "Option1"
|
||||
Cl_optiongroup1.Option1.RightToLeft = .F.
|
||||
Cl_optiongroup1.Option1.Top = 8
|
||||
Cl_optiongroup1.Option1.Value = 0
|
||||
Cl_optiongroup1.Option2.Left = 124
|
||||
Cl_optiongroup1.Option2.Name = "Option2"
|
||||
Cl_optiongroup1.Option2.RightToLeft = .F.
|
||||
Cl_optiongroup1.Option2.Top = 8
|
||||
Cl_optiongroup1.Option2.Value = 1
|
||||
Cl_optiongroup1.propiedad_de_clase_sin_valor = Valor reescrito en el form!
|
||||
Cl_optiongroup1.Value = 2
|
||||
Cl_optiongroup1.ZOrderSet = 1
|
||||
|
||||
ADD OBJECT 'Cl_olecontrol1' AS cl_olecontrol WITH ;
|
||||
Height = 67, ;
|
||||
Left = 484, ;
|
||||
Name = "Cl_olecontrol1", ;
|
||||
Top = 256, ;
|
||||
Width = 131
|
||||
*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="olecontrol" Nombre="cl_form1.Cl_olecontrol1" Parent="cl_form1" ObjName="Cl_olecontrol1" OLEObject="C:\Windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBdOTWhkM8BAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAOAAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAAIAAAABwAAAP7///8JAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP////8AAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACACwAAAEFwcGVhcmFuY2UACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsZQAJAAAASQoAAAABAAAADQAAAAAAAAUAAIAAAAAAAAABAAAAAAABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dABCdWxsZXRJbmRlbnQAEQAAAE4NAAAABwAAAAAAAAAAAAAAEAAAAERpc2FibGVOb1Njcm9sbAAFAAAATAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABSaWdodE1hcmdpbgARAAAATg0AAAAHAAAAAAAAAAAAAAAFAAAAVGV4dAAUAAAASAAAAAALAAAAT2xlY29udHJvbDENAAAAQXV0b1ZlcmJNZW51AAUAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />
|
||||
|
||||
ADD OBJECT 'Commandgroup1' AS commandgroup WITH ;
|
||||
BackColor = 255,128,255, ;
|
||||
ButtonCount = 2, ;
|
||||
Height = 76, ;
|
||||
Left = 8, ;
|
||||
Name = "Commandgroup1", ;
|
||||
Top = 172, ;
|
||||
Value = 1, ;
|
||||
Width = 244, ;
|
||||
ZOrderSet = 16, ;
|
||||
Command1.Caption = "\<Abrir", ;
|
||||
Command1.Height = 56, ;
|
||||
Command1.Left = 12, ;
|
||||
Command1.Name = "Command1", ;
|
||||
Command1.Picture = bmps\carpetaabierta.bmp, ;
|
||||
Command1.RightToLeft = .F., ;
|
||||
Command1.Top = 8, ;
|
||||
Command1.Width = 100, ;
|
||||
Command2.Caption = "\<Cerrar", ;
|
||||
Command2.Height = 56, ;
|
||||
Command2.Left = 128, ;
|
||||
Command2.Name = "Command2", ;
|
||||
Command2.Picture = bmps\carpetacerrada.bmp, ;
|
||||
Command2.RightToLeft = .F., ;
|
||||
Command2.Top = 8, ;
|
||||
Command2.Width = 96
|
||||
*< END OBJECT: BaseClass="commandgroup" />
|
||||
|
||||
ADD OBJECT 'grdEncuestas' AS grid WITH ;
|
||||
ColumnCount = 5, ;
|
||||
DeleteMark = .F., ;
|
||||
Height = 140, ;
|
||||
Left = 268, ;
|
||||
Name = "grdEncuestas", ;
|
||||
Panel = 1, ;
|
||||
ReadOnly = .T., ;
|
||||
RecordSource = "encuestas", ;
|
||||
RecordSourceType = 1, ;
|
||||
RightToLeft = .F., ;
|
||||
Top = 12, ;
|
||||
Width = 320, ;
|
||||
ZOrderSet = 15, ;
|
||||
Column1.ControlSource = "encuestas.promotor", ;
|
||||
Column1.Name = "Column1", ;
|
||||
Column1.ReadOnly = .T., ;
|
||||
Column1.Width = 58, ;
|
||||
Column2.ControlSource = "encuestas.idenc", ;
|
||||
Column2.Name = "Column2", ;
|
||||
Column2.ReadOnly = .T., ;
|
||||
Column2.Width = 46, ;
|
||||
Column3.ControlSource = "encuestas.calific", ;
|
||||
Column3.Name = "Column3", ;
|
||||
Column3.ReadOnly = .T., ;
|
||||
Column3.Width = 41, ;
|
||||
Column4.ControlSource = "encuestas.fecha", ;
|
||||
Column4.Name = "Column4", ;
|
||||
Column4.ReadOnly = .T., ;
|
||||
Column4.Width = 69, ;
|
||||
Column5.ControlSource = "encuestas.resultado", ;
|
||||
Column5.Name = "Column5", ;
|
||||
Column5.ReadOnly = .T., ;
|
||||
Column5.Width = 58
|
||||
*< END OBJECT: BaseClass="grid" />
|
||||
|
||||
ADD OBJECT 'grdEncuestas.Column1.Header1' AS header WITH ;
|
||||
Caption = "promotor", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grdEncuestas.Column1.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T., ;
|
||||
RightToLeft = .F.
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'grdEncuestas.Column2.Header1' AS header WITH ;
|
||||
Caption = "idenc", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grdEncuestas.Column2.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T., ;
|
||||
RightToLeft = .F.
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'grdEncuestas.Column3.Header1' AS header WITH ;
|
||||
Caption = "calific", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grdEncuestas.Column3.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T., ;
|
||||
RightToLeft = .F.
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'grdEncuestas.Column4.Header1' AS header WITH ;
|
||||
Caption = "fecha", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grdEncuestas.Column4.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T., ;
|
||||
RightToLeft = .F.
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'grdEncuestas.Column5.Header1' AS header WITH ;
|
||||
Caption = "resultado", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grdEncuestas.Column5.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T., ;
|
||||
RightToLeft = .F.
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'lblCalific' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Calific", ;
|
||||
Left = 491, ;
|
||||
Name = "lblCalific", ;
|
||||
RightToLeft = .F., ;
|
||||
TabIndex = 7, ;
|
||||
Top = 164, ;
|
||||
Width = 34, ;
|
||||
WordWrap = .T., ;
|
||||
ZOrderSet = 10
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'lblFecha' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Fecha", ;
|
||||
Left = 491, ;
|
||||
Name = "lblFecha", ;
|
||||
RightToLeft = .F., ;
|
||||
TabIndex = 9, ;
|
||||
Top = 192, ;
|
||||
Width = 34, ;
|
||||
WordWrap = .T., ;
|
||||
ZOrderSet = 12
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'lblIdenc' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Idenc", ;
|
||||
Left = 292, ;
|
||||
Name = "lblIdenc", ;
|
||||
RightToLeft = .F., ;
|
||||
TabIndex = 5, ;
|
||||
Top = 192, ;
|
||||
Width = 30, ;
|
||||
WordWrap = .T., ;
|
||||
ZOrderSet = 8
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'lblPromotor' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Promotor", ;
|
||||
Left = 271, ;
|
||||
Name = "lblPromotor", ;
|
||||
RightToLeft = .F., ;
|
||||
TabIndex = 3, ;
|
||||
Top = 164, ;
|
||||
Width = 51, ;
|
||||
WordWrap = .T., ;
|
||||
ZOrderSet = 6
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'lblResultado' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Resultado", ;
|
||||
Left = 472, ;
|
||||
Name = "lblResultado", ;
|
||||
RightToLeft = .F., ;
|
||||
TabIndex = 11, ;
|
||||
Top = 220, ;
|
||||
Width = 57, ;
|
||||
WordWrap = .T., ;
|
||||
ZOrderSet = 14
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
|
||||
BackColor = 0,128,255, ;
|
||||
ButtonCount = 2, ;
|
||||
Height = 72, ;
|
||||
Left = 8, ;
|
||||
Name = "Optiongroup1", ;
|
||||
Top = 256, ;
|
||||
Value = 2, ;
|
||||
Width = 244, ;
|
||||
ZOrderSet = 17, ;
|
||||
Option1.Caption = "Option1", ;
|
||||
Option1.Height = 48, ;
|
||||
Option1.Left = 16, ;
|
||||
Option1.Name = "Option1", ;
|
||||
Option1.Picture = bmps\scccheckout.bmp, ;
|
||||
Option1.RightToLeft = .F., ;
|
||||
Option1.Style = 1, ;
|
||||
Option1.Top = 12, ;
|
||||
Option1.Value = 0, ;
|
||||
Option1.Width = 92, ;
|
||||
Option2.Caption = "Option2", ;
|
||||
Option2.Height = 48, ;
|
||||
Option2.Left = 132, ;
|
||||
Option2.Name = "Option2", ;
|
||||
Option2.Picture = bmps\scccheckout.bmp, ;
|
||||
Option2.RightToLeft = .F., ;
|
||||
Option2.Style = 1, ;
|
||||
Option2.Top = 12, ;
|
||||
Option2.Value = 1, ;
|
||||
Option2.Width = 88
|
||||
*< END OBJECT: BaseClass="optiongroup" />
|
||||
|
||||
ADD OBJECT 'Shape1' AS shape WITH ;
|
||||
BorderStyle = 2, ;
|
||||
BorderWidth = 1, ;
|
||||
Curvature = 16, ;
|
||||
Height = 49, ;
|
||||
Left = 264, ;
|
||||
Name = "Shape1", ;
|
||||
SpecialEffect = 0, ;
|
||||
Top = 284, ;
|
||||
Width = 101, ;
|
||||
ZOrderSet = 0
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'txtCalific' AS textbox WITH ;
|
||||
Comment = "", ;
|
||||
ControlSource = "encuestas.calific", ;
|
||||
DisabledForeColor = 0,0,160, ;
|
||||
ForeColor = 0,0,255, ;
|
||||
Height = 23, ;
|
||||
Left = 532, ;
|
||||
MaxLength = 2, ;
|
||||
Name = "txtCalific", ;
|
||||
ReadOnly = .T., ;
|
||||
RightToLeft = .F., ;
|
||||
TabIndex = 8, ;
|
||||
Top = 164, ;
|
||||
Width = 38, ;
|
||||
ZOrderSet = 9
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'txtFecha' AS textbox WITH ;
|
||||
Comment = "", ;
|
||||
ControlSource = "encuestas.fecha", ;
|
||||
DisabledForeColor = 0,0,160, ;
|
||||
ForeColor = 0,0,255, ;
|
||||
Height = 23, ;
|
||||
Left = 532, ;
|
||||
Name = "txtFecha", ;
|
||||
ReadOnly = .T., ;
|
||||
RightToLeft = .F., ;
|
||||
TabIndex = 10, ;
|
||||
Top = 192, ;
|
||||
Width = 73, ;
|
||||
ZOrderSet = 11
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'txtIdenc' AS textbox WITH ;
|
||||
Comment = "", ;
|
||||
ControlSource = "encuestas.idenc", ;
|
||||
DisabledForeColor = 0,0,160, ;
|
||||
ForeColor = 0,0,255, ;
|
||||
Height = 23, ;
|
||||
Left = 328, ;
|
||||
MaxLength = 20, ;
|
||||
Name = "txtIdenc", ;
|
||||
ReadOnly = .T., ;
|
||||
RightToLeft = .F., ;
|
||||
TabIndex = 6, ;
|
||||
Top = 192, ;
|
||||
Width = 149, ;
|
||||
ZOrderSet = 7
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'txtPromotor' AS textbox WITH ;
|
||||
Comment = "", ;
|
||||
ControlSource = "encuestas.promotor", ;
|
||||
DisabledForeColor = 0,0,160, ;
|
||||
ForeColor = 0,0,255, ;
|
||||
Height = 23, ;
|
||||
Left = 328, ;
|
||||
MaxLength = 20, ;
|
||||
Name = "txtPromotor", ;
|
||||
ReadOnly = .T., ;
|
||||
RightToLeft = .F., ;
|
||||
TabIndex = 4, ;
|
||||
Top = 164, ;
|
||||
Width = 149, ;
|
||||
ZOrderSet = 5
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'txtResultado' AS textbox WITH ;
|
||||
Comment = "", ;
|
||||
ControlSource = "encuestas.resultado", ;
|
||||
DisabledForeColor = 0,0,160, ;
|
||||
ForeColor = 0,0,255, ;
|
||||
Height = 23, ;
|
||||
Left = 532, ;
|
||||
MaxLength = 10, ;
|
||||
Name = "txtResultado", ;
|
||||
ReadOnly = .T., ;
|
||||
RightToLeft = .F., ;
|
||||
TabIndex = 12, ;
|
||||
Top = 220, ;
|
||||
Width = 81, ;
|
||||
ZOrderSet = 13
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE grdEncuestas.AfterRowColChange
|
||||
LPARAMETERS nColIndex
|
||||
|
||||
thisform.Refresh()
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
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="" />
|
||||
|
||||
AutoCloseTables = .T.
|
||||
AutoOpenTables = .T.
|
||||
Comment = ""
|
||||
DataSource = .NULL.
|
||||
DataSourceType = ""
|
||||
Height = 200
|
||||
InitialSelectedAlias = ""
|
||||
Left = 11
|
||||
Name = "Dataenvironment"
|
||||
OpenViews = 0
|
||||
Tag = ""
|
||||
Top = 404
|
||||
Width = 520
|
||||
|
||||
ADD OBJECT 'Cursor1' AS cursor WITH ;
|
||||
Alias = "encuestas", ;
|
||||
BufferModeOverride = 1, ;
|
||||
Comment = "", ;
|
||||
CursorSource = encuestas.dbf, ;
|
||||
Exclusive = .F., ;
|
||||
Filter = "", ;
|
||||
Height = 98, ;
|
||||
Left = 10, ;
|
||||
Name = "Cursor1", ;
|
||||
NoDataOnLoad = .F., ;
|
||||
Order = "", ;
|
||||
OrderDirection = 0, ;
|
||||
ReadOnly = .F., ;
|
||||
Tag = "", ;
|
||||
Top = 20, ;
|
||||
Width = 102
|
||||
*< END OBJECT: BaseClass="cursor" />
|
||||
|
||||
PROCEDURE BeforeOpenTables
|
||||
*-- Comentario en m<>todo [Dataenvironment.BeforeOpenTables]
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cursor1.Init
|
||||
*-- Comentario en m<>todo [Dataenvironment.Cursor1.Init]
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
Reference in New Issue
Block a user