Changeset: 274 fdbozzo - 05/06/2014 00:56:08:

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

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'