FiveTech Software tech support forums

Code: Select all  Expand view

Local oRad ,oRad2
.....
@ 58,7 RADIO oRad VAR nRFlt ITEMS "Todos" OF oDlg SIZE 50, 25 UPDATE pixel ON CHANGE registraCambioFiltro()
@ 58,63 RADIOITEM "Fecha" RADIOMENU oRad OF oDlg SIZE 70, 25 pixel UPDATE

@ 58,7 RADIO oRad2 VAR nRFlt ITEMS "Todos" OF oDlg SIZE 50, 25 UPDATE pixel ON CHANGE registraCambioFecha()
@ 58,63 RADIOITEM "Fecha" RADIOMENU oRad2 OF oDlg SIZE 70, 25 pixel UPDATE
 

Code: Select all  Expand view

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

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: Select all  Expand view

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

Code: Select all  Expand view

On Paint PintaCuadro