diff --git a/TESTS/DATOS_READONLY/f_form_aa.sc2 b/TESTS/DATOS_READONLY/f_form_aa.sc2 index b55b1b6..6cb0b02 100644 --- a/TESTS/DATOS_READONLY/f_form_aa.sc2 +++ b/TESTS/DATOS_READONLY/f_form_aa.sc2 @@ -42,6 +42,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" *< 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.Cl_optiongroup1" UniqueID="" Timestamp="" /> * *m: add_control @@ -149,12 +150,12 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" WindowState = 0 WindowType = 0 ZoomBox = .F. - Command2.Height = 27 - Command2.Left = 764 - Command2.Name = "Command2" - Command2.RightToLeft = .F. - Command2.Top = 392 - Command2.Width = 212 + cmdCapturar.Height = 27 + cmdCapturar.Left = 764 + cmdCapturar.Name = "cmdCapturar" + cmdCapturar.RightToLeft = .F. + cmdCapturar.Top = 392 + cmdCapturar.Width = 212 Edit1.Height = 356 Edit1.Left = 764 Edit1.Name = "Edit1" @@ -829,6 +830,118 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" WordWrap = .F. *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" /> + ADD OBJECT 'pgf.Page1.Cl_optiongroup1' 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 = , ; + DefWidth = , ; + DragIcon = ..\..\, ; + DragMode = 0, ; + Enabled = .T., ; + Height = (46), ; + HelpContextID = 0, ; + Left = 123, ; + MouseIcon = ..\..\, ; + MousePointer = 0, ; + Name = "Cl_optiongroup1", ; + OLEDragMode = 0, ; + OLEDragPicture = ..\..\, ; + OLEDropEffects = 3, ; + OLEDropMode = 0, ; + SpecialEffect = 0, ; + StatusBarText = "", ; + TabIndex = 1, ; + Tag = "", ; + TerminateRead = .F., ; + test_aa = .F., ; + Themes = .T., ; + ToolTipText = "", ; + Top = 231, ; + Value = 2, ; + 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 = 16, ; + 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 = 0, ; + 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 = 98, ; + 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 = 0, ; + Option2.Top = 24, ; + Option2.Value = 1, ; + Option2.Width = 102 + *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" /> + ADD OBJECT 'pgf.Page1.collection' AS cl_collection WITH ; Left = 218, ; Name = "collection", ; @@ -859,7 +972,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" DisabledItemBackColor = 255,255,255, ; DisabledItemForeColor = 109,109,109, ; DisplayCount = 0, ; - DisplayValue = combobox, ; + DisplayValue = , ; DragIcon = ..\..\, ; DragMode = 0, ; Enabled = .T., ; @@ -1368,7 +1481,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" DisabledForeColor = 109,109,109, ; DisabledItemBackColor = 255,255,255, ; DisabledItemForeColor = 109,109,109, ; - DisplayValue = listbox, ; + DisplayValue = , ; DragIcon = ..\..\, ; DragMode = 0, ; Enabled = .T., ; @@ -1418,7 +1531,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" Themes = .T., ; ToolTipText = "", ; Top = (164), ; - Value = listbox, ; + Value = , ; Visible = .T., ; WhatsThisHelpID = -1, ; Width = (224) @@ -1428,14 +1541,12 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" AutoSize = .F., ; Caption = "Esta es la opción B", ; DefHeight = , ; - DefLeft = , ; - DefTop = , ; DefWidth = , ; FontSize = 8, ; Height = (16), ; - Left = (123), ; + Left = 11, ; Name = "option", ; - Top = (232), ; + Top = 283, ; Width = (110) *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optionbutton" /> @@ -1476,7 +1587,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" Themes = .T., ; ToolTipText = "", ; Top = (232), ; - Value = 0, ; + Value = 2, ; Visible = .T., ; WhatsThisHelpID = -1, ; Width = (112), ; @@ -1508,7 +1619,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" Option1.FontStrikethru = .F., ; Option1.FontUnderline = .F., ; Option1.ForeColor = 0,0,0, ; - Option1.Height = 16, ; + Option1.Height = 41, ; Option1.HelpContextID = 0, ; Option1.Left = 5, ; Option1.MouseIcon = ..\..\, ; @@ -1536,7 +1647,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" Option1.Value = 0, ; Option1.Visible = .T., ; Option1.WhatsThisHelpID = -1, ; - Option1.Width = 98, ; + Option1.Width = 112, ; Option1.WordWrap = .F., ; Option2.AutoSize = .F., ; Option2.BackColor = 192,192,192, ; @@ -1549,6 +1660,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" Option2.PicturePosition = 4, ; Option2.Style = 1, ; Option2.Top = 24, ; + Option2.Value = 1, ; Option2.Width = 103 *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" /> @@ -1586,8 +1698,6 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" Comment = "", ; ControlSource = "", ; DefHeight = , ; - DefLeft = , ; - DefTop = , ; DefWidth = , ; DisabledBackColor = 240,240,240, ; DisabledForeColor = 109,109,109, ; @@ -1614,7 +1724,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" InputMask = "", ; KeyboardHighValue = 2147483647, ; KeyboardLowValue = -2147483647, ; - Left = (11), ; + Left = 11, ; Margin = 0, ; MouseIcon = ..\..\, ; MousePointer = 0, ; @@ -1641,7 +1751,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" test_aa = .F., ; Themes = .T., ; ToolTipText = "", ; - Top = (292), ; + Top = 303, ; Value = 0, ; Visible = .T., ; WhatsThisHelpID = -1, ; @@ -1666,8 +1776,6 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" DateFormat = 0, ; DateMark = "", ; DefHeight = , ; - DefLeft = , ; - DefTop = , ; DefWidth = , ; DisabledBackColor = 240,240,240, ; DisabledForeColor = 109,109,109, ; @@ -1695,7 +1803,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" IMEMode = 0, ; InputMask = "", ; IntegralHeight = .F., ; - Left = (11), ; + Left = 11, ; Margin = 0, ; MaxLength = 0, ; MemoWindow = "", ; @@ -1726,7 +1834,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" test_aa = .F., ; Themes = .T., ; ToolTipText = "", ; - Top = (320), ; + Top = 327, ; Value = , ; Visible = .T., ; WhatsThisHelpID = -1, ; @@ -1736,17 +1844,15 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" ADD OBJECT 'pgf.Page1.timer' AS cl_timer WITH ; Comment = "", ; DefHeight = , ; - DefLeft = , ; - DefTop = , ; DefWidth = , ; Enabled = .T., ; Height = (23), ; Interval = 0, ; - Left = (207), ; + Left = 235, ; Name = "timer", ; Tag = "", ; test_aa = .F., ; - Top = (252), ; + Top = 255, ; Width = (23) *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="timer" /> @@ -2006,7 +2112,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC @@ -2019,6 +2125,43 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" ENDPROC + PROCEDURE pgf.Page1.Cl_optiongroup1.Init + THISFORM.add_control( THIS ) + + ENDPROC + + PROCEDURE pgf.Page1.Cl_optiongroup1.ProgrammaticChange + THISFORM.Tag = 'PC' + + + ENDPROC + + PROCEDURE pgf.Page1.Cl_optiongroup1.test_aa_access + IF EMPTY(THIS.Tag) + RETURN "ACCESS_OK" + ELSE + RETURN THIS.Tag + ENDIF + + ENDPROC + + PROCEDURE pgf.Page1.Cl_optiongroup1.test_aa_assign + LPARAMETERS vNewVal + + THIS.test_aa = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') + + ENDPROC + + PROCEDURE pgf.Page1.Cl_optiongroup1.UIEnable + LPARAMETERS lEnable + + IF lEnable + THIS.Tag = 'UI' + ENDIF + + ENDPROC + PROCEDURE pgf.Page1.collection.Init THISFORM.add_control( THIS ) @@ -2037,7 +2180,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC @@ -2070,7 +2213,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC @@ -2101,7 +2244,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC @@ -2137,7 +2280,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC @@ -2168,7 +2311,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC @@ -2199,7 +2342,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC @@ -2235,7 +2378,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC @@ -2266,7 +2409,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC @@ -2288,7 +2431,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC @@ -2319,7 +2462,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC @@ -2350,7 +2493,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC @@ -2393,7 +2536,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC @@ -2424,7 +2567,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC @@ -2461,7 +2604,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC @@ -2497,7 +2640,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC @@ -2516,6 +2659,11 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" ENDPROC + PROCEDURE pgf.Page1.spinner.Init + THISFORM.add_control( THIS ) + + ENDPROC + PROCEDURE pgf.Page1.spinner.ProgrammaticChange THISFORM.Tag = 'PC' @@ -2535,7 +2683,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC @@ -2548,6 +2696,11 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" ENDPROC + PROCEDURE pgf.Page1.textbox.Init + THISFORM.add_control( THIS ) + + ENDPROC + PROCEDURE pgf.Page1.textbox.ProgrammaticChange THISFORM.Tag = 'PC' @@ -2566,7 +2719,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC @@ -2592,7 +2745,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC @@ -2609,7 +2762,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" LPARAMETERS vNewVal THIS.test_aa = m.vNewVal - THIS.Tag = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') ENDPROC diff --git a/TESTS/DATOS_READONLY/f_form_aa.sct b/TESTS/DATOS_READONLY/f_form_aa.sct index c7184f0..00d851f 100644 Binary files a/TESTS/DATOS_READONLY/f_form_aa.sct and b/TESTS/DATOS_READONLY/f_form_aa.sct differ diff --git a/TESTS/DATOS_READONLY/f_form_aa.scx b/TESTS/DATOS_READONLY/f_form_aa.scx index 57c92cb..e6cd563 100644 Binary files a/TESTS/DATOS_READONLY/f_form_aa.scx and b/TESTS/DATOS_READONLY/f_form_aa.scx differ diff --git a/TESTS/DATOS_READONLY/lib_controles.vc2 b/TESTS/DATOS_READONLY/lib_controles.vc2 index 2a4a323..12c5f35 100644 --- a/TESTS/DATOS_READONLY/lib_controles.vc2 +++ b/TESTS/DATOS_READONLY/lib_controles.vc2 @@ -4889,6 +4889,2759 @@ ENDDEFINE 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.Cl_optiongroup1" UniqueID="" Timestamp="" /> + + * + *m: add_control + *m: run_tests + *p: l_activated + *p: n_controles_count + *p: valor + *a: a_controles[1,0] + * + + 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. + cmdCapturar.Height = 27 + cmdCapturar.Left = 764 + cmdCapturar.Name = "cmdCapturar" + cmdCapturar.RightToLeft = .F. + cmdCapturar.Top = 392 + cmdCapturar.Width = 212 + Edit1.Height = 356 + Edit1.Left = 764 + Edit1.Name = "Edit1" + Edit1.RightToLeft = .F. + Edit1.Top = 32 + Edit1.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 + Label3.BackColor = 128,255,128 + Label3.Height = 17 + Label3.Left = 764 + Label3.Name = "Label3" + Label3.RightToLeft = .F. + Label3.Top = 8 + Label3.Width = 212 + + 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.Cl_optiongroup1' 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 = , ; + DefWidth = , ; + DragIcon = ..\..\, ; + DragMode = 0, ; + Enabled = .T., ; + Height = (46), ; + HelpContextID = 0, ; + Left = 123, ; + MouseIcon = ..\..\, ; + MousePointer = 0, ; + Name = "Cl_optiongroup1", ; + OLEDragMode = 0, ; + OLEDragPicture = ..\..\, ; + OLEDropEffects = 3, ; + OLEDropMode = 0, ; + SpecialEffect = 0, ; + StatusBarText = "", ; + TabIndex = 1, ; + Tag = "", ; + TerminateRead = .F., ; + test_aa = .F., ; + Themes = .T., ; + ToolTipText = "", ; + Top = 231, ; + Value = 2, ; + 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 = 16, ; + 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 = 0, ; + 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 = 98, ; + 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 = 0, ; + Option2.Top = 24, ; + Option2.Value = 1, ; + Option2.Width = 102 + *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" /> + + 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 = "", ; + 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 = , ; + DefWidth = , ; + FontSize = 8, ; + Height = (16), ; + Left = 11, ; + Name = "option", ; + Top = 283, ; + 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 = 2, ; + 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.Value = 1, ; + 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.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 = , ; + 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 = 303, ; + 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 = , ; + 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 = 327, ; + 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 = , ; + DefWidth = , ; + Enabled = .T., ; + Height = (23), ; + Interval = 0, ; + Left = 235, ; + Name = "timer", ; + Tag = "", ; + test_aa = .F., ; + Top = 255, ; + 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.Cl_optiongroup1.Init + THISFORM.add_control( THIS ) + + ENDPROC + + PROCEDURE pgf.Page1.Cl_optiongroup1.ProgrammaticChange + THISFORM.Tag = 'PC' + + + ENDPROC + + PROCEDURE pgf.Page1.Cl_optiongroup1.test_aa_access + IF EMPTY(THIS.Tag) + RETURN "ACCESS_OK" + ELSE + RETURN THIS.Tag + ENDIF + + ENDPROC + + PROCEDURE pgf.Page1.Cl_optiongroup1.test_aa_assign + LPARAMETERS vNewVal + + THIS.test_aa = m.vNewVal + THIS.Tag = EVL(m.vNewVal,'') + + ENDPROC + + PROCEDURE pgf.Page1.Cl_optiongroup1.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 + +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="" /> @@ -5021,12 +7774,12 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" WindowState = 0 WindowType = 0 ZoomBox = .F. - Command2.Height = 27 - Command2.Left = 764 - Command2.Name = "Command2" - Command2.RightToLeft = .F. - Command2.Top = 392 - Command2.Width = 212 + cmdCapturar.Height = 27 + cmdCapturar.Left = 764 + cmdCapturar.Name = "cmdCapturar" + cmdCapturar.RightToLeft = .F. + cmdCapturar.Top = 392 + cmdCapturar.Width = 212 Edit1.Height = 356 Edit1.Left = 764 Edit1.Name = "Edit1" @@ -5731,7 +8484,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" DisabledItemBackColor = 255,255,255, ; DisabledItemForeColor = 109,109,109, ; DisplayCount = 0, ; - DisplayValue = combobox, ; + DisplayValue = , ; DragIcon = ..\..\, ; DragMode = 0, ; Enabled = .T., ; @@ -7436,6 +10189,11 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" ENDPROC + PROCEDURE pgf.Page1.spinner.Init + THISFORM.add_control( THIS ) + + ENDPROC + PROCEDURE pgf.Page1.spinner.ProgrammaticChange THISFORM.Tag = 'PC' @@ -7468,6 +10226,11 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" ENDPROC + PROCEDURE pgf.Page1.textbox.Init + THISFORM.add_control( THIS ) + + ENDPROC + PROCEDURE pgf.Page1.textbox.ProgrammaticChange THISFORM.Tag = 'PC' diff --git a/TESTS/DATOS_READONLY/lib_controles.vct b/TESTS/DATOS_READONLY/lib_controles.vct index 8a748bb..eca42c2 100644 Binary files a/TESTS/DATOS_READONLY/lib_controles.vct and b/TESTS/DATOS_READONLY/lib_controles.vct differ diff --git a/TESTS/DATOS_READONLY/lib_controles.vcx b/TESTS/DATOS_READONLY/lib_controles.vcx index 9df962d..713e6c8 100644 Binary files a/TESTS/DATOS_READONLY/lib_controles.vcx and b/TESTS/DATOS_READONLY/lib_controles.vcx differ diff --git a/TESTS/ut__foxbin2prg.prg b/TESTS/ut__foxbin2prg.prg index 3a5139c..5615004 100644 --- a/TESTS/ut__foxbin2prg.prg +++ b/TESTS/ut__foxbin2prg.prg @@ -19,6 +19,8 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg #DEFINE C_DEFINE_CLASS 'DEFINE CLASS' #DEFINE C_ENDDEFINE_CLASS 'ENDDEFINE' icObj = NULL + nMouseX = 0 + nMouseY = 0 ******************************************************************************************************************************************* @@ -26,7 +28,9 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' *LOCAL loObj AS c_conversor_base OF "FOXBIN2PRG.PRG" *DOEVENTS FORCE - MOUSE AT 0,0 + THIS.nMouseX = MCOL('',3) + THIS.nMouseY = MROW('',3) + MOUSE AT (_SCREEN.Height), (_SCREEN.Width) PIXELS SET PROCEDURE TO 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' oFXU_LIB = CREATEOBJECT('CL_FXU_CONFIG') oFXU_LIB.setup_comun() @@ -50,6 +54,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg oFXU_LIB = NULL ENDIF RELEASE PROCEDURE 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' + MOUSE AT (THIS.nMouseY), (THIS.nMouseX) PIXELS SYS(1104) ENDFUNC @@ -626,7 +631,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg STORE 0 TO lnCodError_Esperado SCATTER FIELDS PROPERTIES MEMO NAME loReg DIMENSION laProps_Esperado(7) - laProps_Esperado( 1) = 'ButtonCount' + *laProps_Esperado( 1) = 'ButtonCount' *laProps_Esperado( 2) = 'Value' *laProps_Esperado( 3) = 'Top' *laProps_Esperado( 4) = 'Left' @@ -634,11 +639,12 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *laProps_Esperado( 6) = 'Width' *laProps_Esperado( 7) = 'Name' *-- 13/05/2014. v1.19.22 - Reordenamiento de todas propiedades - laProps_Esperado( 2) = 'Top' - laProps_Esperado( 3) = 'Left' - laProps_Esperado( 4) = 'Height' - laProps_Esperado( 5) = 'Width' - laProps_Esperado( 6) = 'Value' + laProps_Esperado( 1) = 'ButtonCount' + laProps_Esperado( 2) = 'Value' + laProps_Esperado( 3) = 'Height' + laProps_Esperado( 4) = 'Left' + laProps_Esperado( 5) = 'Top' + laProps_Esperado( 6) = 'Width' laProps_Esperado( 7) = 'Name' *-- TEST @@ -943,11 +949,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg TRY loEx = NULL loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") - *loCnv.l_Debug = .F. + loCnv.EvaluarConfiguracion( '', '', '', '1', '1', '4' ) + *loCnv.n_ExtraBackupLevels = 4 + *loCnv.l_Debug = .T. *loCnv.l_ShowErrors = .F. *loCnv.l_Test = .T. - *loCnv.l_PropSort_Enabled = .F. && Para buscar diferencias - *loCnv.l_MethodSort_Enabled = .F. && Para buscar diferencias *-- DATOS DE ENTRADA @@ -976,10 +982,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File2, LEFT( JUSTEXT(lc_File2),2 ) + 'X' ) ) oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File2, LEFT( JUSTEXT(lc_File2),2 ) + 'T' ) ) - *-- Genero TX2 - loCnv.Ejecutar( lc_OutputFile, .F., .F., .F., '1', '0', '1', '', '', .T., '', SYS(5)+CURDIR(), '1', '0' ) - - *-- Genero BMP con libreria original + *-- Genero BMP con libreria ORIGINAL SET CLASSLIB TO (lcLib) ADDITIVE IF lcTipoBinario = 'SCX' DO FORM (lc_OutputFile) NAME loCtl LINKED NOSHOW @@ -1001,6 +1004,15 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg RELEASE CLASSLIB (lcLib) CLEAR CLASSLIB (lcLib) + *-- Genero TX2 + loCnv.Ejecutar( lc_OutputFile, .F., .F., .F., '1', '0', '1', '', '', .T., '', SYS(5)+CURDIR(), '1', '0' ) + + *-- Genero BIN + loCnv.Ejecutar( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_OutputFile),2 ) + '2' ), .F., .F., .F., '1', '0', '1', '', '', .T., '', SYS(5)+CURDIR(), '1', '0' ) + + *-- Genero TX2 + loCnv.Ejecutar( lc_OutputFile, .F., .F., .F., '1', '0', '1', '', '', .T., '', SYS(5)+CURDIR(), '1', '0' ) + *-- Genero BIN loCnv.Ejecutar( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_OutputFile),2 ) + '2' ), .F., .F., .F., '1', '0', '1', '', '', .T., '', SYS(5)+CURDIR(), '1', '0' )