From 1430bb11a7c7656a2dc6f54744bb54fd62e07c2d Mon Sep 17 00:00:00 2001 From: fdbozzo Date: Fri, 16 May 2014 17:31:41 +0200 Subject: [PATCH] =?UTF-8?q?Changeset:=20247=20fdbozzo=20-=2016/05/2014=201?= =?UTF-8?q?7:16:47:=20-=20Mejoras=20en=20tests=20unitarios=20de=20comparac?= =?UTF-8?q?i=C3=B3n=20de=20pantallas=20antes/despu=C3=A9s=20(se=20compara?= =?UTF-8?q?=20contra=20regenerado=20de=20regenerado=20por=20si=20hubiera?= =?UTF-8?q?=20alg=C3=BAn=20cambio)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- TESTS/DATOS_READONLY/f_form_aa.sc2 | 249 ++- TESTS/DATOS_READONLY/f_form_aa.sct | Bin 69301 -> 73475 bytes TESTS/DATOS_READONLY/f_form_aa.scx | Bin 3976 -> 4085 bytes TESTS/DATOS_READONLY/lib_controles.vc2 | 2777 +++++++++++++++++++++++- TESTS/DATOS_READONLY/lib_controles.vct | Bin 320800 -> 676256 bytes TESTS/DATOS_READONLY/lib_controles.vcx | Bin 31880 -> 46050 bytes TESTS/ut__foxbin2prg.prg | 40 +- 7 files changed, 2997 insertions(+), 69 deletions(-) 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 c7184f0febf42a7b424934d5cc2bbaa9548e54f1..00d851f34d3f3ac504bde6728b40ec2045b07d0d 100644 GIT binary patch delta 5286 zcmdrQYfMvD_@3S(P+MCBp%fVp-2gR(+ZGU+#)0U_5R3!e7Bekak&S09YIJi2voQ!D z0E z^k8kAMkX1!onlyK!u{A7-QfL~4LRA%>4_$G@WH~IrKaU{pBsD=v`Bq|2Hu>i&okin zLI>>e<)a^D5f$8C9S0wmt%6(cctYD}iMpf(DdBnQm8phR3-q~D!onhC5}70^b=JK3 zX^AokvPkf+?eQIJum~~c82&p(xqc2mWOPy)JdYrzXZS3_RfcN<)Nb~M+lA|i4$M1L zzDg$jE@8S@M$waaPu9gSj~GTJ1@7C4@Lf?lDS^gHKZrC=93$_$fQi6cj`4b9pc~<# z#d_0g2%%70RsrU3A{C-~2YJ;ZhN*_4F8_e~A~(E&(pJ<*n;V|_;OADP&FqY>df2vY zEHv+#CBK0`VHm4b%p~XMm|ld*YXgv8vOU%^k0m~8DizAH6d?@p0tEV&u?Q82Hz15h zTwsWj<_l3(VmP<94wcb(X2FPjMaiE|>drVj6<9*aad331?-R!qF`)uyVHy?g9NF!Wje)gwY7M5vZmVxY{&@CJ_Xy-^(OBAxfML=7+ySU`a1T^+dtG(*b;5>0~jv zIJ_SD+OlgzvDcx)Iy9;}w$@8IUK(%L;Y!pUeSGnZ5_eGqEnhB#-mY+G>>BxV6*Xi8 zEpDn@80k!bzv8PM3an${@LGRfSCuVsHM6wrk`Xul!Peu16r-XH_6RYefuiH3Ig}QI zQi>5AFX=}yDu_B>GBqE3_Tx(3VKX}3YtHmV9dDZaxbQ=})A@k>^;)y^* z(=`OH&kU(4rXcpoT`h7TZ~Xp~TU<_O7!e_)c?nsE1&EU0(%eC4^}+8u zy@(~3F`?DKhgbDOli9PVJ`_*XkOWlSD$Hk_D(67&pNdFYJ&(bZMQg|i#A(Gk4sn_^ zD-l17$u$shA*b0&5a7=jl6JnKN=}Fd78i%Xg=!BztL-bXRL99AX@#bof_zR5jT&!0 z@=^+6IZngBd-(+M#4^8_HU}I`yRx6`9$7NaroJ9YHhl%Qm%~?ZPo(k>P(`6jW$JUW)rfOk!XPm2fIQ4|&TT3w2*h=wExWP%GbVUHf z-?=K{IA|%=L3^VYy#3cnRvV>-LY+T9|L#VD)?jN7C6-iAG^?2hBjE7|lZSU4=(t}Z z|L>g_?FyrzxjfHVA!xL;ONo-`p=C_~*D7Lv?t6o`S5lXqMAxq4{Vy%-Nu3 zHChhtw;g!$4*uYUKrxBpTQ6mc2IZ|d5(TC!FW`+^uPkyzEyqx6s46g*`SpdearW32 z1g)RDKV<~_7jvy~72z1>l5oB?1AbfM<6|3NP>kMLlXW5uQR~a delta 4313 zcmds44Qx|Y6n>{aTUXY-uKTqc)7lj>sm@hWdaU~ znK%-bV|YRkHiKbC3~nzlhPXlSCn!M&AqW}5A_|6|QNkp^*gUsu>j)GQ6E*cFr}w;j z-+MjZJKsG&Z?`FSeW*}zkg$v6IA}_|26aN5IKu!+NhON`S=?nwEANgSS?G4T9F-+@ z%WStt7$@Y6wQJPjwP~d<`)DzLbT0Zgq-5m}+L~Kl;wz&)yKT?|*fcW*+r$j1VMxy+ z(1}`rLag8GLeGh5aW2cU>7}pDaa3T_m83-Ysqb39AOo_loqpP(E-^jB_pY3-N09W9 zurY`BG&Dbr9b1z`K@NH1=1iCl7Ibv$wK{J0b>MEuIc;x`<_5=MUH4=7+mhLkg|@~t zQKJN{SYm)=J~sFo&P4BO2efT|MB3t&E8$b@61xYP*7d<&z9DQ`jf~@J&|j5mpvR7< zE9sXRx0qQ?qo3wvnoppA_gj%oYQ@F16Zs1RkMt|J$(7~4(O7*o3EfpHGBv9)A9q$I zTW--E3~M~eFnYB!_<9{(uO_{oB$M<22xe9*=&)-`63*}x-UXrcZ++d!0Jh_;mByh} z?60~0Ab>-`D;u|j8y)~LGDlBq4id7HW8dl>k|QK4k|89&lQ2(cX&&SWY+mJr-BPu` z0C0Zw9n~VYtJq!aejUdjn<{Nv{e%Ke-Q%UT(!835pluGjY9ldcqnwdw<;;+uJmfw$ zw6w=;>lAGoNJ4(CD>7EEH0-_g@BnX}s-2ttFi-tJe;oGIMtOj4Z>)2wqnmDeY0Bnr z0bJOzt?4el?d2zj{a_{N*3gm3|5!nvogJA%#t9lNG&4RUo#z)Kd!dWp&+ZPhErE_p zT7YFwS@zL-9EqBwi^LRU6l2vy(u+ybNe?iLnWC3|ZMZ0lHoGV6G)Rq&XQIt+X~NFt zC=aW8T+sT}|0J|}4l1NkU%I1>MS)Z6IcSkb+o@&I#{1o-sQca&ZSdTWMNo?etm)E% zjxI>AC|~NMEUZye$@Xd~m3qMiTyf`dsq)x-IdoE5UXKeeIPS^@|3zv((#Z;`Q?--O za9W$)OTj;ZgcVX*lnu&BQb=csXAS8cl%s}{9>@>_=~+zBLILhMZGpqm<#jw@>K|$N z(lK7jJkz2O=cU47+E-(SjC8g2F*6Ye;p$IQ#-Xgh+8%7VWL@~EOL2CV-i z8*g7bA8)kTOd9pG4zIJk5^c@n&~*Kf(r6!RH=(~zkWzZq0r>9g)aBTAC6=EOE^%x` zA6uxzsoxzcaYoY@W@8V{jA`#bxGV7Di?wrP7dYJ4sVDBPy7egTzp7=vG(_@cfUh=W z0Cl&E;Bx{v3-FuXvLMKKoO$Pff&s;pzLQF0j@@dK{Cx%)c<(8o|6x$=wSz%XcVmcD zGY3I2LQ=94S14f~w6Q3Jc+`&jm&WSsd3N$#uopGjt@$QVh=F1_dEe%T0gFk5>ae@Y z$RA~_z04jpf;<-}M+dqWj^k;MbtX4SLZesC$+_n_E@F%66-!iLXr~@Jo4u4Pw z6aZS*a#jT(lR>ZeiyC_V3Y=m?JP2a#5QxK9c9d+0hd6OnJh*vX7{^UA{$_}FJ;!6n zURGJNu8@r)+D@f8mo+(ckxT3C;-&;xnLdEHzhA=@RxI>5oTYXP>q{qzRvz^5rZ|;{ z49F6lJUlm^HFTkPY9W0YNhqFfBAqdw#TM2JpC#Q-l0|v|F*8{YYs3QvC@7fVEq7Fy c1*=&YV;1tvf-RTCW)|#Y%|Z^Xs~>v9pV%FulmGw# diff --git a/TESTS/DATOS_READONLY/f_form_aa.scx b/TESTS/DATOS_READONLY/f_form_aa.scx index 57c92cbaf1cf95b4d127dc0ef1549a5d4a36c4f8..e6cd56356ce7d5710079580496980392370de606 100644 GIT binary patch literal 4085 zcmeH~duSY07{$Md8?#MSN^3zwDr-TCe}wKU$p$Pq*_~#`-Mh2hnN3o>vXl)QA zMoFkIf~cUC#nvRWzM?6V7A=j%){@$$1*JZ)1n~h`c~4{MQ4& zZ@%3#bI;y+Z}_s>MU6xh4BUh2RLw<1`K)ZL)(Q+xQbGwjSD|7~T~k!l6!#aP)K~b1 z$`sv@S)M4j#KTW!WnCBBuw_^VDz-QMtd_*r>}n6cUDlQI80;DkUu(Z1Co_eQ%C7bB z^KwDS8Qdn;V_6;RzDA)n4*~4dwk=9b?3|X6pkKdQnQsVcmGJWSB z(6XinhnVcOeO8Hb6EbJ%+?uGM=t`keN#VCM6)Vl=V-Us<@@#$#{+cR&9DcEikA1_| zRqZQ7Y$mscHRRLP?D=TnQol_THYJdqWP*Y4_Cp z``V!{HJ8%5^w9cvR1Iq^+tC(@G)Lp%M7%9_MR|agSgtPj-BkwNSN0ChvW`7W39B8k zF3k!%ij6)3--C1I0fM;gaV^HVQ3{!@qx`ng@zL?Y8CHzNGMzju(i~}t#`G}JZJ-}K z0ZL#D%va8^e`Y4ahBt^|$FZCMQ{cPuck>CX2-DN)R%>Qo-6@9r3Cr_f;ax;cV7_vO zWfHn!?nZHfJc;Xg6dV92z$f4g;Cf~=(cb$+@3&TjB~#&|b%K<7iQWK{;A8MLI1jkC zKR{IM6TRQ+4ztZH@DS0JAPQ2T6KnxoFJbxK!=m?F-Ct+T?CFB07Z?gv9)1WW*~ z`Vm}vqoVg)-C;LcVPEVd`UNc9MbrqIKpJqJcp0~_S4Ho)y22u1D{Od-Xb+eIr@=Qs zdR+`XI8OA}Zoe^NJ$G2d3N!W)Z2$w{X)p{90Isud61}!x^nR;5ENX>yP7vJ<9s%3H zE8tzg)$lgabq7W7x4Oe(R@m})aE*ZsSPOcpmcC7em7 zBDS#DS=@j@H`oFOz;?hT|A71EkD~WmE5dS_gzcCu{h4S5xE^TWX3z(?cKnVr^bgVd zt?n?}F{}F%j~EaIGRT8XfGa3TG+85w4?e3q%zP~nPwL)UiME0rU<|wkP64j|izT|F z?!Sa-g{;b~6Xe&R7%Z?rqNQL3Xa`)M)k`#U$^64`Hg>coY>$|_MG`FoEkFggfPTQm g8YHT3oMYI9*Y6Ae*X-}#=BO2A;;Oj?*f($Z8)4YdrvLx| literal 3976 zcmeH~e{2(F9LArHEpCD{3yC49Nzssq5$TV0%ovHKJy>bqUg=#|r&)+GntLI2ziqy)5FwPR?(ZO=c?#j z8_`ikZ=v2w z&62H#SzJcBK_29D{5W}y>?23W2_j?d8er?as`i@8%wq9C&fXvo6o5@+2YHtqC8vmt z-d^C^hg9t~yUj{wcJg814Dmez%qH{6%|u3l?Ur?__L|*hd3$Detq0bV7szgMfSe>U zp4tf9zgg8@v)k+z+ic+zK%8`v`^ckY2a&P$d0_cAReQ~Dvku#A{6)T}yadc6EhI_0 ziHr|k2CjQW)n2pP>{i=s-A*nSd4n7xLu8c5=-CCF?pL+f>@o`mY_sckb3>30(nEU5 z(?mwoo503Bs`i@QW$mwZlbUxpIPsGkiHtS-fUEYa+G}>3g>19I1HcG5PZ|ya zb4i5Ac#`ewAFA4GcAJH5v&|m?+sIyWgba~UBID1)+@VLU(sOc~HQQzb1N@00W8^%k z`YI0eUTchnXN|hq) + *-- 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 8a748bb42a383bbc05caee5ef67ec824c53a3090..eca42c21fbbeb46209342738f25d30607731267a 100644 GIT binary patch delta 23581 zcmeHP33yc16@GWgHes@FGbA#Buw%?*NCI^SDN%$FQNb-CKnPJtAOsLmDwT*E8hnNG zK~=yFmjY30A1xLLt89VrDK3pILFosT52bCi@k7&d-^;9-nam)zOqlt;Gw;s4d3WAB z=iGbG`Oi6b&Hnf`uk;U-bcJgqNdog>YFK2dF_9V*tue9JO#GyLJx_!;tB3*CALQNS zltWPo5mSq&R#wd@E-Arlh$KavwBWdNfpFyAPLBh;`<#S7_OLg7w-=(%TF5OyLGG(%I<9a@t=wnHv)GXa7S){e0&9E$o zC&RlNxXEyToFwf)`UtOi1L<>YSH(+G6MVIS_k_aLyf{P(n>@W3daULdeRx?_`4s#a zKAjXke0s6?Xm0;(e|&|M^Yc0K$N!3we`tx4TfU8k2g|Ux-DUh+S@+=;@;tp>e3MSe zo$|SaiLhWQ{{cd$@_0B?%8iiJNMjS(%(AH+dp1twbs>}(p}Ck3h2oLCSuO|*Rchk+ z--$f$r35(J3q>-r2k8OpIPb0`PT((aN;bj5e14C{$VbQX>)_Gfvfhvt&I=%mAcwyy z<~cCM!pDO-l#hU82UtHixtHAmyYAzUMTSdv+&rS9WYYA~L0~$`x|3P3Hj^ZimGI4% zEV=htyiJYcH&>KbUn6*f{5MOpq@z+g5j;;P7I?gfUwLx^o*IiJeiMo`AL&`72&8bN zO-K|^>hUP#*caQCNa8w_jPw+?-#|)*b2-S+72{9|9~p-%+Y`;=;Klj)_69yS=*Mxh z;1UVv3mu*i*)(3MypKOe;GQOWEgb%y#)u1y%HQ(&)=)}Mc;}O{zl9YM!EwkL=9XDw z2!XW|=~-AXoR8{+aU*?V9I~+|SwsXA)5#*KUR7cli=JP@p?WbyD|0X4$TK0Hm6NZ$evz z7SO9<<{WArvI~W#Dz%g70HU02Wy3h7UpiY11L3;=pqe|ISN{jIVen5d8)|V;u^MFW zVVmRP5`{-$koCv*ETlwi3xn(#Y=4SoLz-qbjITn zr`WD=O5XEMsM{LMEiC7O5OIFAn-uGozd{FFq`^a%OdTWd*F|Xsc$N zU^@b2#e&c{TypPy0LSzPqfz-Q#G5daX-JO4qNU)X)r9L+SC(f@?>KpSZ=-DZFj`)X zew^wo{GowuMklOmI#oI;9NpdO@)@O7@XiEcf_3|u9-gYiH+8k%s;<_S6D(WUl3@_J zpH-7)o2NAy>Kbq%zhN(0#pr3h0z;3nNVu(t_lBAxo&Y-!G9xHOxKh-8z)Y&E3t4+v zjGVM8Ughql=%XtMrF_L=G-OM5vp#U77te-XyO{;H?`9DYxd-2#+QUlVhJ3EGeK!~O z?PkNER$L)q0@z)Tw@~|6^z;|+U`dd=gB99+T3EG%Wx(k#S(Jm5b{917WZgq&&n_>k zcuTZRhBlnzgq5zB(A%F`QdXLsDV*HV1nPD&gZbAu@--u#pobSE-A}%;!iNL% z1lql*4_+j$WJn{Bo<<5m5-#u`#Su?hXWU$DFGRA=xG!USJ5n0{PPhuEu-%H3j%}$w zQX9m6jFyp-Pom(tQLGy*UqRXxH+dV|Kw*C=kCWGhM=_e6Bd0ec$QzGD#o5sd>;k)! z7R$%yrpwRG)5$lqCgU+(ZfNW$F6#vK(NQPVXSyTEb9?1X)3qkc&}_ZV@#|Ylr&iokGO?Lj7N#jd#I$q`3KXm++?4J|nc<+8WF76oXv&-Um!{Es;aQe}O7~f7EbZX%$TU*!} zRpvPiHXg$%J8L23@azbl1xs33p6sK^Cm5q3UYSIMg*;s-Y6ew1TwaS^)t_WncVav_ z-M7CMiZ6ffd98O;hYMLB;m8N=JYI zB?tZY^#=XxY>|)Rj@W-{cl+5)Ys?^Xc;)mtGb(anYZ?E+8WYIy_DgM9_8c%satIhW z-jDAQgCr@z;Z8C9kU16&9&20~w2;D5K!N7xu zz{3^pRZ?T*Wf+feubB#%`S?Hq)jC>vUWMFM;uanxm!83E0tM>rU_*PG<$~c29_x)i z(ocwbqK93_c zAc?ScB+_Xlp(`S5)j?O_-X?mDJr~;t^oHXg5-$ahV&0JL zlb#o?UFSY8z3+C>m2E^vseL=wZ`j6m-(jvAD6-SvM~Xla+3C$l!nGA+T+mI}o`jTw zZB^s4)G4ha3hX&e{jz74=M;yaCK)=Q((Rdw9@FcC6PdpgnI9Q2fo+PU!k-3U)|_*B z0i}8ef?mt!p@sCYd$OI2~=Y zawKb-@nUQ@qU|Ztj2%6N2~|lh6&}a!6&~`SCCT#GM^cp5Q|yZ{IQS+Dmur_Mz{zje zo0P2gM>=W&$R+Rnw@bsb_wO&uMRvE1<(l{JIW1DZ`j?dz)#J(^D#cvrAz)6$^2pK? zEKhGX>vdYLb@mVoY&gL%Zz(u|c+MF$I#jiQC6%Yb`3N2fFXfURw#qe_{~6mz&1PlL zUsx1jmMjYt9%Uw_xQRW3xi{-I$nB~;EJ?tEg+g1cz1K--GGH`2EZT333*otZ-;fH| z8ix|Cg8y}`g1b0Mf;qb}!$#vZPa+9GML<07BJD#G z=$3E=&m!eu&%#3$)6Cu27W!?#wmPM>>$khSTN<)llZjlLJ=Z}b8;-Dgolx)5B~@kR z6;N^>t3+xW+560rou{Bc(l9mPZBMfBgf(9BVh}<>c+Fwf_b!IL$YHA(&S2YuY>&mG z5W@s)3y{&~k!xb;EU)<$t?nlkcUQo=pU~*+oE*Kby>cVlk^^b`*(CC5M>t@{PSrV1bt<10m2DLLnw}TMdL|<6}HOF4c>srDqCSun$ZeLwu6u^TuK#qWRg%) zM?6whz-cO0?I|UjlJlJwAq}^quGZot*FvNi7H50(R(#x64b5r!C=_o=Jh~8ucumBU zNq8Kr0g=w7OWtrDUyGSq)xYUb%rvsSnCW5lJ_Pd9v6#tG^~8=IeiSo_Y9gzZk%{fO zNLDLj6}C4cS&NyDWBVLZy13K+NUa)LWG^y^mtl4^F^ihYbQ-bWW_zrH+*B+oQ-<(< zRx1S13dv>WY>P|=_k-v^lT4OvF~ic+Y^%IriE-0IO=F4j&R6VP5@OEP>k8z$Ek?NO zRkj5don_1D&>^twHI@n6vnZF_o(We9zGh2_lTp)0UixG#q@H6*BwHT%Y$n`ti0h%^ z9K%>k`+|Ta4?FETf_ty1>%sI3uxvUB$z;Hz$$VS97RqUBvu{DsXL%t{Lufv;h4okC zHJR3UjhG>_klQ1X1g;m2G!@%!Ch17Yp~%1`xEQQI2yQ(T+49C`@2%4dq`AY**djz>jE#w+-anRQ38FDF_I?@q*?D#{FMNm2{xw4EunJ z2e&BlzD1GG0Crd2=*Hv5MSg+IfiWNatU&O4p1?;JAXwdbRRbQO)WV;(!@0IyYR32k z-u6O|-5Yqj$OR8m!P}v}fVbCT&sOkOC)4gfnh#$7=rvoYL@B zx12J&uA* I1AMpq7ev2Qn*aa+ delta 34 qcmZ3mSaZQCVRiSTes~o#886LqNQ3bA}B3~mdiDihBoP@ zjX91|T4G2_4fmL8rUa*ssVYh;N(?m~!~MNkYwxwY?s-0+uXpdY-~ZZsP0v~~>2_FA z@k3f%q!u-2rS{)_{e$0&@MraX!+(ERg#R9+df&gFJsxq!zx21?uXM)h>Gu0fXT0T% zeFoUe4?1JB4Ez03XRJKXem~I}uQ_9{LH6=}&e&wI{r)RwtoW||eylTIa>njM?BzQd zYmBIy-*ITNr8b~*^SCZ)$!T5U3jcVr<4ioWv!l z%1P5?T}KtJuYQCRPIbe%oi)kFUYx*hFkZI93trXa_3qwqYd2i}bxoc`Q?x@*jD)JC zj6d`YhW(l8(Xj<@XtD!8<1(bTCRL&8XkSgXrn~cRF@M}3O=cn=J8&E~psHkqCJR4s z=l2;99ou=dCIc`5GqD`Ip{nW_O>)Kt=R13%qq{Ms<1~4Aye5yMKAyv?P<3pgCS50a z!=2o4-p873!cqK+n~2G@!`V|ciTpGe_Akwdj_s4J$#7(09`djYs_uQR$#*&K{K^Bv z>)Pk;JF_(T0MoD#t5FD5f1b@Tm=jDn+ZS@;C(hI4Mf5;F3_~_l{XAcj*A{rg-Q4Xf zSg6VOIEfP6M9d;PT(p=Y|FtLFDb5YAUaHA9{DczRK=d*@++n#U`&M|v@hTjjoRpB1 zR4bp;AMNovGB63MBG+niXMHg2Z!$PKcHKrz4&XfQqQWLk>Os|mU0lz5-1%QIKm7+y zKE!k^!5SQds_FaL%EI7$d!KfC-rcf(hd3aZh6PxKeNg2)%1L|78-BqJ4?D@0U_Mr0 zBaT7UXJ{1eMsO0%DG_ASi-mtdr|Bx z8*@>UDW$zlfacuR%>M{}YupAq4463q5>N0YaJ72ZmCS!F;Lw}6MXIKVR^D}knG1Z-~ z+HZK4F0pt9X?PoBq3U2Zhs7V9@9ajW{i=;wG+mcKTPWx5i zKC^Whjx5YW9(F-ht9iO?%MFIh+VA5FbZLN==z=~N162i!bs6-vJKt`<>RYNW(y~mAceKeYAqAFYl@_N(@3{%u{h z;snm)2BPoS;UkQj{uK;6?N_DR-?L}*Vtg0lFxOeu=mEVe%m}oKKek^LezTn2EeA7> zLM9fKQvtjE<~ZGS2_3TV)#g0Pho>gRr6e{=xb~PSVWuHfaGKYun)6y!`xrwG*S24) z_u-Y9i}+-B*<+PWe_Frlv1uVsyIFib58vT?9LBliz&C6DLH!~s9Z$E{ah~xe^Z|y{ z9pKJ6!JHZy_M8Tc&!ROlGJPcnYcxyl2SO_wC)6n-SB% zdBjya?w`XAxqxziC4yS`FQ_{4p&?(4c4HykwZ&LNy5l`eL=Fm|>Kvmv&W*KEcS-ws z<xMcB9Y+~jqJTwWiT8{@ArP~(|a9i4f9HzXf> zaT1r{+i0iWVw|`sm}(HxP6uo;ry->@8epsLC?4(fI{7Sc#B?KI>*D(&JtKs?$( zRkgi_%-k17*@@G*j0dP1X1A0>x+$NSW?2Wz&0zn9 z^vh?%O=*X>F%)Ak8>)Ion9`zwNCg`bU9Tibhp6cYHD2j)FcjH*w&^ zCs~rk#3ks-YgLDx;7_rpyxGWJiCR91&qrfZ3wPP{B&+Ok)n0LeyW$!xO=*CZ=!7@% zUd!MwsbdGq8m`(GDRKQq*=rrnI04hJdXzWtiu(;qN85q*jJt6Jw?_v9N%l9q>IS-w zF(n=2F&(*B302)En)3cfDr`T<+Tp;3#m{?rvMGHr7TK7O4N&#UC#HmFdBO?Ke-PES z6?|sOE)?N+=zde4fT~W68PmMskVDk&b5nX@1SVq!3ZSb098=ondc%S9l5f_(G^HAz zMr*u|5m1$pXG+Z#-tb@C9ky!~7Xt2}LcS@r&5p-khK1M! zRnM>I*lzHKTex9kqbZeu?AbQA0<##_Y9x?;t3}ekGXQyuNs>U}*vuZd@RyUQA-`TW_HDyv@3iUTc+70+VQ z*Vu~vIEBl-%YKD3IdH8r`D~88#%qjWGdLnhm=QX;rL+A^t~1k~+=#ISI^q49Ws_CI z=Vt`|a>3+7vn(lw%(f&NkE1?R9hq;*?Y}vD+K6z%fyo#(Npal03vx#knswZ|^a$=7s+}?TmNgE$p;{lFkp*I}3 z)ewH_uq92<32)(jWIHvgTx-$$XgsKrx}o1)0%c`av!C z