romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changeset: 247 fdbozzo - 16/05/2014 17:16:47:

Browse Source 
- Mejoras en tests unitarios de comparación de pantallas antes/después (se compara contra regenerado de regenerado por si hubiera algún cambio)
This commit is contained in:
fdbozzo
2014-05-16 17:31:41 +02:00
parent ef9a53dcd1
commit 1430bb11a7
7 changed files with 2997 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

249
TESTS/DATOS_READONLY/f_form_aa.sc2
View File

@@ -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.textbox" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgf.Page1.timer" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="pgf.Page1.timer" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgf.Page1.Pageframe1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="pgf.Page1.Pageframe1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgf.Page1.Cl_optiongroup1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod> *<DefinedPropArrayMethod>
*m: add_control *m: add_control
@@ -149,12 +150,12 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
WindowState = 0 WindowState = 0
WindowType = 0 WindowType = 0
ZoomBox = .F. ZoomBox = .F.
Command2.Height = 27 cmdCapturar.Height = 27
Command2.Left = 764 cmdCapturar.Left = 764
Command2.Name = "Command2" cmdCapturar.Name = "cmdCapturar"
Command2.RightToLeft = .F. cmdCapturar.RightToLeft = .F.
Command2.Top = 392 cmdCapturar.Top = 392
Command2.Width = 212 cmdCapturar.Width = 212
Edit1.Height = 356 Edit1.Height = 356
Edit1.Left = 764 Edit1.Left = 764
Edit1.Name = "Edit1" Edit1.Name = "Edit1"
@@ -829,6 +830,118 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
WordWrap = .F. WordWrap = .F.
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" /> *< 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 ; ADD OBJECT 'pgf.Page1.collection' AS cl_collection WITH ;
Left = 218, ; Left = 218, ;
Name = "collection", ; Name = "collection", ;
@@ -859,7 +972,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
DisabledItemBackColor = 255,255,255, ; DisabledItemBackColor = 255,255,255, ;
DisabledItemForeColor = 109,109,109, ; DisabledItemForeColor = 109,109,109, ;
DisplayCount = 0, ; DisplayCount = 0, ;
DisplayValue = combobox, ; DisplayValue = , ;
DragIcon = ..\..\, ; DragIcon = ..\..\, ;
DragMode = 0, ; DragMode = 0, ;
Enabled = .T., ; Enabled = .T., ;
@@ -1368,7 +1481,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
DisabledForeColor = 109,109,109, ; DisabledForeColor = 109,109,109, ;
DisabledItemBackColor = 255,255,255, ; DisabledItemBackColor = 255,255,255, ;
DisabledItemForeColor = 109,109,109, ; DisabledItemForeColor = 109,109,109, ;
DisplayValue = listbox, ; DisplayValue = , ;
DragIcon = ..\..\, ; DragIcon = ..\..\, ;
DragMode = 0, ; DragMode = 0, ;
Enabled = .T., ; Enabled = .T., ;
@@ -1418,7 +1531,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
Themes = .T., ; Themes = .T., ;
ToolTipText = "", ; ToolTipText = "", ;
Top = (164), ; Top = (164), ;
Value = listbox, ; Value = , ;
Visible = .T., ; Visible = .T., ;
WhatsThisHelpID = -1, ; WhatsThisHelpID = -1, ;
Width = (224) Width = (224)
@@ -1428,14 +1541,12 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
AutoSize = .F., ; AutoSize = .F., ;
Caption = "Esta es la opci<63>n B", ; Caption = "Esta es la opci<63>n B", ;
DefHeight = , ; DefHeight = , ;
DefLeft = , ;
DefTop = , ;
DefWidth = , ; DefWidth = , ;
FontSize = 8, ; FontSize = 8, ;
Height = (16), ; Height = (16), ;
Left = (123), ; Left = 11, ;
Name = "option", ; Name = "option", ;
Top = (232), ; Top = 283, ;
Width = (110) Width = (110)
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optionbutton" /> *< 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., ; Themes = .T., ;
ToolTipText = "", ; ToolTipText = "", ;
Top = (232), ; Top = (232), ;
Value = 0, ; Value = 2, ;
Visible = .T., ; Visible = .T., ;
WhatsThisHelpID = -1, ; WhatsThisHelpID = -1, ;
Width = (112), ; Width = (112), ;
@@ -1508,7 +1619,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
Option1.FontStrikethru = .F., ; Option1.FontStrikethru = .F., ;
Option1.FontUnderline = .F., ; Option1.FontUnderline = .F., ;
Option1.ForeColor = 0,0,0, ; Option1.ForeColor = 0,0,0, ;
Option1.Height = 16, ; Option1.Height = 41, ;
Option1.HelpContextID = 0, ; Option1.HelpContextID = 0, ;
Option1.Left = 5, ; Option1.Left = 5, ;
Option1.MouseIcon = ..\..\, ; Option1.MouseIcon = ..\..\, ;
@@ -1536,7 +1647,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
Option1.Value = 0, ; Option1.Value = 0, ;
Option1.Visible = .T., ; Option1.Visible = .T., ;
Option1.WhatsThisHelpID = -1, ; Option1.WhatsThisHelpID = -1, ;
Option1.Width = 98, ; Option1.Width = 112, ;
Option1.WordWrap = .F., ; Option1.WordWrap = .F., ;
Option2.AutoSize = .F., ; Option2.AutoSize = .F., ;
Option2.BackColor = 192,192,192, ; 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.PicturePosition = 4, ;
Option2.Style = 1, ; Option2.Style = 1, ;
Option2.Top = 24, ; Option2.Top = 24, ;
Option2.Value = 1, ;
Option2.Width = 103 Option2.Width = 103
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" /> *< 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 = "", ; Comment = "", ;
ControlSource = "", ; ControlSource = "", ;
DefHeight = , ; DefHeight = , ;
DefLeft = , ;
DefTop = , ;
DefWidth = , ; DefWidth = , ;
DisabledBackColor = 240,240,240, ; DisabledBackColor = 240,240,240, ;
DisabledForeColor = 109,109,109, ; DisabledForeColor = 109,109,109, ;
@@ -1614,7 +1724,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
InputMask = "", ; InputMask = "", ;
KeyboardHighValue = 2147483647, ; KeyboardHighValue = 2147483647, ;
KeyboardLowValue = -2147483647, ; KeyboardLowValue = -2147483647, ;
Left = (11), ; Left = 11, ;
Margin = 0, ; Margin = 0, ;
MouseIcon = ..\..\, ; MouseIcon = ..\..\, ;
MousePointer = 0, ; MousePointer = 0, ;
@@ -1641,7 +1751,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
test_aa = .F., ; test_aa = .F., ;
Themes = .T., ; Themes = .T., ;
ToolTipText = "", ; ToolTipText = "", ;
Top = (292), ; Top = 303, ;
Value = 0, ; Value = 0, ;
Visible = .T., ; Visible = .T., ;
WhatsThisHelpID = -1, ; WhatsThisHelpID = -1, ;
@@ -1666,8 +1776,6 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
DateFormat = 0, ; DateFormat = 0, ;
DateMark = "", ; DateMark = "", ;
DefHeight = , ; DefHeight = , ;
DefLeft = , ;
DefTop = , ;
DefWidth = , ; DefWidth = , ;
DisabledBackColor = 240,240,240, ; DisabledBackColor = 240,240,240, ;
DisabledForeColor = 109,109,109, ; DisabledForeColor = 109,109,109, ;
@@ -1695,7 +1803,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
IMEMode = 0, ; IMEMode = 0, ;
InputMask = "", ; InputMask = "", ;
IntegralHeight = .F., ; IntegralHeight = .F., ;
Left = (11), ; Left = 11, ;
Margin = 0, ; Margin = 0, ;
MaxLength = 0, ; MaxLength = 0, ;
MemoWindow = "", ; MemoWindow = "", ;
@@ -1726,7 +1834,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
test_aa = .F., ; test_aa = .F., ;
Themes = .T., ; Themes = .T., ;
ToolTipText = "", ; ToolTipText = "", ;
Top = (320), ; Top = 327, ;
Value = , ; Value = , ;
Visible = .T., ; Visible = .T., ;
WhatsThisHelpID = -1, ; 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 ; ADD OBJECT 'pgf.Page1.timer' AS cl_timer WITH ;
Comment = "", ; Comment = "", ;
DefHeight = , ; DefHeight = , ;
DefLeft = , ;
DefTop = , ;
DefWidth = , ; DefWidth = , ;
Enabled = .T., ; Enabled = .T., ;
Height = (23), ; Height = (23), ;
Interval = 0, ; Interval = 0, ;
Left = (207), ; Left = 235, ;
Name = "timer", ; Name = "timer", ;
Tag = "", ; Tag = "", ;
test_aa = .F., ; test_aa = .F., ;
Top = (252), ; Top = 255, ;
Width = (23) Width = (23)
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="timer" /> *< 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 LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC
@@ -2019,6 +2125,43 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
ENDPROC 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 PROCEDURE pgf.Page1.collection.Init
THISFORM.add_control( THIS ) THISFORM.add_control( THIS )
@@ -2037,7 +2180,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
LPARAMETERS vNewVal LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC
@@ -2070,7 +2213,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
LPARAMETERS vNewVal LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC
@@ -2101,7 +2244,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
LPARAMETERS vNewVal LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC
@@ -2137,7 +2280,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
LPARAMETERS vNewVal LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC
@@ -2168,7 +2311,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
LPARAMETERS vNewVal LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC
@@ -2199,7 +2342,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
LPARAMETERS vNewVal LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC
@@ -2235,7 +2378,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
LPARAMETERS vNewVal LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC
@@ -2266,7 +2409,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
LPARAMETERS vNewVal LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC
@@ -2288,7 +2431,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
LPARAMETERS vNewVal LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC
@@ -2319,7 +2462,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
LPARAMETERS vNewVal LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC
@@ -2350,7 +2493,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
LPARAMETERS vNewVal LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC
@@ -2393,7 +2536,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
LPARAMETERS vNewVal LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC
@@ -2424,7 +2567,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
LPARAMETERS vNewVal LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC
@@ -2461,7 +2604,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
LPARAMETERS vNewVal LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC
@@ -2497,7 +2640,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
LPARAMETERS vNewVal LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC
@@ -2516,6 +2659,11 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
ENDPROC ENDPROC
PROCEDURE pgf.Page1.spinner.Init
THISFORM.add_control( THIS )
ENDPROC
PROCEDURE pgf.Page1.spinner.ProgrammaticChange PROCEDURE pgf.Page1.spinner.ProgrammaticChange
THISFORM.Tag = 'PC' THISFORM.Tag = 'PC'
@@ -2535,7 +2683,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
LPARAMETERS vNewVal LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC
@@ -2548,6 +2696,11 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
ENDPROC ENDPROC
PROCEDURE pgf.Page1.textbox.Init
THISFORM.add_control( THIS )
ENDPROC
PROCEDURE pgf.Page1.textbox.ProgrammaticChange PROCEDURE pgf.Page1.textbox.ProgrammaticChange
THISFORM.Tag = 'PC' THISFORM.Tag = 'PC'
@@ -2566,7 +2719,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
LPARAMETERS vNewVal LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC
@@ -2592,7 +2745,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
LPARAMETERS vNewVal LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC
@@ -2609,7 +2762,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
LPARAMETERS vNewVal LPARAMETERS vNewVal
THIS.test_aa = m.vNewVal THIS.test_aa = m.vNewVal
THIS.Tag = m.vNewVal THIS.Tag = EVL(m.vNewVal,'')
ENDPROC ENDPROC

BIN
TESTS/DATOS_READONLY/f_form_aa.sct
View File

Binary file not shown.

BIN
TESTS/DATOS_READONLY/f_form_aa.scx
View File

Binary file not shown.

2777
TESTS/DATOS_READONLY/lib_controles.vc2
View File

File diff suppressed because it is too large Load Diff

BIN
TESTS/DATOS_READONLY/lib_controles.vct
View File

Binary file not shown.

BIN
TESTS/DATOS_READONLY/lib_controles.vcx
View File

Binary file not shown.

40
TESTS/ut__foxbin2prg.prg
View File

@@ -19,6 +19,8 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
#DEFINE C_DEFINE_CLASS 'DEFINE CLASS' #DEFINE C_DEFINE_CLASS 'DEFINE CLASS'
#DEFINE C_ENDDEFINE_CLASS 'ENDDEFINE' #DEFINE C_ENDDEFINE_CLASS 'ENDDEFINE'
icObj = NULL icObj = NULL
nMouseX = 0
nMouseY = 0
******************************************************************************************************************************************* *******************************************************************************************************************************************
@@ -26,7 +28,9 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
*LOCAL loObj AS c_conversor_base OF "FOXBIN2PRG.PRG" *LOCAL loObj AS c_conversor_base OF "FOXBIN2PRG.PRG"
*DOEVENTS FORCE *DOEVENTS FORCE
MOUSE AT 0,0 THIS.nMouseX = MCOL('',3)
THIS.nMouseY = MROW('',3)
MOUSE AT (_SCREEN.Height), (_SCREEN.Width) PIXELS
SET PROCEDURE TO 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' SET PROCEDURE TO 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
oFXU_LIB = CREATEOBJECT('CL_FXU_CONFIG') oFXU_LIB = CREATEOBJECT('CL_FXU_CONFIG')
oFXU_LIB.setup_comun() oFXU_LIB.setup_comun()
@@ -50,6 +54,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
oFXU_LIB = NULL oFXU_LIB = NULL
ENDIF ENDIF
RELEASE PROCEDURE 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' RELEASE PROCEDURE 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
MOUSE AT (THIS.nMouseY), (THIS.nMouseX) PIXELS
SYS(1104) SYS(1104)
ENDFUNC ENDFUNC
@@ -626,7 +631,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
STORE 0 TO lnCodError_Esperado STORE 0 TO lnCodError_Esperado
SCATTER FIELDS PROPERTIES MEMO NAME loReg SCATTER FIELDS PROPERTIES MEMO NAME loReg
DIMENSION laProps_Esperado(7) DIMENSION laProps_Esperado(7)
laProps_Esperado( 1) = 'ButtonCount' *laProps_Esperado( 1) = 'ButtonCount'
*laProps_Esperado( 2) = 'Value' *laProps_Esperado( 2) = 'Value'
*laProps_Esperado( 3) = 'Top' *laProps_Esperado( 3) = 'Top'
*laProps_Esperado( 4) = 'Left' *laProps_Esperado( 4) = 'Left'
@@ -634,11 +639,12 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
*laProps_Esperado( 6) = 'Width' *laProps_Esperado( 6) = 'Width'
*laProps_Esperado( 7) = 'Name' *laProps_Esperado( 7) = 'Name'
*-- 13/05/2014. v1.19.22 - Reordenamiento de todas propiedades *-- 13/05/2014. v1.19.22 - Reordenamiento de todas propiedades
laProps_Esperado( 2) = 'Top' laProps_Esperado( 1) = 'ButtonCount'
laProps_Esperado( 3) = 'Left' laProps_Esperado( 2) = 'Value'
laProps_Esperado( 4) = 'Height' laProps_Esperado( 3) = 'Height'
laProps_Esperado( 5) = 'Width' laProps_Esperado( 4) = 'Left'
laProps_Esperado( 6) = 'Value' laProps_Esperado( 5) = 'Top'
laProps_Esperado( 6) = 'Width'
laProps_Esperado( 7) = 'Name' laProps_Esperado( 7) = 'Name'
*-- TEST *-- TEST
@@ -943,11 +949,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
TRY TRY
loEx = NULL loEx = NULL
loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
*loCnv.l_Debug = .F. loCnv.EvaluarConfiguracion( '', '', '', '1', '1', '4' )
*loCnv.n_ExtraBackupLevels = 4
*loCnv.l_Debug = .T.
*loCnv.l_ShowErrors = .F. *loCnv.l_ShowErrors = .F.
*loCnv.l_Test = .T. *loCnv.l_Test = .T.
*loCnv.l_PropSort_Enabled = .F. && Para buscar diferencias
*loCnv.l_MethodSort_Enabled = .F. && Para buscar diferencias
*-- DATOS DE ENTRADA *-- DATOS DE ENTRADA
@@ -976,10 +982,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File2, LEFT( JUSTEXT(lc_File2),2 ) + 'X' ) ) oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File2, LEFT( JUSTEXT(lc_File2),2 ) + 'X' ) )
oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File2, LEFT( JUSTEXT(lc_File2),2 ) + 'T' ) ) oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File2, LEFT( JUSTEXT(lc_File2),2 ) + 'T' ) )
*-- Genero TX2 *-- Genero BMP con libreria ORIGINAL
loCnv.Ejecutar( lc_OutputFile, .F., .F., .F., '1', '0', '1', '', '', .T., '', SYS(5)+CURDIR(), '1', '0' )
*-- Genero BMP con libreria original
SET CLASSLIB TO (lcLib) ADDITIVE SET CLASSLIB TO (lcLib) ADDITIVE
IF lcTipoBinario = 'SCX' IF lcTipoBinario = 'SCX'
DO FORM (lc_OutputFile) NAME loCtl LINKED NOSHOW DO FORM (lc_OutputFile) NAME loCtl LINKED NOSHOW
@@ -1001,6 +1004,15 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
RELEASE CLASSLIB (lcLib) RELEASE CLASSLIB (lcLib)
CLEAR CLASSLIB (lcLib) CLEAR CLASSLIB (lcLib)
*-- Genero TX2
loCnv.Ejecutar( lc_OutputFile, .F., .F., .F., '1', '0', '1', '', '', .T., '', SYS(5)+CURDIR(), '1', '0' )
*-- Genero BIN
loCnv.Ejecutar( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_OutputFile),2 ) + '2' ), .F., .F., .F., '1', '0', '1', '', '', .T., '', SYS(5)+CURDIR(), '1', '0' )
*-- Genero TX2
loCnv.Ejecutar( lc_OutputFile, .F., .F., .F., '1', '0', '1', '', '', .T., '', SYS(5)+CURDIR(), '1', '0' )
*-- Genero BIN *-- Genero BIN
loCnv.Ejecutar( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_OutputFile),2 ) + '2' ), .F., .F., .F., '1', '0', '1', '', '', .T., '', SYS(5)+CURDIR(), '1', '0' ) loCnv.Ejecutar( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_OutputFile),2 ) + '2' ), .F., .F., .F., '1', '0', '1', '', '', .T., '', SYS(5)+CURDIR(), '1', '0' )