FiveTech Support Forums

Buenos días compañeros, quiero poner dos grupos de tres radiobuttons en el mismo dialogo, y no consigo que funcionen de forma independiente. En cambio, funcionan como un unico grupo de seis radiobuttons. Gracias de antemano.

Con Código @ ó Recursos( resources )? Que intentas hacer exactamente? Un Ejemplo simples?

Regards, saludos.

Cómo estás? Es con recursos. La idea es mostrar dos grupos de tres radiobuttons, y que cada uno de estos grupos funcione separado del otro.

Santi:

Muestra tu código, por favor.

Saludos

Yo veo tu código bien

Lo creo que esta pasando es un efecto visual que genera el windows, como si fuera uno, cuando le das clic en los radios superiores se desaparecen la selección de los inferiores y viceversa, pero la variable esta correctamente definida.

santidedos wrote:Muchas gracias por el archivo! Estoy tratando de replicar tu ejemplo y no lo puedo hacer funcionar. Siguen funcionandome los dos grupos como si fuesen uno solo. Será que me está faltando configurar algo en recursos? Te paso la declaración del diálogo por si se me pasó algo.

Code (fw): Select all Collapse

Function FiltroCD()   

    Local oRad
    Local oRad2
    Local oDlg
    Local oBtn  := Array( 2, 0 )
    Local oCbx  := Array( 2, 0 )
    Local oGet  := Array( 2, 0 )
    Local lInit := .t.
    
    
    Define Dialog oDlg Resource 'FILTROS_FACTURA' Color 0, CLR_WHITE
    
       REDEFINE GROUP oGroup  ID 4006 OF oDlg COLOR CLR_CYAN, CLR_WHITE;
      TRANSPARENT
    
        Redefine Get oGet[ 1 ] Var adFiltro[ 1 ] Id 4001 Picture "@D" Of oDlg
        Redefine Get oGet[ 2 ] Var adFiltro[ 2 ] Id 4002 Picture "@D" Of oDlg
        oGet[ 1 ] : bGotFocus := { || oGet[ 1 ] : SelectAll() }
        oGet[ 2 ] : bGotFocus := { || oGet[ 2 ] : SelectAll() }
        oGet[ 1 ] : oWnd : bKeyDown := { | nKey | If( nKey == VK_ESCAPE, oDlg : End(), ) }
        
        Redefine Radio oRad Var nOpFiltro Id 4003, 4004, 4005 Of oDlg
        
        oRad:aItems[1]:cTooltip := "ToolTip Radio 1"
    oRad:aItems[2]:cTooltip := "ToolTip Radio 2"
    oRad:aItems[3]:cTooltip := "ToolTip Radio 3"

        
        Redefine Radio oRad2 Var nOpFiltro2 Id 4008, 4009, 4010 Of oDlg
        
        oRad2:aItems[1]:cTooltip := "ToolTip Radio 1"
    oRad2:aItems[2]:cTooltip := "ToolTip Radio 2"
    oRad2:aItems[3]:cTooltip := "ToolTip Radio 3"

        Redefine BtnBmp oBtn[ 1 ] Id 202 Prompt "&Cerrar"  Of oDlg Center Action oDlg : End() 
        Redefine BtnBmp oBtn[ 2 ] Id 201 Prompt "&Filtrar" Of oDlg Center Action ( Filtra( oDlg ) )
        oBtn[ 1 ] : l2013 := .t.
        oBtn[ 2 ] : l2015 := .t.
        
        oDlg : bMoved    := { || If( ! lInit, SaveDlgPos( oDlg, "FILTROS_FACTURA" ), nil ) }
    
    Activate Dialog oDlg On Init ( oDlg : lHelpIcon := .f., RestoreDlgPos( oDlg, "FILTROS_FACTURA" ), lInit := .f., oDlg : bLClicked := { || MoveWin( oDlg ) } ) On Paint PintaCuadro( oDlg,, "Filtro Por Fechas" ) ;
                Valid ( SaveDlgPos( oDlg, "FILTROS_FACTURA" ), .t. )
    Return 0