diff --git a/TESTS/DATOS_READONLY/f_form_aa.sc2 b/TESTS/DATOS_READONLY/f_form_aa.sc2 index 9e5b856..a5275d3 100644 --- a/TESTS/DATOS_READONLY/f_form_aa.sc2 +++ b/TESTS/DATOS_READONLY/f_form_aa.sc2 @@ -1978,7 +1978,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" ENDIF loCtl.ControlSource = '' - CASE loCtl.Baseclass == 'Option' + CASE loCtl.Baseclass == 'Optionbutton' .valor = 2 loCtl.ControlSource = 'THISFORM.valor' IF loCtl.Value = .valor diff --git a/TESTS/DATOS_READONLY/f_form_aa.sct b/TESTS/DATOS_READONLY/f_form_aa.sct index 9eff91b..c237bf2 100644 Binary files a/TESTS/DATOS_READONLY/f_form_aa.sct and b/TESTS/DATOS_READONLY/f_form_aa.sct differ diff --git a/TESTS/DATOS_READONLY/f_form_aa.scx b/TESTS/DATOS_READONLY/f_form_aa.scx index be6ed2b..5e3db05 100644 Binary files a/TESTS/DATOS_READONLY/f_form_aa.scx and b/TESTS/DATOS_READONLY/f_form_aa.scx differ diff --git a/TESTS/DATOS_READONLY/lib_controles.vc2 b/TESTS/DATOS_READONLY/lib_controles.vc2 index c715d68..99615a0 100644 --- a/TESTS/DATOS_READONLY/lib_controles.vc2 +++ b/TESTS/DATOS_READONLY/lib_controles.vc2 @@ -5848,7 +5848,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" DisabledItemBackColor = 255,255,255, ; DisabledItemForeColor = 109,109,109, ; DisplayCount = 0, ; - DisplayValue = , ; + DisplayValue = combobox, ; DragIcon = ..\..\, ; DragMode = 0, ; Enabled = .T., ; @@ -6854,6 +6854,14 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" ENDIF loCtl.ControlSource = '' + CASE loCtl.Baseclass == 'Optionbutton' + .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' diff --git a/TESTS/DATOS_READONLY/lib_controles.vct b/TESTS/DATOS_READONLY/lib_controles.vct index 94ef75f..75a7d96 100644 Binary files a/TESTS/DATOS_READONLY/lib_controles.vct and b/TESTS/DATOS_READONLY/lib_controles.vct differ