2667 lines
66 KiB
Plaintext
2667 lines
66 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="lib_controles.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
DEFINE CLASS f_form_aa_ AS f_base OF "lib_controles.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Cl_grid1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cl_grid1.Column6.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cl_grid1.Column6.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.checkbox" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.collection" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.combobox" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.commandgroup" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.commandbutton" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.container" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.control" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.editbox" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.hyperlink" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.image" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.label" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.line" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.listbox" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.optiongroup" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.option" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.spinner" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.textbox" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.timer" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.Pageframe1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pgf.Page1.Shape1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: add_control
|
|
*m: run_tests
|
|
*p: l_activated
|
|
*p: n_controles_count
|
|
*p: valor
|
|
*a: a_controles[1,0]
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
AllowOutput = .T.
|
|
AlwaysOnBottom = .F.
|
|
AlwaysOnTop = .F.
|
|
AutoCenter = .F.
|
|
BackColor = 192,192,192
|
|
BindControls = .T.
|
|
BorderStyle = 3
|
|
BufferMode = 0
|
|
Caption = "AllControls_Test"
|
|
ClipControls = .T.
|
|
Closable = .T.
|
|
ColorSource = 4
|
|
Comment = ""
|
|
ContinuousScroll = .T.
|
|
ControlBox = .T.
|
|
c_testname = AllControls_Test
|
|
DataSession = 2
|
|
DEClass = "cl_dataenvironment"
|
|
DEClassLibrary = lib_controles.vcx
|
|
DefHeight =
|
|
DefLeft =
|
|
DefOleLCID = 0
|
|
DefTop =
|
|
DefWidth =
|
|
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 = (424)
|
|
HelpContextID = 0
|
|
HScrollSmallChange = 10
|
|
Icon = bmps\container.ico
|
|
KeyPreview = .F.
|
|
Left = (2)
|
|
LockScreen = .F.
|
|
l_activated = .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 = "f_form_aa"
|
|
n_controles_count = 0
|
|
OLEDragMode = 0
|
|
OLEDragPicture = ..\..\
|
|
OLEDropEffects = 3
|
|
OLEDropMode = 0
|
|
Picture = bmps\fondogris.bmp
|
|
RightToLeft = .F.
|
|
ScaleMode = 3
|
|
ScrollBars = 3
|
|
ShowInTaskBar = .T.
|
|
ShowTips = .F.
|
|
ShowWindow = 0
|
|
SizeBox = .F.
|
|
TabIndex = 1
|
|
TabStop = .T.
|
|
Tag = ""
|
|
Themes = .T.
|
|
TitleBar = 1
|
|
Top = (4)
|
|
valor = .F.
|
|
Visible = .T.
|
|
VScrollSmallChange = 10
|
|
WhatsThisButton = .F.
|
|
WhatsThisHelp = .F.
|
|
WhatsThisHelpID = -1
|
|
Width = (980)
|
|
WindowState = 0
|
|
WindowType = 0
|
|
ZoomBox = .F.
|
|
Edit1.Height = 356
|
|
Edit1.Left = 764
|
|
Edit1.Name = "Edit1"
|
|
Edit1.RightToLeft = .F.
|
|
Edit1.Top = 32
|
|
Edit1.Width = 212
|
|
Label3.BackColor = 128,255,128
|
|
Label3.Height = 17
|
|
Label3.Left = 764
|
|
Label3.Name = "Label3"
|
|
Label3.RightToLeft = .F.
|
|
Label3.Top = 8
|
|
Label3.Width = 212
|
|
cmdCapturar.Height = 27
|
|
cmdCapturar.Left = 764
|
|
cmdCapturar.Name = "cmdCapturar"
|
|
cmdCapturar.RightToLeft = .F.
|
|
cmdCapturar.Top = 392
|
|
cmdCapturar.Width = 212
|
|
Label1.BackColor = 128,255,128
|
|
Label1.Caption = "CONTROLES"
|
|
Label1.Height = 17
|
|
Label1.Left = 12
|
|
Label1.Name = "Label1"
|
|
Label1.RightToLeft = .F.
|
|
Label1.Top = 8
|
|
Label1.Width = 268
|
|
Label2.BackColor = 128,255,128
|
|
Label2.Caption = "TESTS"
|
|
Label2.Height = 17
|
|
Label2.Left = 296
|
|
Label2.Name = "Label2"
|
|
Label2.RightToLeft = .F.
|
|
Label2.Top = 8
|
|
Label2.Width = 460
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Cl_grid1' AS cl_grid WITH ;
|
|
AllowAddNew = .F., ;
|
|
AllowAutoColumnFit = 0, ;
|
|
AllowCellSelection = .T., ;
|
|
AllowHeaderSizing = .F., ;
|
|
AllowRowSizing = .F., ;
|
|
Anchor = 0, ;
|
|
BackColor = 255,255,217, ;
|
|
ChildOrder = "", ;
|
|
ColumnCount = 6, ;
|
|
Comment = "", ;
|
|
DeleteMark = .F., ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
Enabled = .T., ;
|
|
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, ;
|
|
GridLineColor = 0,0,0, ;
|
|
GridLines = 3, ;
|
|
GridLineWidth = 1, ;
|
|
HeaderHeight = 18, ;
|
|
Height = 384, ;
|
|
HelpContextID = 0, ;
|
|
Highlight = .T., ;
|
|
HighlightBackColor = 51,153,255, ;
|
|
HighlightForeColor = 255,255,255, ;
|
|
HighlightRow = .T., ;
|
|
HighlightRowLineWidth = 1, ;
|
|
HighlightStyle = 0, ;
|
|
Left = 296, ;
|
|
LinkMaster = "", ;
|
|
LockColumns = 0, ;
|
|
LockColumnsLeft = 0, ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
Name = "Cl_grid1", ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
Optimize = .F., ;
|
|
Panel = 1, ;
|
|
PanelLink = .T., ;
|
|
Partition = 0, ;
|
|
ReadOnly = .F., ;
|
|
RecordMark = .T., ;
|
|
RecordSource = "C_TESTS", ;
|
|
RecordSourceType = 1, ;
|
|
RelationalExpr = "", ;
|
|
RightToLeft = .F., ;
|
|
RowHeight = 18, ;
|
|
ScrollBars = 2, ;
|
|
SelectedItemBackColor = 51,153,255, ;
|
|
SelectedItemForeColor = 255,255,255, ;
|
|
SplitBar = .F., ;
|
|
StatusBarText = "", ;
|
|
TabIndex = 6, ;
|
|
TabStop = .T., ;
|
|
Tag = "", ;
|
|
Themes = .T., ;
|
|
ToolTipText = "", ;
|
|
Top = 32, ;
|
|
Value = 0, ;
|
|
View = 0, ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = 460, ;
|
|
COLUMN1.Alignment = 3, ;
|
|
COLUMN1.BackColor = 255,255,217, ;
|
|
COLUMN1.Bound = .T., ;
|
|
COLUMN1.ColumnOrder = 1, ;
|
|
COLUMN1.Comment = "", ;
|
|
COLUMN1.ControlSource = "c_ctlname", ;
|
|
COLUMN1.CurrentControl = "Text1", ;
|
|
COLUMN1.DynamicAlignment = "", ;
|
|
COLUMN1.DynamicBackColor = "", ;
|
|
COLUMN1.DynamicCurrentControl = "", ;
|
|
COLUMN1.DynamicFontBold = "", ;
|
|
COLUMN1.DynamicFontItalic = "", ;
|
|
COLUMN1.DynamicFontName = "", ;
|
|
COLUMN1.DynamicFontOutline = "", ;
|
|
COLUMN1.DynamicFontShadow = "", ;
|
|
COLUMN1.DynamicFontSize = "", ;
|
|
COLUMN1.DynamicFontStrikethru = "", ;
|
|
COLUMN1.DynamicFontUnderline = "", ;
|
|
COLUMN1.DynamicForeColor = "", ;
|
|
COLUMN1.DynamicInputMask = "", ;
|
|
COLUMN1.Enabled = .T., ;
|
|
COLUMN1.FontBold = .F., ;
|
|
COLUMN1.FontCharSet = 0, ;
|
|
COLUMN1.FontCondense = .F., ;
|
|
COLUMN1.FontExtend = .F., ;
|
|
COLUMN1.FontItalic = .F., ;
|
|
COLUMN1.FontName = "Arial", ;
|
|
COLUMN1.FontOutline = .F., ;
|
|
COLUMN1.FontShadow = .F., ;
|
|
COLUMN1.FontSize = 9, ;
|
|
COLUMN1.FontStrikethru = .F., ;
|
|
COLUMN1.FontUnderline = .F., ;
|
|
COLUMN1.ForeColor = 0,0,0, ;
|
|
COLUMN1.Format = "", ;
|
|
COLUMN1.Header1.Alignment = 0, ;
|
|
COLUMN1.Header1.BackColor = 240,240,240, ;
|
|
COLUMN1.Header1.Caption = "Control", ;
|
|
COLUMN1.Header1.Comment = "", ;
|
|
COLUMN1.Header1.FontBold = .F., ;
|
|
COLUMN1.Header1.FontCharSet = 0, ;
|
|
COLUMN1.Header1.FontCondense = .F., ;
|
|
COLUMN1.Header1.FontExtend = .F., ;
|
|
COLUMN1.Header1.FontItalic = .F., ;
|
|
COLUMN1.Header1.FontName = "Arial", ;
|
|
COLUMN1.Header1.FontOutline = .F., ;
|
|
COLUMN1.Header1.FontShadow = .F., ;
|
|
COLUMN1.Header1.FontSize = 9, ;
|
|
COLUMN1.Header1.FontStrikethru = .F., ;
|
|
COLUMN1.Header1.FontUnderline = .F., ;
|
|
COLUMN1.Header1.ForeColor = 0,0,0, ;
|
|
COLUMN1.Header1.MouseIcon = ..\..\, ;
|
|
COLUMN1.Header1.MousePointer = 0, ;
|
|
COLUMN1.Header1.Name = "Header1", ;
|
|
COLUMN1.Header1.Picture = ..\..\, ;
|
|
COLUMN1.Header1.StatusBarText = "", ;
|
|
COLUMN1.Header1.Tag = "", ;
|
|
COLUMN1.Header1.ToolTipText = "", ;
|
|
COLUMN1.Header1.WordWrap = .F., ;
|
|
COLUMN1.InputMask = "", ;
|
|
COLUMN1.MouseIcon = ..\..\, ;
|
|
COLUMN1.MousePointer = 0, ;
|
|
COLUMN1.Movable = .T., ;
|
|
COLUMN1.Name = "COLUMN1", ;
|
|
COLUMN1.ReadOnly = .F., ;
|
|
COLUMN1.Resizable = .T., ;
|
|
COLUMN1.SelectOnEntry = .T., ;
|
|
COLUMN1.Sparse = .T., ;
|
|
COLUMN1.StatusBarText = "", ;
|
|
COLUMN1.Tag = "", ;
|
|
COLUMN1.Text1.Alignment = 3, ;
|
|
COLUMN1.Text1.Anchor = 0, ;
|
|
COLUMN1.Text1.AutoComplete = 0, ;
|
|
COLUMN1.Text1.AutoCompSource = "", ;
|
|
COLUMN1.Text1.AutoCompTable = "", ;
|
|
COLUMN1.Text1.BackColor = 255,255,217, ;
|
|
COLUMN1.Text1.BackStyle = 1, ;
|
|
COLUMN1.Text1.BorderColor = 100,100,100, ;
|
|
COLUMN1.Text1.BorderStyle = 0, ;
|
|
COLUMN1.Text1.Century = 1, ;
|
|
COLUMN1.Text1.ColorScheme = 1, ;
|
|
COLUMN1.Text1.ColorSource = 4, ;
|
|
COLUMN1.Text1.Comment = "", ;
|
|
COLUMN1.Text1.DateFormat = 0, ;
|
|
COLUMN1.Text1.DateMark = "", ;
|
|
COLUMN1.Text1.DisabledBackColor = 255,255,255, ;
|
|
COLUMN1.Text1.DisabledForeColor = 109,109,109, ;
|
|
COLUMN1.Text1.DragIcon = ..\..\, ;
|
|
COLUMN1.Text1.DragMode = 0, ;
|
|
COLUMN1.Text1.Enabled = .T., ;
|
|
COLUMN1.Text1.EnableHyperlinks = .F., ;
|
|
COLUMN1.Text1.FontBold = .F., ;
|
|
COLUMN1.Text1.FontCharSet = 0, ;
|
|
COLUMN1.Text1.FontCondense = .F., ;
|
|
COLUMN1.Text1.FontExtend = .F., ;
|
|
COLUMN1.Text1.FontItalic = .F., ;
|
|
COLUMN1.Text1.FontName = "Arial", ;
|
|
COLUMN1.Text1.FontOutline = .F., ;
|
|
COLUMN1.Text1.FontShadow = .F., ;
|
|
COLUMN1.Text1.FontSize = 9, ;
|
|
COLUMN1.Text1.FontStrikethru = .F., ;
|
|
COLUMN1.Text1.FontUnderline = .F., ;
|
|
COLUMN1.Text1.ForeColor = 0,0,0, ;
|
|
COLUMN1.Text1.Format = "", ;
|
|
COLUMN1.Text1.HelpContextID = 0, ;
|
|
COLUMN1.Text1.HideSelection = .T., ;
|
|
COLUMN1.Text1.Hours = 0, ;
|
|
COLUMN1.Text1.IMEMode = 0, ;
|
|
COLUMN1.Text1.InputMask = "", ;
|
|
COLUMN1.Text1.IntegralHeight = .F., ;
|
|
COLUMN1.Text1.MemoWindow = "", ;
|
|
COLUMN1.Text1.MouseIcon = ..\..\, ;
|
|
COLUMN1.Text1.MousePointer = 0, ;
|
|
COLUMN1.Text1.Name = "Text1", ;
|
|
COLUMN1.Text1.NullDisplay = "", ;
|
|
COLUMN1.Text1.OLEDragMode = 0, ;
|
|
COLUMN1.Text1.OLEDragPicture = ..\..\, ;
|
|
COLUMN1.Text1.OLEDropEffects = 3, ;
|
|
COLUMN1.Text1.OLEDropMode = 0, ;
|
|
COLUMN1.Text1.OLEDropTextInsertion = 0, ;
|
|
COLUMN1.Text1.OpenWindow = .F., ;
|
|
COLUMN1.Text1.PasswordChar = "", ;
|
|
COLUMN1.Text1.ReadOnly = .F., ;
|
|
COLUMN1.Text1.RightToLeft = .F., ;
|
|
COLUMN1.Text1.Seconds = 2, ;
|
|
COLUMN1.Text1.SelectedBackColor = 51,153,255, ;
|
|
COLUMN1.Text1.SelectedForeColor = 255,255,255, ;
|
|
COLUMN1.Text1.SelectOnEntry = .F., ;
|
|
COLUMN1.Text1.SpecialEffect = 0, ;
|
|
COLUMN1.Text1.StatusBarText = "", ;
|
|
COLUMN1.Text1.StrictDateEntry = 1, ;
|
|
COLUMN1.Text1.Style = 0, ;
|
|
COLUMN1.Text1.TabIndex = 1, ;
|
|
COLUMN1.Text1.TabStop = .T., ;
|
|
COLUMN1.Text1.Tag = "", ;
|
|
COLUMN1.Text1.TerminateRead = .F., ;
|
|
COLUMN1.Text1.Themes = .T., ;
|
|
COLUMN1.Text1.ToolTipText = "", ;
|
|
COLUMN1.Text1.Value = , ;
|
|
COLUMN1.Text1.Visible = .T., ;
|
|
COLUMN1.ToolTipText = "", ;
|
|
COLUMN1.Visible = .T., ;
|
|
COLUMN1.Width = 170, ;
|
|
COLUMN2.Alignment = 2, ;
|
|
COLUMN2.BackColor = 255,255,217, ;
|
|
COLUMN2.ControlSource = "c_Access", ;
|
|
COLUMN2.DynamicBackColor = 'ICASE( c_access="S", RGB(0,255,0), c_access="N", RGB(255,0,0), RGB(255,255,255) )', ;
|
|
COLUMN2.DynamicForeColor = 'ICASE( c_access="N", RGB(255,255,255), RGB(0,0,0) )', ;
|
|
COLUMN2.Enabled = .T., ;
|
|
COLUMN2.FontBold = .F., ;
|
|
COLUMN2.FontCharSet = 0, ;
|
|
COLUMN2.FontCondense = .F., ;
|
|
COLUMN2.FontExtend = .F., ;
|
|
COLUMN2.FontItalic = .F., ;
|
|
COLUMN2.FontName = "Arial", ;
|
|
COLUMN2.FontOutline = .F., ;
|
|
COLUMN2.FontShadow = .F., ;
|
|
COLUMN2.FontSize = 9, ;
|
|
COLUMN2.FontStrikethru = .F., ;
|
|
COLUMN2.FontUnderline = .F., ;
|
|
COLUMN2.ForeColor = 0,0,0, ;
|
|
COLUMN2.Header1.Alignment = 2, ;
|
|
COLUMN2.Header1.BackColor = 240,240,240, ;
|
|
COLUMN2.Header1.Caption = "Access", ;
|
|
COLUMN2.Header1.FontBold = .F., ;
|
|
COLUMN2.Header1.FontCharSet = 0, ;
|
|
COLUMN2.Header1.FontCondense = .F., ;
|
|
COLUMN2.Header1.FontExtend = .F., ;
|
|
COLUMN2.Header1.FontItalic = .F., ;
|
|
COLUMN2.Header1.FontName = "Arial", ;
|
|
COLUMN2.Header1.FontOutline = .F., ;
|
|
COLUMN2.Header1.FontShadow = .F., ;
|
|
COLUMN2.Header1.FontSize = 9, ;
|
|
COLUMN2.Header1.FontStrikethru = .F., ;
|
|
COLUMN2.Header1.FontUnderline = .F., ;
|
|
COLUMN2.Header1.Name = "Header1", ;
|
|
COLUMN2.Name = "COLUMN2", ;
|
|
COLUMN2.ReadOnly = .F., ;
|
|
COLUMN2.Text1.Alignment = 2, ;
|
|
COLUMN2.Text1.BackColor = 255,255,217, ;
|
|
COLUMN2.Text1.Enabled = .T., ;
|
|
COLUMN2.Text1.FontBold = .F., ;
|
|
COLUMN2.Text1.FontCharSet = 0, ;
|
|
COLUMN2.Text1.FontCondense = .F., ;
|
|
COLUMN2.Text1.FontExtend = .F., ;
|
|
COLUMN2.Text1.FontItalic = .F., ;
|
|
COLUMN2.Text1.FontName = "Arial", ;
|
|
COLUMN2.Text1.FontOutline = .F., ;
|
|
COLUMN2.Text1.FontShadow = .F., ;
|
|
COLUMN2.Text1.FontSize = 9, ;
|
|
COLUMN2.Text1.FontStrikethru = .F., ;
|
|
COLUMN2.Text1.FontUnderline = .F., ;
|
|
COLUMN2.Text1.ForeColor = 0,0,0, ;
|
|
COLUMN2.Text1.Name = "Text1", ;
|
|
COLUMN2.Text1.ReadOnly = .F., ;
|
|
COLUMN2.Text1.RightToLeft = .F., ;
|
|
COLUMN2.Text1.Visible = .T., ;
|
|
COLUMN2.Visible = .T., ;
|
|
COLUMN2.Width = 50, ;
|
|
COLUMN3.Alignment = 2, ;
|
|
COLUMN3.BackColor = 255,255,217, ;
|
|
COLUMN3.ControlSource = "c_Assign", ;
|
|
COLUMN3.DynamicBackColor = 'ICASE( c_assign="S", RGB(0,255,0), c_assign="N", RGB(255,0,0), RGB(255,255,255) )', ;
|
|
COLUMN3.DynamicForeColor = 'ICASE( c_assign="N", RGB(255,255,255), RGB(0,0,0) )', ;
|
|
COLUMN3.Enabled = .T., ;
|
|
COLUMN3.FontBold = .F., ;
|
|
COLUMN3.FontCharSet = 0, ;
|
|
COLUMN3.FontCondense = .F., ;
|
|
COLUMN3.FontExtend = .F., ;
|
|
COLUMN3.FontItalic = .F., ;
|
|
COLUMN3.FontName = "Arial", ;
|
|
COLUMN3.FontOutline = .F., ;
|
|
COLUMN3.FontShadow = .F., ;
|
|
COLUMN3.FontSize = 9, ;
|
|
COLUMN3.FontStrikethru = .F., ;
|
|
COLUMN3.FontUnderline = .F., ;
|
|
COLUMN3.ForeColor = 0,0,0, ;
|
|
COLUMN3.Header1.Alignment = 2, ;
|
|
COLUMN3.Header1.Caption = "Assign", ;
|
|
COLUMN3.Header1.FontBold = .F., ;
|
|
COLUMN3.Header1.FontCharSet = 0, ;
|
|
COLUMN3.Header1.FontCondense = .F., ;
|
|
COLUMN3.Header1.FontExtend = .F., ;
|
|
COLUMN3.Header1.FontItalic = .F., ;
|
|
COLUMN3.Header1.FontName = "Arial", ;
|
|
COLUMN3.Header1.FontOutline = .F., ;
|
|
COLUMN3.Header1.FontShadow = .F., ;
|
|
COLUMN3.Header1.FontSize = 9, ;
|
|
COLUMN3.Header1.FontStrikethru = .F., ;
|
|
COLUMN3.Header1.FontUnderline = .F., ;
|
|
COLUMN3.Header1.Name = "Header1", ;
|
|
COLUMN3.Name = "COLUMN3", ;
|
|
COLUMN3.ReadOnly = .F., ;
|
|
COLUMN3.Text1.Alignment = 2, ;
|
|
COLUMN3.Text1.BackColor = 255,255,217, ;
|
|
COLUMN3.Text1.Enabled = .T., ;
|
|
COLUMN3.Text1.FontBold = .F., ;
|
|
COLUMN3.Text1.FontCharSet = 0, ;
|
|
COLUMN3.Text1.FontCondense = .F., ;
|
|
COLUMN3.Text1.FontExtend = .F., ;
|
|
COLUMN3.Text1.FontItalic = .F., ;
|
|
COLUMN3.Text1.FontName = "Arial", ;
|
|
COLUMN3.Text1.FontOutline = .F., ;
|
|
COLUMN3.Text1.FontShadow = .F., ;
|
|
COLUMN3.Text1.FontSize = 9, ;
|
|
COLUMN3.Text1.FontStrikethru = .F., ;
|
|
COLUMN3.Text1.FontUnderline = .F., ;
|
|
COLUMN3.Text1.ForeColor = 0,0,0, ;
|
|
COLUMN3.Text1.Name = "Text1", ;
|
|
COLUMN3.Text1.ReadOnly = .F., ;
|
|
COLUMN3.Text1.RightToLeft = .F., ;
|
|
COLUMN3.Text1.Visible = .T., ;
|
|
COLUMN3.Visible = .T., ;
|
|
COLUMN3.Width = 50, ;
|
|
COLUMN4.Alignment = 2, ;
|
|
COLUMN4.BackColor = 255,255,217, ;
|
|
COLUMN4.ControlSource = "c_Value", ;
|
|
COLUMN4.DynamicBackColor = 'ICASE( c_value="S", RGB(0,255,0), c_value="N", RGB(255,0,0), RGB(255,255,255) )', ;
|
|
COLUMN4.DynamicForeColor = 'ICASE( c_value="N", RGB(255,255,255), RGB(0,0,0) )', ;
|
|
COLUMN4.Enabled = .T., ;
|
|
COLUMN4.FontBold = .F., ;
|
|
COLUMN4.FontCharSet = 0, ;
|
|
COLUMN4.FontCondense = .F., ;
|
|
COLUMN4.FontExtend = .F., ;
|
|
COLUMN4.FontItalic = .F., ;
|
|
COLUMN4.FontName = "Arial", ;
|
|
COLUMN4.FontOutline = .F., ;
|
|
COLUMN4.FontShadow = .F., ;
|
|
COLUMN4.FontSize = 9, ;
|
|
COLUMN4.FontStrikethru = .F., ;
|
|
COLUMN4.FontUnderline = .F., ;
|
|
COLUMN4.ForeColor = 0,0,0, ;
|
|
COLUMN4.Header1.Alignment = 2, ;
|
|
COLUMN4.Header1.Caption = "Value/Act", ;
|
|
COLUMN4.Header1.FontBold = .F., ;
|
|
COLUMN4.Header1.FontCharSet = 0, ;
|
|
COLUMN4.Header1.FontCondense = .F., ;
|
|
COLUMN4.Header1.FontExtend = .F., ;
|
|
COLUMN4.Header1.FontItalic = .F., ;
|
|
COLUMN4.Header1.FontName = "Arial", ;
|
|
COLUMN4.Header1.FontOutline = .F., ;
|
|
COLUMN4.Header1.FontShadow = .F., ;
|
|
COLUMN4.Header1.FontSize = 9, ;
|
|
COLUMN4.Header1.FontStrikethru = .F., ;
|
|
COLUMN4.Header1.FontUnderline = .F., ;
|
|
COLUMN4.Header1.Name = "Header1", ;
|
|
COLUMN4.Name = "COLUMN4", ;
|
|
COLUMN4.ReadOnly = .F., ;
|
|
COLUMN4.Text1.Alignment = 2, ;
|
|
COLUMN4.Text1.BackColor = 255,255,217, ;
|
|
COLUMN4.Text1.Enabled = .T., ;
|
|
COLUMN4.Text1.FontBold = .F., ;
|
|
COLUMN4.Text1.FontCharSet = 0, ;
|
|
COLUMN4.Text1.FontCondense = .F., ;
|
|
COLUMN4.Text1.FontExtend = .F., ;
|
|
COLUMN4.Text1.FontItalic = .F., ;
|
|
COLUMN4.Text1.FontName = "Arial", ;
|
|
COLUMN4.Text1.FontOutline = .F., ;
|
|
COLUMN4.Text1.FontShadow = .F., ;
|
|
COLUMN4.Text1.FontSize = 9, ;
|
|
COLUMN4.Text1.FontStrikethru = .F., ;
|
|
COLUMN4.Text1.FontUnderline = .F., ;
|
|
COLUMN4.Text1.ForeColor = 0,0,0, ;
|
|
COLUMN4.Text1.Name = "Text1", ;
|
|
COLUMN4.Text1.ReadOnly = .F., ;
|
|
COLUMN4.Text1.RightToLeft = .F., ;
|
|
COLUMN4.Text1.Visible = .T., ;
|
|
COLUMN4.Visible = .T., ;
|
|
COLUMN4.Width = 50, ;
|
|
COLUMN5.Alignment = 2, ;
|
|
COLUMN5.BackColor = 255,255,217, ;
|
|
COLUMN5.ControlSource = "c_ProgrChg", ;
|
|
COLUMN5.DynamicBackColor = 'ICASE( c_ProgrChg="S", RGB(0,255,0), c_ProgrChg="N", RGB(255,0,0), RGB(255,255,255) )', ;
|
|
COLUMN5.DynamicForeColor = 'ICASE( c_ProgrChg="N", RGB(255,255,255), RGB(0,0,0) )', ;
|
|
COLUMN5.Enabled = .T., ;
|
|
COLUMN5.FontBold = .F., ;
|
|
COLUMN5.FontCharSet = 0, ;
|
|
COLUMN5.FontCondense = .F., ;
|
|
COLUMN5.FontExtend = .F., ;
|
|
COLUMN5.FontItalic = .F., ;
|
|
COLUMN5.FontName = "Arial", ;
|
|
COLUMN5.FontOutline = .F., ;
|
|
COLUMN5.FontShadow = .F., ;
|
|
COLUMN5.FontSize = 9, ;
|
|
COLUMN5.FontStrikethru = .F., ;
|
|
COLUMN5.FontUnderline = .F., ;
|
|
COLUMN5.ForeColor = 0,0,0, ;
|
|
COLUMN5.Header1.Alignment = 2, ;
|
|
COLUMN5.Header1.Caption = "Prg.Chg", ;
|
|
COLUMN5.Header1.FontBold = .F., ;
|
|
COLUMN5.Header1.FontCharSet = 0, ;
|
|
COLUMN5.Header1.FontCondense = .F., ;
|
|
COLUMN5.Header1.FontExtend = .F., ;
|
|
COLUMN5.Header1.FontItalic = .F., ;
|
|
COLUMN5.Header1.FontName = "Arial", ;
|
|
COLUMN5.Header1.FontOutline = .F., ;
|
|
COLUMN5.Header1.FontShadow = .F., ;
|
|
COLUMN5.Header1.FontSize = 9, ;
|
|
COLUMN5.Header1.FontStrikethru = .F., ;
|
|
COLUMN5.Header1.FontUnderline = .F., ;
|
|
COLUMN5.Header1.Name = "Header1", ;
|
|
COLUMN5.Name = "COLUMN5", ;
|
|
COLUMN5.ReadOnly = .F., ;
|
|
COLUMN5.Text1.Alignment = 2, ;
|
|
COLUMN5.Text1.BackColor = 255,255,217, ;
|
|
COLUMN5.Text1.Enabled = .T., ;
|
|
COLUMN5.Text1.FontBold = .F., ;
|
|
COLUMN5.Text1.FontCharSet = 0, ;
|
|
COLUMN5.Text1.FontCondense = .F., ;
|
|
COLUMN5.Text1.FontExtend = .F., ;
|
|
COLUMN5.Text1.FontItalic = .F., ;
|
|
COLUMN5.Text1.FontName = "Arial", ;
|
|
COLUMN5.Text1.FontOutline = .F., ;
|
|
COLUMN5.Text1.FontShadow = .F., ;
|
|
COLUMN5.Text1.FontSize = 9, ;
|
|
COLUMN5.Text1.FontStrikethru = .F., ;
|
|
COLUMN5.Text1.FontUnderline = .F., ;
|
|
COLUMN5.Text1.ForeColor = 0,0,0, ;
|
|
COLUMN5.Text1.Name = "Text1", ;
|
|
COLUMN5.Text1.ReadOnly = .F., ;
|
|
COLUMN5.Text1.RightToLeft = .F., ;
|
|
COLUMN5.Text1.Visible = .T., ;
|
|
COLUMN5.Visible = .T., ;
|
|
COLUMN5.Width = 50, ;
|
|
Column6.Alignment = 2, ;
|
|
Column6.BackColor = 255,255,217, ;
|
|
Column6.ControlSource = "c_UI", ;
|
|
Column6.DynamicBackColor = 'ICASE( c_UI="S", RGB(0,255,0), c_UI="N", RGB(255,0,0), RGB(255,255,255) )', ;
|
|
Column6.DynamicForeColor = 'ICASE( c_UI="N", RGB(255,255,255), RGB(0,0,0) )', ;
|
|
Column6.Enabled = .T., ;
|
|
Column6.FontBold = .F., ;
|
|
Column6.FontCharSet = 0, ;
|
|
Column6.FontCondense = .F., ;
|
|
Column6.FontExtend = .F., ;
|
|
Column6.FontItalic = .F., ;
|
|
Column6.FontName = "Arial", ;
|
|
Column6.FontOutline = .F., ;
|
|
Column6.FontShadow = .F., ;
|
|
Column6.FontSize = 9, ;
|
|
Column6.FontStrikethru = .F., ;
|
|
Column6.FontUnderline = .F., ;
|
|
Column6.ForeColor = 0,0,0, ;
|
|
Column6.Name = "Column6", ;
|
|
Column6.ReadOnly = .F., ;
|
|
Column6.Visible = .T., ;
|
|
Column6.Width = 50
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Cl_grid1.Column6.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "UI", ;
|
|
FontBold = .F., ;
|
|
FontCharSet = 0, ;
|
|
FontCondense = .F., ;
|
|
FontExtend = .F., ;
|
|
FontItalic = .F., ;
|
|
FontName = "Arial", ;
|
|
FontOutline = .F., ;
|
|
FontShadow = .F., ;
|
|
FontStrikethru = .F., ;
|
|
FontUnderline = .F., ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Cl_grid1.Column6.Text1' AS textbox WITH ;
|
|
Alignment = 2, ;
|
|
BackColor = 255,255,217, ;
|
|
BorderStyle = 0, ;
|
|
Enabled = .T., ;
|
|
FontBold = .F., ;
|
|
FontCharSet = 0, ;
|
|
FontCondense = .F., ;
|
|
FontExtend = .F., ;
|
|
FontItalic = .F., ;
|
|
FontName = "Arial", ;
|
|
FontOutline = .F., ;
|
|
FontShadow = .F., ;
|
|
FontStrikethru = .F., ;
|
|
FontUnderline = .F., ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
RightToLeft = .F., ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'pgf' AS cl_pageframe WITH ;
|
|
ActivePage = 2, ;
|
|
Anchor = 0, ;
|
|
ColorSource = 4, ;
|
|
Comment = "", ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
Enabled = .T., ;
|
|
ErasePage = .T., ;
|
|
Height = 384, ;
|
|
HelpContextID = 0, ;
|
|
Left = 12, ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
Name = "pgf", ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
PageCount = 2, ;
|
|
RightToLeft = .F., ;
|
|
StatusBarText = "", ;
|
|
TabIndex = 7, ;
|
|
TabOrientation = 1, ;
|
|
Tabs = .T., ;
|
|
TabStop = .T., ;
|
|
TabStretch = 1, ;
|
|
TabStyle = 0, ;
|
|
Tag = "", ;
|
|
test_aa = .F., ;
|
|
Themes = .T., ;
|
|
ToolTipText = "", ;
|
|
Top = 28, ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = 268, ;
|
|
Page1.BackColor = 240,240,240, ;
|
|
Page1.Caption = "Page1", ;
|
|
Page1.ColorSource = 4, ;
|
|
Page1.Comment = "Sin comentarios", ;
|
|
Page1.DragIcon = ..\..\, ;
|
|
Page1.DragMode = 0, ;
|
|
Page1.Enabled = .T., ;
|
|
Page1.FontBold = .F., ;
|
|
Page1.FontCharSet = 0, ;
|
|
Page1.FontCondense = .F., ;
|
|
Page1.FontExtend = .F., ;
|
|
Page1.FontItalic = .F., ;
|
|
Page1.FontName = "Arial", ;
|
|
Page1.FontOutline = .F., ;
|
|
Page1.FontShadow = .F., ;
|
|
Page1.FontSize = 9, ;
|
|
Page1.FontStrikethru = .F., ;
|
|
Page1.FontUnderline = .F., ;
|
|
Page1.ForeColor = 0,0,0, ;
|
|
Page1.HelpContextID = 0, ;
|
|
Page1.MouseIcon = ..\..\, ;
|
|
Page1.MousePointer = 0, ;
|
|
Page1.Name = "Page1", ;
|
|
Page1.OLEDragMode = 0, ;
|
|
Page1.OLEDragPicture = ..\..\, ;
|
|
Page1.OLEDropEffects = 3, ;
|
|
Page1.OLEDropMode = 0, ;
|
|
Page1.PageOrder = 1, ;
|
|
Page1.Picture = ..\..\, ;
|
|
Page1.StatusBarText = "", ;
|
|
Page1.Tag = "", ;
|
|
Page1.ToolTipText = "", ;
|
|
Page1.WhatsThisHelpID = -1, ;
|
|
Page2.Caption = "Page2", ;
|
|
Page2.Name = "Page2", ;
|
|
Page2.PageOrder = 2
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="pageframe" />
|
|
|
|
ADD OBJECT 'pgf.Page1.checkbox' AS cl_checkbox WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 0, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 240,240,240, ;
|
|
BackStyle = 1, ;
|
|
Caption = "Chk1", ;
|
|
Centered = .F., ;
|
|
ColorScheme = 1, ;
|
|
ColorSource = 4, ;
|
|
Comment = "", ;
|
|
ControlSource = "", ;
|
|
DefHeight = , ;
|
|
DefLeft = , ;
|
|
DefTop = , ;
|
|
DefWidth = , ;
|
|
DisabledBackColor = 240,240,240, ;
|
|
DisabledForeColor = 109,109,109, ;
|
|
DisabledPicture = ..\..\, ;
|
|
DownPicture = ..\..\, ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
Enabled = .T., ;
|
|
FontBold = .F., ;
|
|
FontCharSet = 0, ;
|
|
FontCondense = .F., ;
|
|
FontExtend = .F., ;
|
|
FontItalic = .F., ;
|
|
FontName = "Arial", ;
|
|
FontOutline = .F., ;
|
|
FontShadow = .F., ;
|
|
FontSize = 8, ;
|
|
FontStrikethru = .F., ;
|
|
FontUnderline = .F., ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = (21), ;
|
|
HelpContextID = 0, ;
|
|
Left = (7), ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
Name = "checkbox", ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
Picture = bmps\treeview.bmp, ;
|
|
PictureMargin = 0, ;
|
|
PicturePosition = 4, ;
|
|
PictureSpacing = 0, ;
|
|
ReadOnly = .F., ;
|
|
RightToLeft = .F., ;
|
|
SpecialEffect = 0, ;
|
|
StatusBarText = "", ;
|
|
Style = 1, ;
|
|
TabIndex = 1, ;
|
|
TabStop = .T., ;
|
|
Tag = "", ;
|
|
TerminateRead = .F., ;
|
|
test_aa = .F., ;
|
|
Themes = .T., ;
|
|
ToolTipText = "", ;
|
|
Top = (8), ;
|
|
Value = 0, ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = (199), ;
|
|
WordWrap = .F.
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'pgf.Page1.collection' AS cl_collection WITH ;
|
|
Left = 218, ;
|
|
Name = "collection", ;
|
|
Top = 8
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="collection" />
|
|
|
|
ADD OBJECT 'pgf.Page1.combobox' AS cl_combobox WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 0, ;
|
|
BackColor = 255,255,255, ;
|
|
BorderColor = 128,255,128, ;
|
|
BorderStyle = 1, ;
|
|
BoundColumn = 1, ;
|
|
BoundTo = .F., ;
|
|
ColorScheme = 2, ;
|
|
ColorSource = 4, ;
|
|
ColumnCount = 0, ;
|
|
ColumnLines = .T., ;
|
|
ColumnWidths = "", ;
|
|
Comment = "", ;
|
|
ControlSource = "", ;
|
|
DefHeight = , ;
|
|
DefLeft = , ;
|
|
DefTop = , ;
|
|
DefWidth = , ;
|
|
DisabledBackColor = 240,240,240, ;
|
|
DisabledForeColor = 109,109,109, ;
|
|
DisabledItemBackColor = 255,255,255, ;
|
|
DisabledItemForeColor = 109,109,109, ;
|
|
DisplayCount = 0, ;
|
|
DisplayValue = , ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
Enabled = .T., ;
|
|
FirstElement = 1, ;
|
|
FontBold = .F., ;
|
|
FontCondense = .F., ;
|
|
FontExtend = .F., ;
|
|
FontItalic = .F., ;
|
|
FontName = "Arial", ;
|
|
FontOutline = .F., ;
|
|
FontShadow = .F., ;
|
|
FontSize = 8, ;
|
|
FontStrikethru = .F., ;
|
|
FontUnderline = .F., ;
|
|
ForeColor = 0,0,0, ;
|
|
Format = "", ;
|
|
Height = (20), ;
|
|
HelpContextID = 0, ;
|
|
HideSelection = .T., ;
|
|
IMEMode = 0, ;
|
|
IncrementalSearch = .T., ;
|
|
InputMask = "", ;
|
|
ItemBackColor = 255,255,255, ;
|
|
ItemForeColor = 0,0,0, ;
|
|
ItemTips = .F., ;
|
|
Left = (7), ;
|
|
Margin = 0, ;
|
|
MaxLength = 0, ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
Name = "combobox", ;
|
|
NullDisplay = "", ;
|
|
NumberOfElements = 0, ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
OLEDropTextInsertion = 0, ;
|
|
Picture = bmps\treeview.bmp, ;
|
|
PictureSelectionDisplay = 0, ;
|
|
ReadOnly = .F., ;
|
|
RightToLeft = .F., ;
|
|
RowSource = "", ;
|
|
RowSourceType = 0, ;
|
|
SelectedBackColor = 51,153,255, ;
|
|
SelectedForeColor = 255,255,255, ;
|
|
SelectedItemBackColor = 51,153,255, ;
|
|
SelectedItemForeColor = 255,255,255, ;
|
|
SelectOnEntry = .F., ;
|
|
Sorted = .F., ;
|
|
SpecialEffect = 1, ;
|
|
StatusBarText = "", ;
|
|
Style = 0, ;
|
|
TabIndex = 1, ;
|
|
TabStop = .T., ;
|
|
Tag = "", ;
|
|
TerminateRead = .F., ;
|
|
test_aa = .F., ;
|
|
Themes = .T., ;
|
|
ToolTipText = "", ;
|
|
Top = (35), ;
|
|
Value = , ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = (196)
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'pgf.Page1.commandbutton' AS cl_commandbutton WITH ;
|
|
AutoSize = .F., ;
|
|
Caption = "Comando", ;
|
|
DefHeight = , ;
|
|
DefLeft = , ;
|
|
DefTop = , ;
|
|
DefWidth = , ;
|
|
FontSize = 8, ;
|
|
Height = (25), ;
|
|
Left = (99), ;
|
|
Name = "commandbutton", ;
|
|
Picture = bmps\treeview.bmp, ;
|
|
PicturePosition = 4, ;
|
|
test_aa = .F., ;
|
|
Themes = .T., ;
|
|
ToolTipText = "", ;
|
|
Top = (63), ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = (80), ;
|
|
WordWrap = .F.
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'pgf.Page1.commandgroup' AS cl_commandgroup WITH ;
|
|
Anchor = 0, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 240,240,240, ;
|
|
BackStyle = 1, ;
|
|
BorderColor = 100,100,100, ;
|
|
BorderStyle = 1, ;
|
|
ButtonCount = 2, ;
|
|
ColorSource = 4, ;
|
|
Comment = "", ;
|
|
ControlSource = "", ;
|
|
DefHeight = , ;
|
|
DefLeft = , ;
|
|
DefTop = , ;
|
|
DefWidth = , ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
Enabled = .T., ;
|
|
Height = (64), ;
|
|
HelpContextID = 0, ;
|
|
Left = (6), ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
Name = "commandgroup", ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
SpecialEffect = 0, ;
|
|
StatusBarText = "", ;
|
|
TabIndex = 2, ;
|
|
Tag = "", ;
|
|
TerminateRead = .F., ;
|
|
test_aa = .F., ;
|
|
Themes = .T., ;
|
|
ToolTipText = "", ;
|
|
Top = (60), ;
|
|
Value = 1, ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = (93), ;
|
|
Command1.Alignment = 2, ;
|
|
Command1.Anchor = 0, ;
|
|
Command1.AutoSize = .F., ;
|
|
Command1.BackColor = 192,192,192, ;
|
|
Command1.Cancel = .F., ;
|
|
Command1.Caption = "Comando1", ;
|
|
Command1.ColorScheme = 1, ;
|
|
Command1.ColorSource = 4, ;
|
|
Command1.Comment = "", ;
|
|
Command1.Default = .F., ;
|
|
Command1.DisabledBackColor = 240,240,240, ;
|
|
Command1.DisabledForeColor = 109,109,109, ;
|
|
Command1.DisabledPicture = ..\..\, ;
|
|
Command1.DownPicture = ..\..\, ;
|
|
Command1.DragIcon = ..\..\, ;
|
|
Command1.DragMode = 0, ;
|
|
Command1.Enabled = .T., ;
|
|
Command1.FontBold = .F., ;
|
|
Command1.FontCharSet = 0, ;
|
|
Command1.FontCondense = .F., ;
|
|
Command1.FontExtend = .F., ;
|
|
Command1.FontItalic = .F., ;
|
|
Command1.FontName = "Arial", ;
|
|
Command1.FontOutline = .F., ;
|
|
Command1.FontShadow = .F., ;
|
|
Command1.FontSize = 8, ;
|
|
Command1.FontStrikethru = .F., ;
|
|
Command1.FontUnderline = .F., ;
|
|
Command1.ForeColor = 0,0,0, ;
|
|
Command1.Height = 25, ;
|
|
Command1.HelpContextID = 0, ;
|
|
Command1.Left = 1, ;
|
|
Command1.MouseIcon = ..\..\, ;
|
|
Command1.MousePointer = 0, ;
|
|
Command1.Name = "Command1", ;
|
|
Command1.OLEDragMode = 0, ;
|
|
Command1.OLEDragPicture = ..\..\, ;
|
|
Command1.OLEDropEffects = 3, ;
|
|
Command1.OLEDropMode = 0, ;
|
|
Command1.Picture = bmps\sobrepostal.bmp, ;
|
|
Command1.PictureMargin = 0, ;
|
|
Command1.PicturePosition = 4, ;
|
|
Command1.PictureSpacing = 0, ;
|
|
Command1.RightToLeft = .F., ;
|
|
Command1.SpecialEffect = 0, ;
|
|
Command1.StatusBarText = "", ;
|
|
Command1.Style = 0, ;
|
|
Command1.TabIndex = 1, ;
|
|
Command1.TabStop = .T., ;
|
|
Command1.Tag = "", ;
|
|
Command1.TerminateRead = .F., ;
|
|
Command1.Themes = .T., ;
|
|
Command1.ToolTipText = "", ;
|
|
Command1.Top = 4, ;
|
|
Command1.Visible = .T., ;
|
|
Command1.WhatsThisHelpID = -1, ;
|
|
Command1.Width = 90, ;
|
|
Command1.WordWrap = .F., ;
|
|
Command2.AutoSize = .F., ;
|
|
Command2.BackColor = 192,192,192, ;
|
|
Command2.Caption = "Comando2", ;
|
|
Command2.FontSize = 8, ;
|
|
Command2.Height = 25, ;
|
|
Command2.Left = 1, ;
|
|
Command2.Name = "Command2", ;
|
|
Command2.Picture = bmps\sobrepostal.bmp, ;
|
|
Command2.PicturePosition = 4, ;
|
|
Command2.Top = 32, ;
|
|
Command2.Width = 90
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandgroup" />
|
|
|
|
ADD OBJECT 'pgf.Page1.container' AS cl_container WITH ;
|
|
Anchor = 0, ;
|
|
BackColor = 240,240,240, ;
|
|
BackStyle = 1, ;
|
|
BorderColor = 100,100,100, ;
|
|
BorderWidth = 1, ;
|
|
ColorSource = 4, ;
|
|
Comment = "", ;
|
|
DefHeight = , ;
|
|
DefLeft = , ;
|
|
DefTop = , ;
|
|
DefWidth = , ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
Enabled = .T., ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = (24), ;
|
|
HelpContextID = 0, ;
|
|
Left = (227), ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
Name = "container", ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
Picture = ..\..\, ;
|
|
SpecialEffect = 2, ;
|
|
StatusBarText = "", ;
|
|
Style = 0, ;
|
|
TabIndex = 4, ;
|
|
TabStop = .T., ;
|
|
Tag = "", ;
|
|
test_aa = .F., ;
|
|
ToolTipText = "", ;
|
|
Top = (127), ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = (20)
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'pgf.Page1.control' AS cl_control WITH ;
|
|
Anchor = 0, ;
|
|
BackColor = 240,240,240, ;
|
|
BackStyle = 1, ;
|
|
BorderColor = 100,100,100, ;
|
|
BorderWidth = 1, ;
|
|
ColorSource = 4, ;
|
|
Comment = "", ;
|
|
DefHeight = , ;
|
|
DefLeft = , ;
|
|
DefTop = , ;
|
|
DefWidth = , ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
Enabled = .T., ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = (24), ;
|
|
HelpContextID = 0, ;
|
|
Left = (199), ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
Name = "control", ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
Picture = ..\..\, ;
|
|
SpecialEffect = 2, ;
|
|
StatusBarText = "", ;
|
|
Style = 0, ;
|
|
TabIndex = 5, ;
|
|
TabStop = .T., ;
|
|
Tag = "", ;
|
|
test_aa = .F., ;
|
|
ToolTipText = "", ;
|
|
Top = (127), ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = (20)
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="control" />
|
|
|
|
ADD OBJECT 'pgf.Page1.editbox' AS cl_editbox WITH ;
|
|
AddLineFeeds = .F., ;
|
|
Alignment = 0, ;
|
|
AllowTabs = .F., ;
|
|
Anchor = 0, ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderColor = 128,255,128, ;
|
|
BorderStyle = 1, ;
|
|
ColorScheme = 2, ;
|
|
ColorSource = 4, ;
|
|
Comment = "", ;
|
|
ControlSource = "", ;
|
|
DefHeight = , ;
|
|
DefLeft = , ;
|
|
DefTop = , ;
|
|
DefWidth = , ;
|
|
DisabledBackColor = 240,240,240, ;
|
|
DisabledForeColor = 109,109,109, ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
Enabled = .T., ;
|
|
EnableHyperlinks = .F., ;
|
|
FontBold = .F., ;
|
|
FontCharSet = 0, ;
|
|
FontCondense = .F., ;
|
|
FontExtend = .F., ;
|
|
FontItalic = .F., ;
|
|
FontName = "Arial", ;
|
|
FontOutline = .F., ;
|
|
FontShadow = .F., ;
|
|
FontSize = 8, ;
|
|
FontStrikethru = .F., ;
|
|
FontUnderline = .F., ;
|
|
ForeColor = 0,0,0, ;
|
|
Format = "", ;
|
|
Height = (41), ;
|
|
HelpContextID = 0, ;
|
|
HideSelection = .T., ;
|
|
IMEMode = 0, ;
|
|
IntegralHeight = .F., ;
|
|
Left = (183), ;
|
|
Margin = 2, ;
|
|
MaxLength = 0, ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
Name = "editbox", ;
|
|
NullDisplay = "", ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
OLEDropTextInsertion = 0, ;
|
|
PasswordChar = "", ;
|
|
ReadOnly = .F., ;
|
|
RightToLeft = .F., ;
|
|
ScrollBars = 2, ;
|
|
SelectedBackColor = 51,153,255, ;
|
|
SelectedForeColor = 255,255,255, ;
|
|
SelectOnEntry = .F., ;
|
|
SpecialEffect = 1, ;
|
|
StatusBarText = "", ;
|
|
TabIndex = 6, ;
|
|
TabStop = .T., ;
|
|
Tag = "", ;
|
|
TerminateRead = .F., ;
|
|
test_aa = .F., ;
|
|
Themes = .T., ;
|
|
ToolTipText = "", ;
|
|
Top = (60), ;
|
|
Value = , ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = (68)
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="editbox" />
|
|
|
|
ADD OBJECT 'pgf.Page1.hyperlink' AS cl_hyperlink WITH ;
|
|
Comment = "", ;
|
|
Left = 199, ;
|
|
Name = "hyperlink", ;
|
|
Tag = "", ;
|
|
test_aa = .F., ;
|
|
Top = 103
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="hyperlink" />
|
|
|
|
ADD OBJECT 'pgf.Page1.image' AS cl_image WITH ;
|
|
Anchor = 0, ;
|
|
BackStyle = 1, ;
|
|
BorderColor = 100,100,100, ;
|
|
BorderStyle = 0, ;
|
|
ColorSource = 4, ;
|
|
Comment = "", ;
|
|
DefHeight = , ;
|
|
DefLeft = , ;
|
|
DefTop = , ;
|
|
DefWidth = , ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
Enabled = .T., ;
|
|
Height = (16), ;
|
|
HelpContextID = 0, ;
|
|
Left = (231), ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
Name = "image", ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
Picture = bmps\scccheckout.bmp, ;
|
|
RotateFlip = 0, ;
|
|
StatusBarText = "", ;
|
|
Stretch = 0, ;
|
|
Tag = "", ;
|
|
test_aa = .F., ;
|
|
Themes = .T., ;
|
|
ToolTipText = "", ;
|
|
Top = (107), ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = (16)
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
|
|
|
|
ADD OBJECT 'pgf.Page1.label' AS cl_label WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 0, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 240,240,240, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 0, ;
|
|
Caption = "Label4", ;
|
|
ColorScheme = 1, ;
|
|
ColorSource = 4, ;
|
|
Comment = "", ;
|
|
DefHeight = , ;
|
|
DefLeft = , ;
|
|
DefTop = , ;
|
|
DefWidth = , ;
|
|
FontOutline = .F., ;
|
|
FontShadow = .F., ;
|
|
FontSize = 8, ;
|
|
FontStrikethru = .F., ;
|
|
FontUnderline = .F., ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = (17), ;
|
|
HelpContextID = 0, ;
|
|
Left = (6), ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
Name = "label", ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
RightToLeft = .F., ;
|
|
Rotation = 0, ;
|
|
StatusBarText = "", ;
|
|
Style = 0, ;
|
|
TabIndex = 7, ;
|
|
Tag = "", ;
|
|
test_aa = .F., ;
|
|
ToolTipText = "", ;
|
|
Top = (136), ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = (104), ;
|
|
WordWrap = .F.
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'pgf.Page1.line' AS cl_line WITH ;
|
|
Anchor = 0, ;
|
|
BorderColor = 255,0,0, ;
|
|
BorderStyle = 1, ;
|
|
BorderWidth = 1, ;
|
|
ColorSource = 4, ;
|
|
Comment = "", ;
|
|
DefHeight = , ;
|
|
DefLeft = , ;
|
|
DefTop = , ;
|
|
DefWidth = , ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
DrawMode = 13, ;
|
|
Enabled = .T., ;
|
|
Height = (8), ;
|
|
HelpContextID = 0, ;
|
|
Left = (121), ;
|
|
LineSlant = "\", ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
Name = "line", ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
PolyPoints = "", ;
|
|
Rotation = 0, ;
|
|
StatusBarText = "", ;
|
|
Tag = "", ;
|
|
test_aa = .F., ;
|
|
ToolTipText = "", ;
|
|
Top = (136), ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = (50)
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="line" />
|
|
|
|
ADD OBJECT 'pgf.Page1.listbox' AS cl_listbox WITH ;
|
|
Anchor = 0, ;
|
|
AutoHideScrollbar = 0, ;
|
|
BorderColor = 128,255,128, ;
|
|
BoundColumn = 1, ;
|
|
BoundTo = .F., ;
|
|
ColorScheme = 1, ;
|
|
ColorSource = 4, ;
|
|
ColumnCount = 0, ;
|
|
ColumnLines = .T., ;
|
|
ColumnWidths = "", ;
|
|
Comment = "", ;
|
|
ControlSource = "", ;
|
|
DefHeight = , ;
|
|
DefLeft = , ;
|
|
DefTop = , ;
|
|
DefWidth = , ;
|
|
DisabledBackColor = 255,255,255, ;
|
|
DisabledForeColor = 109,109,109, ;
|
|
DisabledItemBackColor = 255,255,255, ;
|
|
DisabledItemForeColor = 109,109,109, ;
|
|
DisplayValue = , ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
Enabled = .T., ;
|
|
FirstElement = 1, ;
|
|
FontBold = .F., ;
|
|
FontCondense = .F., ;
|
|
FontExtend = .F., ;
|
|
FontItalic = .F., ;
|
|
FontName = "Arial", ;
|
|
FontOutline = .F., ;
|
|
FontShadow = .F., ;
|
|
FontSize = 8, ;
|
|
FontStrikethru = .F., ;
|
|
FontUnderline = .F., ;
|
|
Height = (60), ;
|
|
HelpContextID = 0, ;
|
|
IncrementalSearch = .T., ;
|
|
IntegralHeight = .F., ;
|
|
ItemBackColor = 255,255,255, ;
|
|
ItemForeColor = 0,0,0, ;
|
|
ItemTips = .F., ;
|
|
Left = (7), ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
MoverBars = .F., ;
|
|
MultiSelect = .F., ;
|
|
Name = "listbox", ;
|
|
NullDisplay = "", ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
Picture = ..\..\, ;
|
|
RightToLeft = .F., ;
|
|
RowSource = "", ;
|
|
RowSourceType = 0, ;
|
|
SelectedItemBackColor = 51,153,255, ;
|
|
SelectedItemForeColor = 255,255,255, ;
|
|
Sorted = .F., ;
|
|
SpecialEffect = 1, ;
|
|
StatusBarText = "", ;
|
|
TabIndex = 8, ;
|
|
TabStop = .T., ;
|
|
Tag = "", ;
|
|
TerminateRead = .F., ;
|
|
test_aa = .F., ;
|
|
Themes = .T., ;
|
|
ToolTipText = "", ;
|
|
Top = (164), ;
|
|
Value = , ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = (224)
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" />
|
|
|
|
ADD OBJECT 'pgf.Page1.option' AS cl_option WITH ;
|
|
AutoSize = .F., ;
|
|
Caption = "Esta es la opción B", ;
|
|
DefHeight = , ;
|
|
DefLeft = , ;
|
|
DefTop = , ;
|
|
DefWidth = , ;
|
|
FontSize = 8, ;
|
|
Height = (16), ;
|
|
Left = (123), ;
|
|
Name = "option", ;
|
|
Top = (232), ;
|
|
Width = (110)
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optionbutton" />
|
|
|
|
ADD OBJECT 'pgf.Page1.optiongroup' AS cl_optiongroup WITH ;
|
|
Anchor = 0, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 240,240,240, ;
|
|
BackStyle = 1, ;
|
|
BorderColor = 100,100,100, ;
|
|
BorderStyle = 1, ;
|
|
ButtonCount = 2, ;
|
|
ColorSource = 4, ;
|
|
Comment = "", ;
|
|
ControlSource = "", ;
|
|
DefHeight = , ;
|
|
DefLeft = , ;
|
|
DefTop = , ;
|
|
DefWidth = , ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
Enabled = .T., ;
|
|
Height = (46), ;
|
|
HelpContextID = 0, ;
|
|
Left = (7), ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
Name = "optiongroup", ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
SpecialEffect = 0, ;
|
|
StatusBarText = "", ;
|
|
TabIndex = 1, ;
|
|
Tag = "", ;
|
|
TerminateRead = .F., ;
|
|
test_aa = .F., ;
|
|
Themes = .T., ;
|
|
ToolTipText = "", ;
|
|
Top = (232), ;
|
|
Value = 0, ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = (112), ;
|
|
Option1.Alignment = 0, ;
|
|
Option1.Anchor = 0, ;
|
|
Option1.AutoSize = .F., ;
|
|
Option1.BackColor = 192,192,192, ;
|
|
Option1.BackStyle = 1, ;
|
|
Option1.Caption = "Esta es la opc. 1", ;
|
|
Option1.ColorScheme = 1, ;
|
|
Option1.ColorSource = 4, ;
|
|
Option1.Comment = "", ;
|
|
Option1.ControlSource = "", ;
|
|
Option1.DisabledBackColor = 240,240,240, ;
|
|
Option1.DisabledForeColor = 109,109,109, ;
|
|
Option1.DisabledPicture = ..\..\, ;
|
|
Option1.DownPicture = ..\..\, ;
|
|
Option1.DragIcon = ..\..\, ;
|
|
Option1.DragMode = 0, ;
|
|
Option1.Enabled = .T., ;
|
|
Option1.FontBold = .F., ;
|
|
Option1.FontCondense = .F., ;
|
|
Option1.FontExtend = .F., ;
|
|
Option1.FontItalic = .F., ;
|
|
Option1.FontName = "Arial", ;
|
|
Option1.FontOutline = .F., ;
|
|
Option1.FontShadow = .F., ;
|
|
Option1.FontSize = 8, ;
|
|
Option1.FontStrikethru = .F., ;
|
|
Option1.FontUnderline = .F., ;
|
|
Option1.ForeColor = 0,0,0, ;
|
|
Option1.Height = 41, ;
|
|
Option1.HelpContextID = 0, ;
|
|
Option1.Left = 5, ;
|
|
Option1.MouseIcon = ..\..\, ;
|
|
Option1.MousePointer = 0, ;
|
|
Option1.Name = "Option1", ;
|
|
Option1.OLEDragMode = 0, ;
|
|
Option1.OLEDragPicture = ..\..\, ;
|
|
Option1.OLEDropEffects = 3, ;
|
|
Option1.OLEDropMode = 0, ;
|
|
Option1.Picture = bmps\scccheckout.bmp, ;
|
|
Option1.PictureMargin = 0, ;
|
|
Option1.PicturePosition = 4, ;
|
|
Option1.PictureSpacing = 0, ;
|
|
Option1.RightToLeft = .F., ;
|
|
Option1.SpecialEffect = 0, ;
|
|
Option1.StatusBarText = "", ;
|
|
Option1.Style = 1, ;
|
|
Option1.TabIndex = 1, ;
|
|
Option1.TabStop = .T., ;
|
|
Option1.Tag = "", ;
|
|
Option1.TerminateRead = .F., ;
|
|
Option1.Themes = .T., ;
|
|
Option1.ToolTipText = "", ;
|
|
Option1.Top = 5, ;
|
|
Option1.Value = 0, ;
|
|
Option1.Visible = .T., ;
|
|
Option1.WhatsThisHelpID = -1, ;
|
|
Option1.Width = 112, ;
|
|
Option1.WordWrap = .F., ;
|
|
Option2.AutoSize = .F., ;
|
|
Option2.BackColor = 192,192,192, ;
|
|
Option2.Caption = "Esta es la opc. 2", ;
|
|
Option2.FontSize = 8, ;
|
|
Option2.Height = 16, ;
|
|
Option2.Left = 5, ;
|
|
Option2.Name = "Option2", ;
|
|
Option2.Picture = bmps\scccheckout.bmp, ;
|
|
Option2.PicturePosition = 4, ;
|
|
Option2.Style = 1, ;
|
|
Option2.Top = 24, ;
|
|
Option2.Width = 103
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" />
|
|
|
|
ADD OBJECT 'pgf.Page1.Pageframe1' AS pageframe WITH ;
|
|
DefHeight = , ;
|
|
DefLeft = , ;
|
|
DefTop = , ;
|
|
DefWidth = , ;
|
|
ErasePage = .T., ;
|
|
Height = (61), ;
|
|
Left = (135), ;
|
|
MemberClass = "cl_page", ;
|
|
MemberClassLibrary = lib_controles.vcx, ;
|
|
Name = "Pageframe1", ;
|
|
PageCount = 2, ;
|
|
TabOrientation = 2, ;
|
|
Themes = .F., ;
|
|
Top = (284), ;
|
|
Width = (117), ;
|
|
Cl_page1.Caption = "Pg1", ;
|
|
Cl_page1.Name = "Cl_page1", ;
|
|
Cl_page2.BackColor = 255,193,132, ;
|
|
Cl_page2.Caption = "Pg2", ;
|
|
Cl_page2.Name = "Cl_page2"
|
|
*< END OBJECT: BaseClass="pageframe" />
|
|
|
|
ADD OBJECT 'pgf.Page1.Shape1' AS shape WITH ;
|
|
Anchor = 0, ;
|
|
BackColor = 255,255,196, ;
|
|
BackStyle = 1, ;
|
|
BorderColor = 128,255,128, ;
|
|
BorderStyle = 1, ;
|
|
BorderWidth = 1, ;
|
|
ColorScheme = 1, ;
|
|
ColorSource = 4, ;
|
|
Comment = "", ;
|
|
Curvature = 16, ;
|
|
DefHeight = , ;
|
|
DefLeft = , ;
|
|
DefTop = , ;
|
|
DefWidth = , ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
DrawMode = 13, ;
|
|
Enabled = .T., ;
|
|
FillColor = 0,0,0, ;
|
|
FillStyle = 1, ;
|
|
Height = (21), ;
|
|
HelpContextID = 0, ;
|
|
Left = (115), ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
Name = "Shape1", ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
PolyPoints = "", ;
|
|
Rotation = 0, ;
|
|
SpecialEffect = 0, ;
|
|
StatusBarText = "", ;
|
|
Style = 0, ;
|
|
Tag = "", ;
|
|
ToolTipText = "", ;
|
|
Top = (99), ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = (57)
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'pgf.Page1.spinner' AS cl_spinner WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 0, ;
|
|
BackColor = 255,255,255, ;
|
|
BorderColor = 128,255,128, ;
|
|
BorderStyle = 1, ;
|
|
ColorScheme = 1, ;
|
|
ColorSource = 4, ;
|
|
Comment = "", ;
|
|
ControlSource = "", ;
|
|
DefHeight = , ;
|
|
DefLeft = , ;
|
|
DefTop = , ;
|
|
DefWidth = , ;
|
|
DisabledBackColor = 240,240,240, ;
|
|
DisabledForeColor = 109,109,109, ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
Enabled = .T., ;
|
|
FontBold = .F., ;
|
|
FontCharSet = 0, ;
|
|
FontCondense = .F., ;
|
|
FontExtend = .F., ;
|
|
FontItalic = .F., ;
|
|
FontName = "Arial", ;
|
|
FontOutline = .F., ;
|
|
FontShadow = .F., ;
|
|
FontSize = 8, ;
|
|
FontStrikethru = .F., ;
|
|
FontUnderline = .F., ;
|
|
ForeColor = 0,0,0, ;
|
|
Format = "", ;
|
|
Height = (19), ;
|
|
HelpContextID = 0, ;
|
|
HideSelection = .T., ;
|
|
Increment = 1.00, ;
|
|
InputMask = "", ;
|
|
KeyboardHighValue = 2147483647, ;
|
|
KeyboardLowValue = -2147483647, ;
|
|
Left = (11), ;
|
|
Margin = 0, ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
Name = "spinner", ;
|
|
NullDisplay = "", ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
OLEDropTextInsertion = 0, ;
|
|
ReadOnly = .F., ;
|
|
RightToLeft = .F., ;
|
|
SelectedBackColor = 51,153,255, ;
|
|
SelectedForeColor = 255,255,255, ;
|
|
SelectOnEntry = .F., ;
|
|
SpecialEffect = 1, ;
|
|
SpinnerHighValue = 2147483647.00, ;
|
|
SpinnerLowValue = -2147483647.00, ;
|
|
StatusBarText = "", ;
|
|
TabIndex = 9, ;
|
|
TabStop = .T., ;
|
|
Tag = "", ;
|
|
TerminateRead = .F., ;
|
|
test_aa = .F., ;
|
|
Themes = .T., ;
|
|
ToolTipText = "", ;
|
|
Top = (292), ;
|
|
Value = 0, ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = (108)
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="spinner" />
|
|
|
|
ADD OBJECT 'pgf.Page1.textbox' AS cl_textbox WITH ;
|
|
Alignment = 3, ;
|
|
Anchor = 0, ;
|
|
AutoComplete = 0, ;
|
|
AutoCompSource = "", ;
|
|
AutoCompTable = "", ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderColor = 128,255,128, ;
|
|
BorderStyle = 1, ;
|
|
Century = 1, ;
|
|
ColorScheme = 1, ;
|
|
ColorSource = 4, ;
|
|
Comment = "", ;
|
|
ControlSource = "", ;
|
|
DateFormat = 0, ;
|
|
DateMark = "", ;
|
|
DefHeight = , ;
|
|
DefLeft = , ;
|
|
DefTop = , ;
|
|
DefWidth = , ;
|
|
DisabledBackColor = 240,240,240, ;
|
|
DisabledForeColor = 109,109,109, ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
Enabled = .T., ;
|
|
EnableHyperlinks = .F., ;
|
|
FontBold = .F., ;
|
|
FontCharSet = 0, ;
|
|
FontCondense = .F., ;
|
|
FontExtend = .F., ;
|
|
FontItalic = .F., ;
|
|
FontName = "Arial", ;
|
|
FontOutline = .F., ;
|
|
FontShadow = .F., ;
|
|
FontSize = 8, ;
|
|
FontStrikethru = .F., ;
|
|
FontUnderline = .F., ;
|
|
ForeColor = 0,0,0, ;
|
|
Format = "", ;
|
|
Height = (19), ;
|
|
HelpContextID = 0, ;
|
|
HideSelection = .T., ;
|
|
Hours = 0, ;
|
|
IMEMode = 0, ;
|
|
InputMask = "", ;
|
|
IntegralHeight = .F., ;
|
|
Left = (11), ;
|
|
Margin = 0, ;
|
|
MaxLength = 0, ;
|
|
MemoWindow = "", ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
Name = "textbox", ;
|
|
NullDisplay = "", ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
OpenWindow = .F., ;
|
|
PasswordChar = "", ;
|
|
ReadOnly = .F., ;
|
|
RightToLeft = .F., ;
|
|
Seconds = 2, ;
|
|
SelectedBackColor = 51,153,255, ;
|
|
SelectedForeColor = 255,255,255, ;
|
|
SelectOnEntry = .F., ;
|
|
SpecialEffect = 1, ;
|
|
StatusBarText = "", ;
|
|
StrictDateEntry = 1, ;
|
|
Style = 0, ;
|
|
TabIndex = 1, ;
|
|
TabStop = .T., ;
|
|
Tag = "", ;
|
|
TerminateRead = .F., ;
|
|
test_aa = .F., ;
|
|
Themes = .T., ;
|
|
ToolTipText = "", ;
|
|
Top = (320), ;
|
|
Value = , ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = (108)
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'pgf.Page1.timer' AS cl_timer WITH ;
|
|
Comment = "", ;
|
|
DefHeight = , ;
|
|
DefLeft = , ;
|
|
DefTop = , ;
|
|
DefWidth = , ;
|
|
Enabled = .T., ;
|
|
Height = (23), ;
|
|
Interval = 0, ;
|
|
Left = (207), ;
|
|
Name = "timer", ;
|
|
Tag = "", ;
|
|
test_aa = .F., ;
|
|
Top = (252), ;
|
|
Width = (23)
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="timer" />
|
|
|
|
PROCEDURE Activate
|
|
IF NOT THISFORM.l_activated
|
|
THISFORM.run_tests()
|
|
THISFORM.l_activated = .T.
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE add_control
|
|
LPARAMETERS toControl
|
|
|
|
LOCAL lcCtlPath
|
|
|
|
WITH THISFORM
|
|
lcCtlPath = SYS(1272, toControl)
|
|
|
|
INSERT INTO C_TESTS ;
|
|
( c_CtlName, c_Access, c_Assign, c_Value, c_ProgrChg, c_UI ) ;
|
|
VALUES ;
|
|
( SUBSTR( lcCtlPath, LEN(.NAME) + 2), 'N', 'N', 'N', 'N', 'N' )
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Load
|
|
CREATE CURSOR C_TESTS ( c_CtlName C(30), c_Access C(1), c_Assign C(1), c_Value C(1), c_ProgrChg C(1), c_UI C(1) )
|
|
INDEX ON c_CtlName TAG c_CtlName
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE run_tests
|
|
TRY
|
|
LOCAL loEx AS Exception, loCtl
|
|
|
|
WITH THISFORM AS Form
|
|
*-- c_CtlName, c_Access, c_Assign, c_Value, c_ProgrChg
|
|
THISFORM.pgf.page1.SETALL( "Tag", "" )
|
|
THISFORM.pgf.ActivePage = 1
|
|
|
|
SCAN
|
|
*-- Test UI Enable
|
|
loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) )
|
|
DO CASE
|
|
CASE NOT PEMSTATUS(loCtl, 'UIEnable',5)
|
|
REPLACE c_UI WITH "-"
|
|
CASE loCtl.Tag = "UI"
|
|
REPLACE c_UI WITH "S"
|
|
ENDCASE
|
|
ENDSCAN
|
|
|
|
SCAN
|
|
*-- Test Access
|
|
loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) )
|
|
loCtl.Tag = ''
|
|
IF loCtl.test_aa = "ACCESS_OK"
|
|
REPLACE c_Access WITH "S"
|
|
ENDIF
|
|
ENDSCAN
|
|
|
|
SCAN
|
|
*-- Test Assign
|
|
loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) )
|
|
loCtl.Tag = ''
|
|
loCtl.test_aa = "ASSIGN_OK"
|
|
IF loCtl.Tag = "ASSIGN_OK"
|
|
REPLACE c_Assign WITH "S"
|
|
ENDIF
|
|
ENDSCAN
|
|
|
|
SCAN
|
|
*-- Test Valor/Activate
|
|
loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) )
|
|
|
|
DO CASE
|
|
CASE loCtl.Baseclass == 'Checkbox'
|
|
.valor = 1
|
|
loCtl.ControlSource = 'THISFORM.valor'
|
|
IF loCtl.Value = .valor
|
|
REPLACE c_Value WITH "S"
|
|
ENDIF
|
|
loCtl.ControlSource = ''
|
|
|
|
CASE loCtl.Baseclass == 'Combobox'
|
|
.valor = 3
|
|
loCtl.ControlSource = 'THISFORM.valor'
|
|
IF loCtl.Value = .valor
|
|
REPLACE c_Value WITH "S"
|
|
ENDIF
|
|
loCtl.ControlSource = ''
|
|
|
|
CASE loCtl.Baseclass == 'Commandgroup'
|
|
.valor = 2
|
|
loCtl.ControlSource = 'THISFORM.valor'
|
|
IF loCtl.Value = .valor
|
|
REPLACE c_Value WITH "S"
|
|
ENDIF
|
|
loCtl.ControlSource = ''
|
|
|
|
CASE loCtl.Baseclass == 'Editbox'
|
|
.valor = 'Texto editable'
|
|
loCtl.ControlSource = 'THISFORM.valor'
|
|
IF loCtl.Value = .valor
|
|
REPLACE c_Value WITH "S"
|
|
ENDIF
|
|
loCtl.ControlSource = ''
|
|
|
|
CASE loCtl.Baseclass == 'Listbox'
|
|
.valor = 3
|
|
loCtl.ControlSource = 'THISFORM.valor'
|
|
IF loCtl.Value = .valor
|
|
REPLACE c_Value WITH "S"
|
|
ENDIF
|
|
loCtl.ControlSource = ''
|
|
|
|
CASE loCtl.Baseclass == 'Optiongroup'
|
|
.valor = 2
|
|
loCtl.ControlSource = 'THISFORM.valor'
|
|
IF loCtl.Value = .valor
|
|
REPLACE c_Value WITH "S"
|
|
ENDIF
|
|
loCtl.ControlSource = ''
|
|
|
|
CASE loCtl.Baseclass == 'Spinner'
|
|
.valor = 123
|
|
loCtl.ControlSource = 'THISFORM.valor'
|
|
IF loCtl.Value = .valor
|
|
REPLACE c_Value WITH "S"
|
|
ENDIF
|
|
loCtl.ControlSource = ''
|
|
|
|
CASE loCtl.Baseclass == 'Textbox'
|
|
.valor = "Mi texto"
|
|
loCtl.ControlSource = 'THISFORM.valor'
|
|
IF loCtl.Value = .valor
|
|
REPLACE c_Value WITH "S"
|
|
ENDIF
|
|
loCtl.ControlSource = ''
|
|
|
|
CASE loCtl.Baseclass == 'Page'
|
|
loCtl.Parent.ActivePage = 2
|
|
IF loCtl.Tag = 'AC'
|
|
REPLACE c_Value WITH "S"
|
|
ENDIF
|
|
|
|
OTHERWISE
|
|
REPLACE c_Value WITH "-"
|
|
|
|
ENDCASE
|
|
ENDSCAN
|
|
|
|
SCAN
|
|
*-- Test ProgrammaticChange
|
|
loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) )
|
|
.Tag = ''
|
|
DO CASE
|
|
CASE loCtl.Baseclass == 'Checkbox'
|
|
loCtl.Value = 0
|
|
IF NOT EMPTY(.tag)
|
|
REPLACE c_ProgrChg WITH "S"
|
|
ENDIF
|
|
|
|
CASE loCtl.Baseclass == 'Combobox'
|
|
loCtl.Value = 1
|
|
IF NOT EMPTY(.tag)
|
|
REPLACE c_ProgrChg WITH "S"
|
|
ENDIF
|
|
|
|
CASE loCtl.Baseclass == 'Commandgroup'
|
|
loCtl.Value = 1
|
|
IF NOT EMPTY(.tag)
|
|
REPLACE c_ProgrChg WITH "S"
|
|
ENDIF
|
|
|
|
CASE loCtl.Baseclass == 'Editbox'
|
|
loCtl.Value = 'Editado!'
|
|
IF NOT EMPTY(.tag)
|
|
REPLACE c_ProgrChg WITH "S"
|
|
ENDIF
|
|
|
|
CASE loCtl.Baseclass == 'Listbox'
|
|
loCtl.Value = 1
|
|
IF NOT EMPTY(.tag)
|
|
REPLACE c_ProgrChg WITH "S"
|
|
ENDIF
|
|
|
|
CASE loCtl.Baseclass == 'Optiongroup'
|
|
loCtl.Value = 1
|
|
IF NOT EMPTY(.tag)
|
|
REPLACE c_ProgrChg WITH "S"
|
|
ENDIF
|
|
|
|
CASE loCtl.Baseclass == 'Spinner'
|
|
loCtl.Value = 321
|
|
IF NOT EMPTY(.tag)
|
|
REPLACE c_ProgrChg WITH "S"
|
|
ENDIF
|
|
|
|
CASE loCtl.Baseclass == 'Textbox'
|
|
loCtl.Value = 'Editado!'
|
|
IF NOT EMPTY(.tag)
|
|
REPLACE c_ProgrChg WITH "S"
|
|
ENDIF
|
|
|
|
OTHERWISE
|
|
REPLACE c_ProgrChg WITH "-"
|
|
|
|
ENDCASE
|
|
|
|
ENDSCAN
|
|
ENDWITH
|
|
|
|
|
|
CATCH TO loEx
|
|
THISFORM.edit1.Value = 'Error ' + TRANSFORM(loEx.ErrorNo) + CHR(13) ;
|
|
+ loEx.Message + CHR(13) ;
|
|
+ loEx.Procedure + ', Line ' + TRANSFORM(loEx.LineNo) + CHR(13) ;
|
|
+ loEx.Details
|
|
|
|
FINALLY
|
|
IF USED("C_TESTS")
|
|
SELECT C_TESTS
|
|
GO TOP
|
|
ENDIF
|
|
|
|
ENDTRY
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Init
|
|
THISFORM.add_control( THIS )
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.checkbox.Init
|
|
THISFORM.add_control( THIS )
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.checkbox.ProgrammaticChange
|
|
THISFORM.Tag = 'PC'
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.checkbox.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.checkbox.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.checkbox.UIEnable
|
|
LPARAMETERS lEnable
|
|
|
|
IF lEnable
|
|
THIS.Tag = 'UI'
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.collection.Init
|
|
THISFORM.add_control( THIS )
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.collection.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.collection.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.combobox.Init
|
|
this.AddListItem('Este es el valor.A1')
|
|
this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
|
|
this.AddListItem('Este es el valor.B1')
|
|
this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
|
|
this.AddListItem('Este es el valor.C1')
|
|
this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
|
|
THISFORM.add_control( THIS )
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.combobox.ProgrammaticChange
|
|
THISFORM.Tag = 'PC'
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.combobox.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.combobox.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.combobox.UIEnable
|
|
LPARAMETERS lEnable
|
|
|
|
IF lEnable
|
|
THIS.Tag = 'UI'
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.commandbutton.Init
|
|
THISFORM.add_control( THIS )
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.commandbutton.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.commandbutton.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.commandbutton.UIEnable
|
|
LPARAMETERS lEnable
|
|
|
|
IF lEnable
|
|
THIS.Tag = 'UI'
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.commandgroup.Init
|
|
THISFORM.add_control( THIS )
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.commandgroup.ProgrammaticChange
|
|
THISFORM.Tag = 'PC'
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.commandgroup.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.commandgroup.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.commandgroup.UIEnable
|
|
LPARAMETERS lEnable
|
|
|
|
IF lEnable
|
|
THIS.Tag = 'UI'
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.container.Init
|
|
THISFORM.add_control( THIS )
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.container.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.container.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.container.UIEnable
|
|
LPARAMETERS lEnable
|
|
|
|
IF lEnable
|
|
THIS.Tag = 'UI'
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.control.Init
|
|
THISFORM.add_control( THIS )
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.control.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.control.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.control.UIEnable
|
|
LPARAMETERS lEnable
|
|
|
|
IF lEnable
|
|
THIS.Tag = 'UI'
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.editbox.Init
|
|
THISFORM.add_control( THIS )
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.editbox.ProgrammaticChange
|
|
THISFORM.Tag = 'PC'
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.editbox.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.editbox.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.editbox.UIEnable
|
|
LPARAMETERS lEnable
|
|
|
|
IF lEnable
|
|
THIS.Tag = 'UI'
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.hyperlink.Init
|
|
THISFORM.add_control( THIS )
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.hyperlink.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.hyperlink.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.image.Init
|
|
THISFORM.add_control( THIS )
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.image.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.image.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.image.UIEnable
|
|
LPARAMETERS lEnable
|
|
|
|
IF lEnable
|
|
THIS.Tag = 'UI'
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.label.Init
|
|
THISFORM.add_control( THIS )
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.label.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.label.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.label.UIEnable
|
|
LPARAMETERS lEnable
|
|
|
|
IF lEnable
|
|
THIS.Tag = 'UI'
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.line.Init
|
|
THISFORM.add_control( THIS )
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.line.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.line.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.line.UIEnable
|
|
LPARAMETERS lEnable
|
|
|
|
IF lEnable
|
|
THIS.Tag = 'UI'
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.listbox.Init
|
|
this.AddListItem('Este es el valor.A1')
|
|
this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
|
|
this.AddListItem('Este es el valor.B1')
|
|
this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
|
|
this.AddListItem('Este es el valor.C1')
|
|
this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
|
|
THISFORM.add_control( THIS )
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.listbox.ProgrammaticChange
|
|
THISFORM.Tag = 'PC'
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.listbox.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.listbox.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.listbox.UIEnable
|
|
LPARAMETERS lEnable
|
|
|
|
IF lEnable
|
|
THIS.Tag = 'UI'
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.option.Init
|
|
THISFORM.add_control( THIS )
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.option.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.option.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.option.UIEnable
|
|
LPARAMETERS lEnable
|
|
|
|
IF lEnable
|
|
THIS.Tag = 'UI'
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.optiongroup.Init
|
|
THISFORM.add_control( THIS )
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.optiongroup.ProgrammaticChange
|
|
THISFORM.Tag = 'PC'
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.optiongroup.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.optiongroup.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.optiongroup.UIEnable
|
|
LPARAMETERS lEnable
|
|
|
|
IF lEnable
|
|
THIS.Tag = 'UI'
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.Pageframe1.Cl_page2.Activate
|
|
THIS.Tag = 'AC'
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.Pageframe1.Cl_page2.Init
|
|
THISFORM.add_control( THIS )
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.Pageframe1.Cl_page2.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.Pageframe1.Cl_page2.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.Pageframe1.Init
|
|
this.Cl_page2.Init()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.Pageframe1.UIEnable
|
|
LPARAMETERS lEnable
|
|
|
|
IF lEnable
|
|
THISFORM.pgf.Tag = 'UI'
|
|
ENDIF
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.spinner.Init
|
|
THISFORM.add_control( THIS )
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.spinner.ProgrammaticChange
|
|
THISFORM.Tag = 'PC'
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.spinner.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.spinner.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.spinner.UIEnable
|
|
LPARAMETERS lEnable
|
|
|
|
IF lEnable
|
|
THIS.Tag = 'UI'
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.textbox.Init
|
|
THISFORM.add_control( THIS )
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.textbox.ProgrammaticChange
|
|
THISFORM.Tag = 'PC'
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.textbox.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.textbox.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.textbox.UIEnable
|
|
LPARAMETERS lEnable
|
|
|
|
IF lEnable
|
|
THIS.Tag = 'UI'
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.timer.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.Page1.timer.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.test_aa_access
|
|
IF EMPTY(THIS.Tag)
|
|
RETURN "ACCESS_OK"
|
|
ELSE
|
|
RETURN THIS.Tag
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pgf.test_aa_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
THIS.test_aa = m.vNewVal
|
|
THIS.Tag = EVL(m.vNewVal,'')
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|